Mengklik sel untuk menjalankan makro

0

Saya menemukan VBA berikut untuk membuat kotak pesan ketika mengklik sel tertentu:

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

Ini bekerja dengan baik, tetapi apa sintaks untuk menambahkan yang lain setelahnya? Yaitu, mengklik sel yang berbeda untuk mendapatkan pesan yang berbeda.

Terima kasih

JimBob
sumber

Jawaban:

0

Ini adalah salah satu cara untuk menangani dua sel:

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
Siswa Gary
sumber