vba - 使用字符串值调用 VBA 子程序

Question

这个问题已经有答案了:

Dynamic Function Calls in Excel VBA (1 个回答)

已关闭 8 年前。

这是我的测试代码

Sub dotask()

    Dim qusub As String
    qusub = Worksheets("Task List").Range("C2").Value

    MsgBox qusub
    Application.Run qusub

End Sub

Sub msg1()

    MsgBox "sub msg1"

End Sub

Sub msg2()

    MsgBox "sub msg2"

End Sub

Sub msg3()

    MsgBox "sub msg3"

End Sub

Sub msg4()

    MsgBox "sub msg4"

End Sub

所有这些都包含在一个标准模块中。我读过Trying to call a Sub with a String - VBA并根据我在那里找到的内容编写了我的代码(即使用 Application.Run)。任务列表工作表的单元格 C2 目前包含“msg3”。当我执行子“dotask”时，我首先收到一个消息框，上面写着“msg3”，但随后我收到以下错误消息:

Run-time error '1004':

Cannot run the macro 'msg3'. The macro may not be available in this workbook or all macros may be disabled.

我正在使用 Excel 2010，文件为 .xlsm - 我应该怎样做才能让我的代码按照我想要的方式执行？

Answer 1

刚刚跑到这里了。 msg1 似乎是一个保留字...将其更改为其他内容即可正常工作 =)