如何给自定义函数的参数添加描述信息？

xzqzgr

谢谢，非常有用。不知道为什么，类似的程序，用下面链接中的就不行
http://club.excelhome.net/viewth ... p;extra=&page=1

xwloveyou888

Const Lib = """c:\windows\system32\user32.dll"""
Option Base 1

Private Function Multiply(N1 As Double, N2 As Double) As Double
  Multiply = N1 * N2
End Function


Private Function Divide(N1 As Double, N2 As Double) As Double
  Divide = N1 / N2
End Function



Sub Auto_open()

  Register "DIVIDE", 3, "Numerator,Divisor", 1, "Division", _
    "Divides two numbers", """Numerator"",""Divisor """, "CharPrevA"
  Register "MULTIPLY", 3, "Number1,Number2", 1, "Multiplication", _
    "Multiplies two numbers", """First number"",""Second number """, _
    "CharNextA"

End Sub


Sub Register(FunctionName As String, NbArgs As Integer, _
  Args As String, MacroType As Integer, Category As String, _
  Descr As String, DescrArgs As String, FLib As String)
  
  Application.ExecuteExcel4Macro _
  "REGISTER(" & Lib & ",""" & FLib & """,""" & String(NbArgs, "P") _
  & """,""" & FunctionName & """,""" & Args & """," & MacroType _
  & ",""" & Category & """,,,""" & Descr & """," & DescrArgs & ")"

End Sub



Sub Auto_close()
  
  Dim FName, FLib
  Dim I As Integer
  FName = Array("DIVIDE", "MULTIPLY")
  FLib = Array("CharPrevA", "CharNextA")
  For I = 1 To 2
    With Application
      .ExecuteExcel4Macro "UNREGISTER(" & FName(I) & ")"
      .ExecuteExcel4Macro "REGISTER(" & Lib & _
        ",""CharPrevA"",""P"",""" & FName(I) & """,,0)"
      .ExecuteExcel4Macro "UNREGISTER(" & FName(I) & ")"
    End With
  Next
  
End Sub
使用这个例子可以添加自定义函数说明。
对于xp系统，Const Lib = """c:\windows\system32\user32.dll"""，其他系统需要找到user32.dll的路径填入。输入代码保存后，需要重启excel改函数才能加入说明
代码原地址：http://www.j-walk.com/ss/excel/eee/eee009.txt
基本原理是利用了Excel4Macro来伪造一个自定义函数同名的dll，使用dll的说明在添加自定义函数的说明，而excel正常调用的函数为自定义函数，参数显示为dll。
国人的一个例子：http://www.excelba.com/Soft/Html/131.html    （ 给自定义函数添加说明的示例）

其他添加自定义函数说明的方法总结：http://hi.baidu.com/%B4%BA%B7%D6 ... a7b6ae6d811925.html

xwloveyou888

Const Lib = """c:windowssystem32user32.dll"""
Option Base 1

Private Function Multiply(N1 As Double, N2 As Double) As Double
  Multiply = N1 * N2
End Function


Private Function Divide(N1 As Double, N2 As Double) As Double
  Divide = N1 / N2
End Function



Sub Auto_open()

  Register "DIVIDE", 3, "Numerator,Divisor", 1, "Division", _
    "Divides two numbers", """Numerator"",""Divisor """, "CharPrevA"
  Register "MULTIPLY", 3, "Number1,Number2", 1, "Multiplication", _
    "Multiplies two numbers", """First number"",""Second number """, _
    "CharNextA"

End Sub


Sub Register(FunctionName As String, NbArgs As Integer, _
  Args As String, MacroType As Integer, Category As String, _
  Descr As String, DescrArgs As String, FLib As String)
  
  Application.ExecuteExcel4Macro _
  "REGISTER(" & Lib & ",""" & FLib & """,""" & String(NbArgs, "P") _
  & """,""" & FunctionName & """,""" & Args & """," & MacroType _
  & ",""" & Category & """,,,""" & Descr & """," & DescrArgs & ")"

End Sub



Sub Auto_close()
  
  Dim FName, FLib
  Dim I As Integer
  FName = Array("DIVIDE", "MULTIPLY")
  FLib = Array("CharPrevA", "CharNextA")
  For I = 1 To 2
    With Application
      .ExecuteExcel4Macro "UNREGISTER(" & FName(I) & ")"
      .ExecuteExcel4Macro "REGISTER(" & Lib & _
        ",""CharPrevA"",""P"",""" & FName(I) & """,,0)"
      .ExecuteExcel4Macro "UNREGISTER(" & FName(I) & ")"
    End With
  Next
  
End Sub
使用这个例子可以添加自定义函数说明。
对于xp系统，Const Lib = """c:windowssystem32user32.dll"""，其他系统需要找到user32.dll的路径填入。输入代码保存后，需要重启excel改函数才能加入说明
代码原地址：http://www.j-walk.com/ss/excel/eee/eee009.txt
基本原理是利用了Excel4Macro来伪造一个自定义函数同名的dll，使用dll的说明在添加自定义函数的说明，而excel正常调用的函数为自定义函数，参数显示为dll。
国人的一个例子：http://www.excelba.com/Soft/Html/131.html    （ 给自定义函数添加说明的示例）
国外的一个例子：http://www.jkp-ads.com/Articles/RegisterUDF00.asp
其他添加自定义函数说明的方法总结：http://hi.baidu.com/%B4%BA%B7%D6 ... a7b6ae6d811925.html

张三李四

MacroOptions 方法
参阅应用于示例特性对应于“宏选项”对话框中的选项。还可使用此方法将用户定义函数 (UDF) 显示在“插入函数”对话框的内置类别或新类别中。

expression.MacroOptions(Macro, Description, HasMenu, MenuText, HasShortcutKey, ShortcutKey, Category, StatusBar, HelpContextID, HelpFile)
expression      必需。该表达式返回一个 Application 对象。

Macro    Variant 类型，可选。宏的名称或用户定义函数 (UDF) 的名称。

Description      Variant 类型，可选。宏的说明。

HasMenu      Variant 类型，可选。忽略该参数。

MenuText      Variant 类型，可选。忽略该参数。

HasShortcutKey      Variant 类型，可选。如果该值为 True，则为此宏指定一个快捷键（必须指定 ShortcutKey 参数）。如果该值为 False，则不为此宏指定快捷键。如果此宏已经指定了快捷键，则将该参数设为 False 可清除已指定的快捷键。默认值为 False。

ShortcutKey      Variant 类型，可选。如果 HasShortcutKey 参数为 True，则必选；否则忽略该参数。指定快捷键。

Category    Variant 类型，可选。用于指定现有的宏函数类别的整数（例如，财务、日期与时间或用户定义）。请参阅说明部分，以确定映射到内置类别的整数。还可指定自定义类别的字符串。如果提供了一个字符串，它就会作为类别名称显示在“插入函数”对话框中。如果此类别名称从未使用过，则新的类别会用此名称定义。如果使用的类别名称与某个内置名称相同，则 Excel 会将用户定义的函数映射到此内置名称。

StatusBar      Variant 类型，可选。该宏的状态栏文字。

HelpContextId      Variant 类型，可选。用于指定对应于该宏的帮助主题上下文标识符的整数。

HelpFile      Variant 类型，可选。包含 HelpContextId 定义的帮助主题的帮助文件名。

说明
下表列出了哪些整数被映射到可在 Category 参数中使用的内置类别。

整数 类别
1 财务
2 日期与时间
3 数学与三角函数
4 统计
5 查找与引用
6 数据库
7 文本
8 逻辑
9 信息
10 命令
11 自定义
12 宏控件
13 DDE/ 外部
14 用户定义
15 第一个自定义类别
16 第二个自定义类别
17 第三个自定义类别
18 第四个自定义类别
19 第五个自定义类别
20 第六个自定义类别
21 第七个自定义类别
22 第八个自定义类别
23 第九个自定义类别
24 第十个自定义类别
25 第十一个自定义类别
26 第十二个自定义类别
27 第十三个自定义类别
28 第十四个自定义类别
29 第十五个自定义类别
30 第十六个自定义类别
31 第十七个自定义类别
32 第十八个自定义类别

示例
本示例将用户定义的宏“TestMacro”添加到名为“My Custom Category”的自定义类别中。运行本示例后，可以看到包含“TestMacro”用户定义函数的“My Custom Category”显示在“插入函数”对话框的“或选择类别”下拉列表中。

Function TestMacro()
    MsgBox ActiveWorkbook.Name
End Function

Sub AddUDFToCustomCategory()
    Application.MacroOptions Macro:="TestMacro", Category:="My Custom Category"
End Sub

andysky

这个知识点对于2011年来说 过时了
Excel 2010自身支持定义函数说明，极其简单

ming668

奇怪，上面的例子，增加了一个函数就不行。只能是两个。

wzw117

老外的就是好啊。代码写的很规范。

lance2098

看不懂
读者都是外国人么，发英文的！

jimclu

感谢楼主大大啊

wstenglong

真的看不懂啊