VBA如何自定义函数及使用、添加说明、分类(vba自定义类型)

fangcloud 1378 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

本站部分文章、图片属于网络上可搜索到的公开信息,均用于学习和交流用途,不能代表亿方云的观点、立场或意见。我们接受网民的监督,如发现任何违法内容或侵犯了您的权益,请第一时间联系小编邮箱daifeng@360.cn 处理。
上一篇:xp系统打印出来显示不全(为什么打印的时候显示不全)
下一篇:国内业务的发展对深圳一半物流企业将推动(深圳市物流发展现状)
相关文章

 发表评论

暂时没有评论,来抢沙发吧~