Question

我有一个包含很多子的模块：

Sub a1
Sub a2
Sub a3
...
Sub a10

在工作表中，我有一个事件宏：

Private Sub Worksheet_Change(ByVal Target As Range)
...
End Sub

Sub a1到a9在工作表中进行更改（添加列，更改值...）

我希望事件宏在a1-a9开始工作时（仅适用于a10）。这是可能的吗？

Answer 1

您可以在事件更改宏中添加逻辑分支，以便在运行之前检查某个参数。首先，创建一个全局布尔变量，该变量保持True或False - 然后使您的子A9将其切换为True。例如：

Global Start_Event_Code as Boolean

Sub A9
    'Other Code
    Start_Event_Code = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Start_Event_Code Then
        'Do stuff
    End If
End Sub

然后你可以这样做，以便A10子再次关闭它：

Sub A9
    Start_Event_Code = False
    'Other Code
End Sub

从特定子

1 个答案: