一键点击特定单元格即可触发宏

在工作表中单击单元格D4时，将触发以下代码。

右键单击工作表标签，然后选择“查看代码”。将此粘贴到代码窗口中：

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

从“ D4”调整单元格引用以反映所需的单元格。用所需的代码替换MsgBox行。