要运行变量列表的宏

Question

我有一个运行一系列其他宏的宏。当我更改特定单元格 （B1） 的值时，宏会自动运行。该宏为 B1 中指定的项目编号生成项目报告。在任何给定时间，我都有大约 75 个活动项目。

我想做的是将项目列表添加到工作簿中，并让它遍历每个值。值和值的数量每周都会更改，因此我不想将这些值硬编码到宏中。我假设我会使用循环函数，但不确定如何去做。

当前宏的代码是：

Sub AA_RunAll()
Application.ScreenUpdating = False
ActiveWorkbook.RefreshAll
DoEvents
Call OpenFile
Call Copy1
Call DeleteRows1
Call DeleteRows2
Call DetailCopy
Call RemoveEmptySheets
Call SummarySheet
Workbooks("Project WIP Template.xlsm").Worksheets("Summary").Activate
Application.Goto Range("A1"), True
Application.ScreenUpdating = True
Application.DisplayAlerts = True

Call SaveAs
Workbooks("Project WIP V5.xlsm").Worksheets("Summary").Activate
Range("b1").Select
MsgBox "Report Complete"
End Sub

提前致谢

Answer 1

如果你的宏每次修改 Range("B1") 的值时都运行，我想你正在触发以下Worksheet_Change事件测试：

If Target.Address = "$B$1" Then
    AA_RunAll '<-- call your macro
End If

如果是这种情况，您必须欺骗自己的设计的最简单方法是在电子表格中编写项目编号列表，例如Project numbers，A列：

1
2
3
...

。然后循环浏览此列表以替换单元格B1的值：

Sub allProjects()
    For j = 1 To Sheets("Project numbers").Range("A1").End(xlDown).Row
        Range("B1").Value = Sheets("Project numbers").Range("A" & j).Value
        'the above set will call the worksheet change and run your macro for a given value
    Next j
End Sub

不过，我必须说，设计并不理想。我宁愿让你的宏采用一个参数：

Sub AA_RunAll(ByVal projectNumber As Integer)
    'your code, pass the projectNumber to other submacros if needed
End Sub

。并使用正确的数字以编程方式调用宏，而不是欺骗 Excel 工作表来触发 Worksheet_Change 事件。