Excel使用更改宏时链接不同工作表中的两个单元格

Question

我有一个包含多个工作表的 Excel 工作簿。我在 WORKSHEET A 中有一个范围名称为 TRACK1 的单元格，在 WORKSHEET B 中有一个范围名称为 TRACK2 的单元格。

每个 TRACK1 和 TRACK2 都从一个列表中进行验证。用户可以从选择单元格时显示的下拉列表中更改任一单元格。

我希望能够允许用户更改其中一个并让另一个也更改以匹配。 TRACK1 和 TRACK2 的改变值改变，反之亦然。

我知道如何执行这个基本宏，但是如何停止事件传播？

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Target, Range("TRACK1")) Is Nothing Then
        Range("TRACK2") = Range("TRACK1")
    End If

    If Not Application.Intersect(Target, Range("TRACK2")) Is Nothing Then
        Range("TRACK1") = Range("TRACK2")
    End If

End Sub

Answer 1

在工作表A的代码模块中，使用：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Application.Intersect(Target, Range("TRACK1")) Is Nothing Then
        Worksheets("WORKSHEET B").Range("TRACK2") = Range("TRACK1")
    End If
    Application.EnableEvents = True
End Sub

在工作表 B 的代码模块中，使用：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Application.Intersect(Target, Range("TRACK2")) Is Nothing Then
        Worksheets("WORKSHEET A").Range("TRACK1") = Range("TRACK2")
    End If
    Application.EnableEvents = True
End Sub