Excel 发布之前,用户已经可以为自定义函数(User-Defined Function)添加一系列的信息,比如描述等等。但是无法用常规的手段为自定义函数的参数添加描述信息。Excel 及以后版本这个问题得到了解决。微软改进了 VBA 中 Application 对象的 MacroOptions 方法——在原来的基础上添加了一个 ArgumentDescriptions 参数,利用此参数就可以为用户自定义函数添加描述信息了。以下给出一个具体例子来说明这个方法的具体应用,将后列的代码复制到一个标准模块中,然后执行其中的 RegUDF 过程,你就可以在 中使用‍ FunArgDes 函数了

Office Excel VBA 添加自定义函数的参数描述

具体代码:

‘用户自定义函数
Function FunArgDes(int1 As Integer, int2 As Integer) As Integer
FunArgDes = int1 + int2
End Function

‘此过程用户注册自定义函数
Sub RegUDF()
Dim FuncName As String ‘函数名称
Dim FuncDesc As String ‘函数描述
Dim Category As String ‘函数类别
Dim ArgDesc(1) As String ‘函数参数描述数组
FuncName = "FunArgDes"
FuncDesc = "返回两个整数的和(测试函数参数描述)"
Category = "函数参数描述测试"
ArgDesc(0) = "函数参数第一个,整型"
ArgDesc(1) = "函数参数第二个,整型"
Call Application.MacroOptions(Macro:=FuncName, Description:=FuncDesc, Category:=Category, ArgumentDescriptions:=ArgDesc)
End Sub

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注