vba - 绕过 Workbook_SheetChange 事件

Question

我不知道为什么，这很奇怪，但是我的代码在循环。实际上，在第一张表 (ws1) 中，我正在 Worksheet_Change 上执行此操作事件 :

Application.EnableEvents = False
ws2.Range(Col_Letter(target.Column) & LastLine & ":" & Col_Letter(target.Column) & LastLine ).PasteSpecial Paste:=xlPasteValues
Application.EnableEvents = True

此外，我在 ThisWorkbook “类”，一个 Workbook_SheetChange事件。

在上面的代码中，我正在修改一个 Cell。 问题是我不知道为什么它调用 Workbook_SheetChange事件，因为我已经在我的第一个工作表上禁用了事件。

因此，它是循环的，因为在我的 Workbook_SheetChange事件我正在修改 Worksheet1。然后，Worksheet1 正在修改第二个，....无限循环。

我不知道为什么 Application.EnableEvents = False不工作(事实上，如果我对 Workbook_SheetChange 事件执行 Debug.Print(Application.EnableEvents)，它会显示“True”，这非常令人沮丧。)

谢谢，
克莱门特

Answer 1

如果您使用全局标志来指示正在发生的处理类型，您可以解决此问题而不必禁用事件。

从您的设计描述中并没有完全清楚为什么您需要同时处理 Worksheet_Change事件和 Workbook_SheetChange事件。但是很好地了解每个事件何时触发肯定会有所帮助。在您的情况下，如果您更改 Sheet1 上的单元格，您将获得 Worksheet_Change Sheet1 的事件，然后获取 Workbook_SheetChange事件。每当您更改任何工作表时，都会发生这种情况。

下面的示例说明了如何处理处理以保持一切正常，而不是踩到您通过 VBA 进行的更改和手动进行的更改。该示例有多个部分，因此请在家中进行操作...

首先，我们需要建立两个Public事情:一个工作簿全局标志和一个工作簿全局子例程来执行您的处理。因此，在 VBA 代码模块 (Module1) 中，我们有以下代码:

'------ Module1 --------
Option Explicit

Public MyCustomMacroInProgress As Boolean

Public Sub DistributeChangeToSheets()
    Debug.Print "Entering DistributeChangeToSheets... "
    MyCustomMacroInProgress = True
    Debug.Print "=== setting MyCustomMacroInProgress = " & MyCustomMacroInProgress

    '--- loop to fire change events in the other worksheets for testing
    Dim ws As Variant
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "Sheet1" Then
            ws.Range("A1") = 1
        End If
    Next ws

    MyCustomMacroInProgress = False
    Debug.Print "=== setting MyCustomMacroInProgress = " & MyCustomMacroInProgress
    Debug.Print "Leaving DistributeChangeToSheets"
End Sub

(请注意，在任何地方使用 Option Explicit 对您的代码有很大帮助。)

通过创建公共(public)全局标志 ( MyCustomMacroInProgress)，您现在可以在任何模块、任何类和任何工作表中检查此标志。通过创建 Sub DistributeChangeToSheets在模块中并将其公开，您基本上可以从您可能想要的任何原始工作表中应用这种类型的处理。我的示例仅应用来自 Sheet1 的更改。

所以现在到主要的变化捕捉器 - Sheet1。在您的 Sheet1 代码中，我有

Option Explicit

'--- in Sheet1
Private Sub Worksheet_Change(ByVal Target As Range)
    Debug.Print "In " & Target.Parent.Name;
    Debug.Print ": Worksheet_Change event fired ";
    Debug.Print " - changed cell " & Target.Address

    DistributeChangeToSheets
End Sub

我正在打印 Debug到处都是语句，因此更容易跟踪处理的进展情况。您可以在 Sheet1 中看到，我们正在打印我们所在的位置，然后将 sub 调用到 DistributeChangesToSheets (来自模块 1)。

我的示例只有三个工作表，因此其他工作表模块中的代码很简单:

Option Explicit

'--- in Sheet2
Private Sub Worksheet_Change(ByVal Target As Range)
    Debug.Print "In " & Target.Parent.Name;
    Debug.Print ": Worksheet_Change event fired ";

    If Not MyCustomMacroInProgress Then
        Debug.Print " - process change event normally"
    Else
        Debug.Print " - skip normal change event processing"
    End If
End Sub

和

Option Explicit

'--- in Sheet3
Private Sub Worksheet_Change(ByVal Target As Range)
    Debug.Print "In " & Target.Parent.Name;
    Debug.Print ": Worksheet_Change event fired ";

    If Not MyCustomMacroInProgress Then
        Debug.Print " - process change event normally"
    Else
        Debug.Print " - skip normal change event processing"
    End If
End Sub

现在将所有这些放在示例中，在 Sheet1 上的任何单元格中键入一个值。即时窗口现在显示以下输出:

In Sheet1: Worksheet_Change event fired  - changed cell $B$2
Entering DistributeChangeToSheets... 
=== setting MyCustomMacroInProgress = True
In Sheet2: Worksheet_Change event fired  - skip normal change event processing
In Sheet2: Workbook_SheetChange event fired  - skip normal change event processing
In Sheet3: Worksheet_Change event fired  - skip normal change event processing
In Sheet3: Workbook_SheetChange event fired  - skip normal change event processing
=== setting MyCustomMacroInProgress = False
Leaving DistributeChangeToSheets
In Sheet1: Workbook_SheetChange event fired  - process change event normally

从输出中，您可以看到工作表和工作簿事件都遵循事件模式——因此，当工作表发生更改时，您会得到两个事件( Worksheet_Change 和 Workbook_SheetChange)。通过在 Sheet1 上设置全局标志(从内部 DistributeChangeToSheets )，使用 If声明您可以在此类处理期间禁止对所有其他工作表进行更改处理。

它可能需要您进行一些重新编码，但是以有序的方式处理您的事件可以使处理流程更加清晰。