Excel VBA选择数据验证列表项后运行同名子宏报1004错误求助

错误原因分析 #

出现运行时错误1004主要有3个常见原因：

1. 宏作用域问题：如果AA/BB/CC这类公共子过程写在Sheet3的模块中，直接用Application.Run Text无法定位到宏——Sheet模块中的宏属于工作表成员，需要额外限定路径才能被调用。
2. 单元格值含空格：数据验证列表的选项可能带有前后空格，导致和宏名不匹配。
3. 无错误处理机制：一旦运行出错，Application.EnableEvents = True可能无法执行，导致后续工作表变更事件失效。

修复方案与代码 #

方案1：将公共宏移至标准模块（推荐）

把AA/BB/CC移到标准模块中（Excel菜单栏→插入→模块），让宏全局可访问：

' 标准模块（如Module1）中的代码
Public Sub AA()
    MsgBox "AA Macro"
End Sub

Public Sub BB()
    MsgBox "BB Macro"
End Sub

Public Sub CC()
    MsgBox "CC Macro"
End Sub

然后修改Sheet3的Worksheet_Change事件代码，添加错误处理和空格处理：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Address <> Me.Range("B2").Address Then Exit Sub
    
    Application.EnableEvents = False
    On Error GoTo Cleanup ' 确保出错时也能恢复事件触发
    
    Dim macroName As String
    macroName = Trim(Me.Range("B2").Value) ' 去除单元格值的前后空格
    
    ' 检查宏是否存在并执行
    Dim isMacroExist As Boolean
    On Error Resume Next
    Application.Run macroName
    isMacroExist = (Err.Number = 0)
    On Error GoTo Cleanup
    
    If Not isMacroExist Then
        MsgBox "宏「" & macroName & "」不存在，请检查名称是否匹配。"
    End If

Cleanup:
    Application.EnableEvents = True
    If Err.Number <> 0 Then
        MsgBox "运行宏时出错：" & Err.Description, vbCritical
    End If
End Sub

方案2：保留宏在Sheet模块，添加路径限定

如果不想移动宏，只需修改Application.Run的调用语句，加上Sheet的代码名称限定：

' 替换原代码中的Application.Run Text为以下内容
Application.Run Me.CodeName & "." & macroName

（注：Me.CodeName指Sheet3的默认代码名称，通常就是Sheet3，也可在VBA编辑器的属性窗口中查看修改）

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