매크로를 실행하려면 셀을 클릭하세요.

Question

특정 셀을 클릭할 때 msgbox를 생성하기 위해 다음 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