VBA如何自定義函數(shù)及使用、添加說明、分類（Vba自定義函數(shù)）

'1 什么是自定義函數(shù)？

'在VBA中有VBA函數(shù)，我們還可以調(diào)用工作表函數(shù)，我們能不能自已編寫函數(shù)呢？可以，這就是本集所講的自定義函數(shù)

'2 怎么編寫自定義函數(shù)？

'我們可以按下面的結(jié)構(gòu)編寫自定義函數(shù)

' Function 函數(shù)名稱(參數(shù)1,參數(shù)2....)

'代碼

'函數(shù)名稱=返回的值或數(shù)組

' End Function

'1 怎么讓自定義函數(shù)在所有工作簿中使用？

'答： 把含有自定義函數(shù)的文件另存為加截宏，然后通過工具-加截宏-瀏覽找到這個文件-確定。

'2 怎么給自定義函數(shù)添加說明

'工具-宏-宏名輸入自定義函數(shù)的名稱-選項--在說明欄中寫入這個函數(shù)的名稱

'3、怎么給自定義函數(shù)分類

Sub 分類()

Application.MacroOptions "不重復個數(shù)", Category:=4

End Sub

'注:

'0 是全部

'1 財務

'2 日期和時間

'3 數(shù)學和三角

'4 統(tǒng)計

'5 查找和引用

'6 數(shù)據(jù)庫

'7 文本

'8 邏輯

'9 信息

'1 取得工作表總個數(shù)的自定義函數(shù)

Function shcount()

shcount = Sheets.Count

End Function

Sub dd()

MsgBox getv(Range("a7"))

End Sub

'2 取得單元格顯示值的自定義函數(shù)

Function getv(rg As Range)

getv = rg.Text

End Function

'3 截取字符串的函數(shù)

Function jiequ(sr As String, fh As String, wz As Integer)

Dim Arr

Arr = Split(sr, fh)

jiequ = Arr(wz - 1)

End Function

'4 提取不重復值的個數(shù)

Function 不重復個數(shù)(rg As Range)

Dim d, Arr, ar

Arr = rg

Set d = CreateObject("scripting.dictionary")

For Each ar In Arr

d(ar) = ""

Next ar

不重復個數(shù) = d.Count

End Function

Sub test()

MsgBox jiequ("A-BRT-C-EF", "-", 2)

End Sub

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。