根据当前date从另一张表中检索总计总数
我试图在Excel 2010中开发一个macros，它可以根据运行macros的date从工作表2中提取数据，并基于工作表2中给出的工程图状态提供工作表1中的不同工程图状态。例如，如果我在2011年3月18日运行macros，工作表1（2011/3/18）行应该具有ColB = 4，ColC = 0，ColD = 2，ColE = 1，ColF = 3的总数。因此，我每天运行macros，工作表1将根据当前date进行更新，并更新来自同一文件的工作表2的数据。 任何人都可以给我一个提示如何启动这个代码？
表1数据如下：
ABCDEF Date Preliminary Review Design Construction Final date列具有以下行：
3/18/2011
2011年3月20日
2011/3/21
2011/3/22
直到月底
表2数据如下：
Col L有绘图编号，Col M有绘图状态。 以下是图纸2上的图纸编号
LM **Drawing Status** DWGT2010001 Design DWGT2010002 Preliminary DWGT2010003 Final DWGT2010004 Preliminary DWGT2010005 Design DWGT2010006 Construction DWGT2010007 Final DWGT2010008 Preliminary DWGT2010009 Preliminary DWGT2010010 Final
这将工作，虽然你可以根据你的具体布局更多地修改它。
Private Sub CommandButton1_Click() Dim WorkingRow As Range Dim StatusColumn As Integer Dim i As Integer Dim ColumnNames(1 To 5) As String Set WorkingRow = Sheets("Sheet1").UsedRange.Find(Date, LookIn:=xlValues, _ SearchOrder:=xlByRows).Rows(1) StatusColumn = 13 ' Column M on Sheet 2 ColumnNames(1) = "Preliminary" ColumnNames(2) = "Review" ColumnNames(3) = "Design" ColumnNames(4) = "Construction" ColumnNames(5) = "Final" For i = 1 To 5 WorkingRow.Cells(1, i + 1).Value = _ Application.CountIf(Sheets("Sheet2").Columns(StatusColumn), ColumnNames(i)) Next i End Sub
我不知道我是否明白你想要做什么
作为开始，您可以尝试logging一个正在执行的操作，并调整代码： http : //office.microsoft.com/en-us/excel-help/create-a-macro-HP005204711.aspx