☰

单击单元格即可触发宏

tag-icon • tag-icon microsoft-excel vba
单击单元格即可触发宏

我遇到了以下 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

效果很好，但是紧接着添加另一个的语法是什么？即单击不同的单元格以获取不同的消息。

谢谢

答案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

相关内容