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

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

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