0

我有一个运行一系列其他宏的宏。当我更改特定单元格 (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

提前致谢

4

1 回答 1

0

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

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

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

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事件。

于 2017-10-10T19:45:14.417 回答