セルをクリックしてマクロを起動する

Question

特定のセルをクリックしたときにメッセージ ボックスを生成する次の VBA を見つけました。

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("D4")) Is Nothing Then
            MsgBox "Hello World"
        End If
    End If
End Sub

これはうまく機能しますが、直後に別のものを追加するための構文は何ですか? つまり、別のセルをクリックすると、別のメッセージが表示されます。

ありがとう

Answer 1

これは 2 つのセルを処理する 1 つの方法です。

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Selection.Count = 1 Then
      If Not Intersect(Target, Range("D4")) Is Nothing Then
         MsgBox "Hello World"
      End If

      If Not Intersect(Target, Range("F5")) Is Nothing Then
         MsgBox "Goodby World"
      End If
   End If
End Sub