Excel 控制面板辅助-已创建

Excel 控制面板辅助-已创建,excel,vba,Excel,Vba,我正在尝试在excel中创建“控制面板” 我试图弄清楚的项目的第一部分是基于单元格值将一系列信息复制到其他工作表的能力 例如: 进入日期月份到期日期到期S/O或SOM Boltons宽带移动收购移动保留打开,已过账 用户在此处输入要记录的信息。根据与我的标签格式相同的到期月份,即2013年5月、2013年6月等,我试图将信息复制到下一行的相应表格中 每一页上的行从C13(C13:J13)开始。大约有25个选项卡 这可能吗?我找到了可用于复制到另一张工作表的代码,即两张工作手册的代码。但这并不是我

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

我试图弄清楚的项目的第一部分是基于单元格值将一系列信息复制到其他工作表的能力

例如:

进入日期月份到期日期到期S/O或SOM Boltons宽带移动收购移动保留打开,已过账

用户在此处输入要记录的信息。根据与我的标签格式相同的到期月份,即2013年5月、2013年6月等,我试图将信息复制到下一行的相应表格中

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

这可能吗?我找到了可用于复制到另一张工作表的代码,即两张工作手册的代码。但这并不是我想要的

这项任务的第二部分是我在这项任务下的一个选择,我也没有成功。 此部分用于更新以前输入的信息。只有1个部件需要更新,即打开/关闭/发布部件。 我有空间输入月份、S/O或SOM编号(如参考)和更新状态。基本上,该功能将搜索参考号,并根据其所在位置将新状态粘贴到J13中,例如J144


我不确定应该更改什么以使宏工作。

基本上,这是您需要做的。为源和目标数据声明
工作表
范围
变量。然后,将目标单元格的值=设置为源单元格的值

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
子测试()
将ws1调整为工作表的源工作表
将ws2设置为工作表的目标工作表
Dim rng1作为范围的源数据范围
Dim cl作为“范围”单元变量
Dim rng2作为范围的目标数据范围
变暗r为长行计数器
设置ws1=图纸(“图纸1”)'