Excel-VBA生成自定义函数帮助

应用场景

生成自定义函数的帮助说明部分，更容易理解自定义函数的用法

知识要点

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

2：表达式.MacroOptions(Macro, Description, HasMenu, MenuText, HasShortcutKey, ShortcutKey, Category, StatusBar, HelpContextID, HelpFile)

3：Macro 宏的名称或用户自定义函数的名称

4：Description  宏的名称或用户自定义函数的描述

5：Category  指定自定义类别的字符串，将作为类别名称显示在“插入函数”对话框中

6：如果此类别名称从未使用过，则将用该名称定义一个新的类别。如果使用的类别名称与某个内置名称相同，则 Excel 会将用户定义的函数映射为此内置类别。

Function 重复(检查区域 As Range) As Boolean '自定义名为“重复”的自定义函数，其值为true 或者false，为true时表示有重复

    Application.Volatile '声明为易失性函数

    Dim Cell As Range, Only As New Collection

    On Error Resume Next

    For Each Cell In Intersect(检查区域, ActiveSheet.UsedRange)

        '遍历参数与已用区域的交集

        If Len(Cell) > 0 Then Only.Add Cell.Text, CStr(Cell.Text)

        '将单元格的值导入only集合

        If Err <> 0 Then 重复 = True: Exit For  '如果有错误则函数返回true，并终止循环

    Next Cell

End Function

Sub 生成函数帮助()

    If Application.Version * 1 <= 11 Then '如果excle 2007 以前的版本

        Application.MacroOptions macro:='重复', Description:='判断指定区域中是否有重复单元格的函数：只有一个参数，即单元格引用，可以引用单元格，也可以引用区域，' & _

                                         '如果结果为true表示区域中有重复值，否则表示无重复值。', Category:='我的新函数'

    Else  '否则 2007 2010的版本

        Application.MacroOptions macro:='重复', Description:='判断指定区域中是否有重复单元格的函数：只有一个参数，即单元格引用，可以引用单元格，也可以引用区域，' & _

                                         '如果结果为true表示区域中有重复值，否则表示无重复值，其中空白单元格出现多次的话不算重复值', Category:='我的新函数'

    End If

End Sub