VBA入门到进阶常用知识代码总结30

第30集 自定义函数基础
129、 什么是自定义函数
在VBA中有VBA函数，我们还可以调用工作表函数，我们能不能自已编写函数呢？可以，这就是本集所讲的自定义函数。
130、 怎么编写自定义函数
Function 函数名称(参数1,参数2…)

     代码
     函数名称=返回的值或数组

End Function
131、 怎么让自定义函数在所有工作簿中使用？
把含有自定义函数的文件另存为加载宏，然后通过工具-加载宏-浏览找到这个文件-确定。
132、 怎么给自定义函数添加说明？
工具-宏-宏名输入自定义函数的名称-选项–在说明栏中写入这个函数的名称。
133、 怎么给自定义函数分类？
Sub 分类()
Application.MacroOptions “不重复个数”, Category:=4
End Sub
'注:
'0 是全部
'1 财务
'2 日期和时间
'3 数学和三角
'4 统计
'5 查找和引用
'6 数据库
'7 文本
'8 逻辑
'9 信息
134、 自定义函数举例
'1 取得工作表总个数的自定义函数
Function shcount()
shcount = Sheets.Count
End Function

'2 取得单元格显示值的自定义函数
Function getv(rg As Range)
getv = rg.Text
End Function

'3 截取字符串的函数
Function jiequ(sr As String, fh As String, wz As Integer)
Dim Arr
Arr = Split(sr, fh)
jiequ = Arr(wz - 1)
End Function

'4 提取不重复值的个数
Function 不重复个数(rg As Range)
Dim d, Arr, ar
Arr = rg
Set d = CreateObject(“scripting.dictionary”)
For Each ar In Arr
d(ar) = “”
Next ar
不重复个数 = d.Count
End Function

'5 在VBA中使用自定义函数
Sub test()
MsgBox jiequ(“A-BRT-C-EF”, “-”, 2)
End Sub