如何在Excel中实现点击指定单元格触发对应VBA宏？

你的代码有效性说明 #

你的这段扩展代码完全能实现预期需求——点击D4、E10、G23、J33单个单元格时，会分别触发对应的MyMacro1至MyMacro4。不过代码存在冗余：重复写了四次If Selection.Count = 1 Then，其实只需要做一次判断即可。

更优实现方案 #

下面提供几种更简洁、易维护的写法：

方案1：合并外层判断，简化结构

把单个单元格的判断放到最外层，内部用ElseIf串联条件，减少重复代码：

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 用CountLarge替代Count，避免选中超大量单元格时的溢出错误
    If Target.CountLarge = 1 Then
        If Not Intersect(Target, Range("D4")) Is Nothing Then
            MyMacro1
        ElseIf Not Intersect(Target, Range("E10")) Is Nothing Then
            MyMacro2
        ElseIf Not Intersect(Target, Range("G23")) Is Nothing Then
            MyMacro3
        ElseIf Not Intersect(Target, Range("J33")) Is Nothing Then
            MyMacro4
        End If
    End If
End Sub

方案2：用Select Case实现更清晰的逻辑匹配

通过单元格的相对地址做匹配，逻辑结构一目了然：

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge = 1 Then
        ' Address(False, False) 返回不带$的相对地址，比如"D4"
        Select Case Target.Address(False, False)
            Case "D4"
                MyMacro1
            Case "E10"
                MyMacro2
            Case "G23"
                MyMacro3
            Case "J33"
                MyMacro4
        End Select
    End If
End Sub

方案3：字典映射（适合后续扩展大量单元格）

如果之后需要添加更多单元格与宏的对应关系，用字典维护映射表会更方便，无需修改判断逻辑：

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge <> 1 Then Exit Sub
    
    Dim cellMacroMap As Object
    Set cellMacroMap = CreateObject("Scripting.Dictionary")
    
    ' 批量添加单元格-宏的对应关系
    cellMacroMap("D4") = "MyMacro1"
    cellMacroMap("E10") = "MyMacro2"
    cellMacroMap("G23") = "MyMacro3"
    cellMacroMap("J33") = "MyMacro4"
    
    ' 检查当前单元格是否在映射表中，存在则执行对应宏
    If cellMacroMap.Exists(Target.Address(False, False)) Then
        Application.Run cellMacroMap(Target.Address(False, False))
    End If
End Sub

内容的提问来源于stack exchange，提问作者Joe Smith