Excel変更されたマクロを使用して異なるシートに2つのセルをリンクする

Question

複数のワークシートを持つExcelワークブックがあります。 WORKSHEET Aには、範囲名TRACK1のセルと、範囲名TRACK2のWORKSHEET Bのセルがあります。

各TRACK1とTRACK2はリストから検証されます。ユーザーは、セルが選択されたときに表示されるドロップダウンリストからいずれかのセルを変更できます。

ユーザーに変更を許可し、もう一方を変更して一致させたい場合もあります。 TRACK1とTRACK2の変更値が変更され、TRACK1とTRACK2の変更値が変更されます。

私はこの基本的なマクロを行う方法を知っていますが、イベントの伝搬を停止する方法はありますか？ワークシートAのコードモジュールで

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

、使用：

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