能否为VBA自定义函数分配类似API调用的别名？

嘿，这个需求很实用！可惜VBA里没办法直接用Alias关键字给自定义函数指定别名（Alias只适用于声明外部API函数），不过咱们有两个靠谱的变通方案，能实现你要的“用多个名称调用同一逻辑”的效果：

方案1：创建转发式别名函数（最简单直观） #

这是最常用的方法——写一个“壳函数”，里面啥逻辑都不用加，直接调用原函数就行，相当于给原函数起了个外号：

' 原函数，包含核心逻辑
Function myFunction() As Variant
    ' 这里写你的业务规则
    myFunction = "执行了myFunction的逻辑"
End Function

' 别名函数，直接转发调用原函数
Function myFunc() As Variant
    ' 把调用转交给原函数，返回结果一致
    myFunc = myFunction()
End Function

如果原函数有参数，别名函数只要完全复刻参数列表就行，比如：

Function myFunction(num As Integer) As Variant
    myFunction = num * 2
End Function

Function myFunc(num As Integer) As Variant
    myFunc = myFunction(num)
End Function

测试的时候就像你想要的那样，两个名称都能用：

Sub Test()
    Debug.Print myFunction() ' 输出：执行了myFunction的逻辑
    Debug.Print myFunc()     ' 输出：执行了myFunction的逻辑
End Sub

这个方案的优点是简单易懂，不需要折腾编辑器的隐藏设置，维护起来也方便；缺点就是如果原函数参数多，别名函数要同步修改参数，但总体来说是性价比最高的选择。

方案2：利用模块属性实现“真正的别名”（进阶技巧） #

如果你追求更“原生”的别名效果，可以通过修改VBA模块的隐藏属性来实现。步骤如下：

1. 在VBA编辑器里，右键点击包含myFunction的模块，选择导出文件，把模块保存为.bas格式。
2. 用记事本或其他文本编辑器打开这个.bas文件，在原函数和你想要作为别名的函数声明上方，添加Attribute VB_UserMemId = 0属性，比如：

Attribute VB_Name = "Module1"
' 给原函数加属性
Attribute myFunction.VB_UserMemId = 0
Function myFunction() As Variant
    myFunction = "执行了myFunction的逻辑"
End Function

' 给别名函数加同样的属性
Attribute myFunc.VB_UserMemId = 0
Function myFunc() As Variant
    ' 这里可以留空，因为属性会让它指向同一个逻辑
    ' 不过为了保险，也可以写myFunc = myFunction()
End Function

3. 保存修改后的.bas文件，回到VBA编辑器，右键点击模块列表，选择导入文件，把修改后的模块导回去（注意先删掉原来的模块，或者覆盖）。

这样设置后，myFunction和myFunc就会被VBA视为同一个函数的不同名称，调用任意一个都会执行原函数的逻辑。不过要注意：

• 两个函数的参数列表必须完全一致，否则会报错；
• 这个属性是隐藏的，在VBA编辑器里看不到，修改起来不如方案1方便，适合有一定VBA基础的用户。

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