トリガーマクロへの複数のセル値の変更

Question

セルG3：G4とD15：D10000の値が異なる場合があります。 G列またはD列が変更されたときに2つのコードを実行したい。変更する列のセットをどのように特定できるか

Answer 1

ワークシートのコードペインで、このうち

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Range("G3:G4")) Is Nothing Then   
     'code when some cell in range "G3:G4" is changed 
    ElseIf Not Intersect(Target, Range("D15:D10000")) Is Nothing Then 
     'code when some cell in range "D15:D10000" is changed 
    End If 
End Sub 

Answer 2

Worksheet_Changeイベントでは、あなたの関連するワークシートに以下のコードを入れてください。以下は

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim WatchRange     As Range 
Dim IntersectRange    As Range 

Set WatchRange = Application.Union(Range("G3:G4"), Range("D15:D10000")) 
Set IntersectRange = Intersect(Target, WatchRange) 

If Not IntersectRange Is Nothing Then 

    Select Case Target.Column 
     Case 4 ' column D 
      Call A 

     Case 7 ' column G 
      Call B 

    End Select 

End If 

End Sub 

Sub AとSub Bの例です：

Sub A() 

MsgBox "Running Sub A" 

End Sub 


Sub B() 

MsgBox "Running Sub B" 

End Sub