Excel使用函数在A列提取最后一个星号后的数字并在B列显示
1343
2022-08-10
VBA如何自定义函数及使用、添加说明、分类(vba自定义类型)
'1 什么是自定义函数?
'在VBA中有VBA函数,我们还可以调用工作表函数,我们能不能自已编写函数呢?可以,这就是本集所讲的自定义函数
'2 怎么编写自定义函数?
'我们可以按下面的结构编写自定义函数
' Function 函数名称(参数1,参数2....)
'代码
'函数名称=返回的值或数组
' End Function
'1 怎么让自定义函数在所有工作簿中使用?
'答: 把含有自定义函数的文件另存为加截宏,然后通过工具-加截宏-浏览找到这个文件-确定。
'2 怎么给自定义函数添加说明
'工具-宏-宏名输入自定义函数的名称-选项--在说明栏中写入这个函数的名称
'3、怎么给自定义函数分类
Sub 分类()
Application.MacroOptions "不重复个数", Category:=4
End Sub
'注:
'0 是全部
'1 财务
'2 日期和时间
'3 数学和三角
'4 统计
'5 查找和引用
'6 数据库
'7 文本
'8 逻辑
'9 信息
'1 取得工作表总个数的自定义函数
Function shcount()
shcount = Sheets.Count
End Function
Sub dd()
MsgBox getv(Range("a7"))
End Sub
'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
Sub test()
MsgBox jiequ("A-BRT-C-EF", "-", 2)
End Sub
发表评论
暂时没有评论,来抢沙发吧~