如何为自定义函数添加函数功能说明？

楼主
gvntw

Q：如何为自定义函数添加函数功能说明？
A：使用 Application.MacroOptions 方法，代码如下：

Function DA$(num As Long, mType As Byte)
If mType <> 1 And mType <> 2 Then
DA = ""
Exit Function
End If
DA = Application.Text(num, "[DBNum" & mType & "]")
End Function
Sub 按钮1_Click()
Application.MacroOptions Macro:="DA", Description:="说明：把数字转换为中文大小写数字，mType 为1时，中文小写数字，为2时，中文大写数字。"
ActiveCell.Formula = "=DA()"
Application.Dialogs(xlDialogFunctionWizard).Show
End Sub

操作动画：

示例附件：

为自定义函数添加说明.zip

2楼
chrisfang

MacroOptions方法还可以对自定义函数进行分类，添加代码以后可以在插入函数的分类列表中显示对应的自定义函数。
例如已有自定义函数myvlookup，可在Workbook中添加以下代码：

Private Sub Workbook_Open()
Application.MacroOptions Macro:="myvlookup", Description:="正反向查询Vlookup", Category:=5
End Sub

其中Category:=5表示将此函数归类为“查找和引用”函数。

Category参数定义如下：

Integer	类别
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	第十八个自定义类别

上一篇：如何使双击受保住工作表的锁定单元格时不弹出警告框？
下一篇：如何为自定义函数指定类别？

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

猜您喜欢

评论列表

sitemap