Question

我正在尝试在Excel中创建一个“控制面板”。

我想要做的项目的第一部分是能够根据单元格值将一系列信息复制到其他工作表。

例如：

进入日期截止日期到期日S / O或SOM Bolt Ons宽带移动收购移动保留开放，发布

这是用户输入要记录的信息的地方。基于Month Due，它以与我的标签I.e.相同的格式编写。 2013年5月，2013年6月等我试图将此信息复制到下一个可用行的相应表格中。

每行的行开始C13（C13：J13）。大约有25个标签。

这可能吗？我找到了可用于复制到另一张表格的代码，即。对于2张工作簿。但这并不是我所追求的。

这项任务的第二部分是一个选项，我也没有做好工作。这部分是为了更新以前输入的信息。只有1个部分需要更新，即打开/关闭/已发布部分。我有空格输入月份，S / O或SOM编号（如参考）和更新状态。本质上，此函数将搜索参考编号并将新状态粘贴到J13中，例如J144，具体取决于它的位置。

我不确定我应该改变什么来使宏工作。

Answer 1

从根本上说，这就是你需要做的。为来源和广告声明Worksheet和Range个变量目的地数据。然后，将destiantion cell的value =设置为源单元格的值。

Sub Test()
Dim ws1 as Worksheet  'Source worksheet
Dim ws2 as Worksheet  'Destination worksheet
Dim rng1 as Range      'source data range
Dim cl as Range  'cell variable
Dim rng2 as Range      'destination data range
Dim r as Long 'row counter

Set ws1 = Sheets("Sheet1") '<-- Modify as needed'

Set rng1 = ws1.Range("C13:J13")

    'assuming your dates & worksheets are consistently named, and the date is in column D:
    Set ws2 = Sheets(Cstr(rng1.Cells(2).Value)) '

    'Get the last line in column C on destination sheet
    r = 1+ ws2.Range("C1048576").End(xlUp).Row 

    'Set the destination range, assuming column C:
    Set rng2 = ws2.Range("C" & r & ":J" & r & ")

    'Now, set the values in the second range equal to the first range
    rng2.Value = rng.Value



End Sub

控制面板帮助 - 已创建

1 个答案: