點擊單元格以觸發宏

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

這是處理兩個單元格的一種方法：

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