excel - 如何避免在错误的工作簿中执行 VBA 函数

Question

我有几个执行计时器和宏的 excel 文件。但一个大问题是当工作簿 A 的宏被调用时，工作簿 B 处于事件状态。宏在错误的书中执行并失败。

我需要将 windows().active 放在每个函数的开头吗？

如果我有不同的模块，如何将此工作簿名称传递给所有模块？

这似乎过分而且不对。这个问题有什么好的解决办法吗？

期待您的回答

Answer 1

你在正确的轨道上

2.If I have different modules how do I pass this workbook name to all of them

我假设您的宏正在使用 ActiveWorkbook属性，或仅使用工作表属性，如 Range没有资格他们？

而不是使用 ActiveWorkbook使用 ThisWorkbook .而不是使用 Range使用 ThisWoorkbook.Worksheets(1).Range等等。否则，宏将假定事件工作表是您想要的。

Sub MyMacro
  Range("A1").Text = "Test"
End Sub

尝试

Sub MyMacro(ByVal oWorksheet as Worksheet)
  oWorksheet.Range("A1").Text = "Test"
End Sub

然后将工作表对象作为参数传递。

您还可以找到 ThisWorkbook有用的对象 - 它是宏所在的工作簿，或 Application.Caller对象，它是调用当前宏的对象，例如 Range 对象(如果它是单元格公式)，或者可能是您的情况下的计时器对象。