VBA中如何将Sub过程作为参数传递并调用？

你的错误根源在于：VBA里不能直接把Sub过程赋值给字符串变量，也没法直接将Sub作为参数传递——MethodName = MySub1 这句里，MySub1是没有返回值的Sub，VBA无法把它当成一个“值”赋值给String类型的变量，所以才会弹出“需要值或函数”的错误。

下面给你几种可行的解决方案，从简单到严谨：

方案1：用Application.Run快速实现（最推荐） #

这个方法是把Sub的名字以字符串形式传递，然后在接收的Sub里用Application.Run执行它，操作最简单：

修改后的代码： #

' 原Sub保持不变
Sub MySub1()
    MsgBox "I am ok!"
End Sub

' 修改MySub2，用Application.Run执行传递的过程名
Sub MySub2(Parameter1, Parameter2, MethodName As String)
    MsgBox Parameter1
    MsgBox Parameter2
    Application.Run MethodName ' 通过字符串调用指定Sub
End Sub

' 修改MasterSub，传递Sub的名字字符串
Sub MasterSub()
    Dim Parameter1 As String
    Dim Parameter2 As String
    Dim MethodName As String
    Parameter1 = "Ou"
    Parameter2 = "Yes"
    MethodName = "MySub1" ' 这里用字符串存储Sub的名称
    MySub2 Parameter1, Parameter2, MethodName
End Sub

这个方案的优点是几乎不需要改动原有Sub的结构，上手快，适合快速实现需求。

方案2：用过程指针（AddressOf）实现类型安全传递 #

如果担心字符串拼写错误，想要更严谨的类型检查，可以用VBA的过程指针机制，但需要提前声明回调类型：

修改后的代码： #

首先在标准模块的最顶部（所有过程之外）声明回调类型（签名要和你要传递的Sub完全一致，这里MySub1没有参数，所以是无参数的Sub）：

' 声明回调类型，定义要传递的Sub的签名
Public Sub CallbackSub()
End Sub

然后修改MySub2的参数类型，接受这个回调：

Sub MySub2(Parameter1, Parameter2, MethodName As CallbackSub)
    MsgBox Parameter1
    MsgBox Parameter2
    Call MethodName ' 执行传递过来的Sub
End Sub

最后修改MasterSub，用AddressOf传递Sub的地址：

Sub MasterSub()
    Dim Parameter1 As String
    Dim Parameter2 As String
    Parameter1 = "Ou"
    Parameter2 = "Yes"
    ' 用AddressOf获取MySub1的过程地址并传递
    MySub2 Parameter1, Parameter2, AddressOf MySub1
End Sub

这个方案的好处是类型安全，如果传递的Sub签名和回调类型不匹配，VBA会在编译阶段就报错，避免运行时出错。

方案3：把Sub包装成Function（灵活度更高） #

如果你的需求后续可能需要获取执行结果，可以把Sub改成Function，再用类似方案2的方式传递：

修改后的代码： #

' 把原Sub改成Function，即使不需要返回值也得赋值一个返回值
Function MyFunc1() As Boolean
    MsgBox "I am ok!"
    MyFunc1 = True ' 随便赋值一个布尔值即可
End Function

' 声明回调函数类型，签名和MyFunc1一致
Public Function CallbackFunc() As Boolean
End Function

' 修改MySub2接受函数回调
Sub MySub2(Parameter1, Parameter2, MethodName As CallbackFunc)
    MsgBox Parameter1
    MsgBox Parameter2
    Dim execResult As Boolean
    execResult = MethodName() ' 执行函数并获取返回值
End Sub

' MasterSub调用
Sub MasterSub()
    Dim Parameter1 As String
    Dim Parameter2 As String
    Parameter1 = "Ou"
    Parameter2 = "Yes"
    MySub2 Parameter1, Parameter2, AddressOf MyFunc1
End Sub

根据你的需求，方案1应该是最适合的，改动最小且能快速解决问题。

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