如何构建VBA的MyUDF函数以匹配CallByName的签名与参数行为

核心实现思路 #

要让MyUDF()完全匹配CallByName()的签名、可选参数行为，同时完成参数复制与传递，需严格对齐VBA内置CallByName的参数定义，利用参数数组特性处理可变参数，通过模块级变量存储参数副本。

步骤1：复刻CallByName()的签名与可选参数 #

VBA内置CallByName的官方签名为：

Public Function CallByName( _
    Object As Object, _
    ProcName As String, _
    CallType As VbCallType, _
    ParamArray Args() As Variant _
) As Variant

MyUDF()需完全复刻该签名，包括参数顺序、类型、可选性（ParamArray本身默认可选，调用时允许不传Args参数）。

步骤2：参数复制与传递实现 #

在模块顶部声明模块级变量ArgsCopy，函数内部先处理参数数组的复制逻辑，再传递给CallByName，同时兼容未传Args参数的场景。

完整代码 #

' 模块级变量，存储Args参数副本
Private ArgsCopy As Variant

Public Function MyUDF( _
    Object As Object, _
    ProcName As String, _
    CallType As VbCallType, _
    ParamArray Args() As Variant _
) As Variant
    ' 处理未传入Args的情况
    If UBound(Args) = -1 Then
        ArgsCopy = Array()
        MyUDF = CallByName(Object, ProcName, CallType)
    Else
        ' 复制参数数组到模块变量
        ReDim ArgsCopy(LBound(Args) To UBound(Args))
        Dim i As Long
        For i = LBound(Args) To UBound(Args)
            ArgsCopy(i) = Args(i)
        Next i
        ' 传递参数调用CallByName
        MyUDF = CallByName(Object, ProcName, CallType, Args)
    End If
End Function

跨平台（Mac/Windows）支持 #

• 代码基于标准VBA语法，CallByName、ParamArray、模块级变量在Mac和Windows版VBA中均兼容，无需额外修改即可跨平台运行。
• 注意：Mac版VBA对部分对象模型的支持可能存在差异，但MyUDF()本身逻辑与平台无关，只要CallByName能正常调用目标对象，即可正常工作。

编辑器签名显示优化 #

只要MyUDF()的参数定义与CallByName()完全一致，VBA编辑器在输入函数时会自动显示与CallByName()相同的签名提示，包括参数名称、类型和可选性标识。

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