Excel VBA如何通过单元格变量调用指定函数？编译错误求解

错误原因分析 #

你遇到的“compile error, expected array”错误，是因为Run usedFun(firNum, secNum)的写法不符合VBA的Run方法语法。Run要求函数名和参数分开传递，而非将参数嵌套在函数名的括号里。

方案一：修正Run方法的调用方式 #

这是最直接的解决方案，调整Run的参数传递逻辑，同时优化函数返回机制（移除全局变量，让函数直接返回结果，代码更模块化）。

修改后的完整代码：

Option Explicit

Sub main()
    Dim sht As Worksheet
    Set sht = ActiveSheet
    
    Dim usedFun As String
    ' 从单元格C3读取目标函数名
    usedFun = sht.Range("C3").Value
    
    Dim firNum As Integer
    Dim secNum As Integer
    firNum = 3
    secNum = 1
    
    Dim result As Integer
    ' 正确调用：函数名 + 逗号分隔的参数
    result = Run(usedFun, firNum, secNum)
    
    Debug.Print result
End Sub

Public Function plus(firNum As Integer, secNum As Integer) As Integer
    plus = firNum + secNum
End Function

Public Function minus(firNum As Integer, secNum As Integer) As Integer
    minus = firNum - secNum
End Function

方案二：使用Application.Evaluate动态拼接表达式 #

如果需要更灵活的调用方式，可以用Evaluate方法拼接完整的函数调用字符串，适配参数格式多变的场景。

示例代码：

Option Explicit

Sub main()
    Dim sht As Worksheet
    Set sht = ActiveSheet
    
    Dim usedFun As String
    usedFun = sht.Range("C3").Value
    
    Dim firNum As Integer
    Dim secNum As Integer
    firNum = 3
    secNum = 1
    
    Dim result As Integer
    ' 拼接函数调用字符串并执行
    result = Application.Evaluate(usedFun & "(" & firNum & "," & secNum & ")")
    
    Debug.Print result
End Sub

Public Function plus(firNum As Integer, secNum As Integer) As Integer
    plus = firNum + secNum
End Function

Public Function minus(firNum As Integer, secNum As Integer) As Integer
    minus = firNum - secNum
End Function

注意事项 #

• 确保单元格C3中的内容是准确的函数名（如plus或minus，不要添加括号）
• 被调用的函数必须是Public修饰的，或与调用代码在同一个模块中；如果函数在其他模块，需要加上模块名，比如Run "Module1.plus", firNum, secNum
• 两种方案都支持扩展任意数量的函数，无需修改调用逻辑，避免了Select Case带来的代码臃肿问题

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