-1

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

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

例如：

进入日期 月份 到期日期 到期 S/O 或 SOM 螺栓 宽带移动采集 移动保留 打开，已发布

这是用户输入要记录的信息的地方。基于以与我的标签相同的格式编写的到期月份，即 2013 年 5 月、2013 年 6 月等，我试图将其复制到下一个可用行的相应工作表中。

每一页上的行从 C13 (C13: J13) 开始。大约有 25 个选项卡。

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

此任务的第二部分是此选项下的一个选项，我也未能完成工作。这部分是更新他们之前输入的信息。只有 1 个部分需要更新，即 Open/Closed/Posted 部分。我有空格可以输入月份、S/O 或 SOM 编号（如参考）和更新状态。本质上，此功能将搜索参考号并将新状态粘贴到 J13 中，例如 J144，具体取决于它的位置。

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

4

1 回答 1

0

从根本上说，这是您需要做的。为源和目标数据声明Worksheet和Range变量。然后，将目标单元格的值 = 设置为源单元格的值。

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
于 2013-04-15T01:54:35.253 回答