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
microsoft-excel
vba
JimBob
sumber
sumber