VBA-自定義函數和帶參數的過程

自定義函數

在VBA中自定義函數 使用如下 function 函數名 （輸入的參數）

Function zmj(str As String)
 zmj = str / 6.4 + str * 2 + 8
End Function

VBA中有個很好用的函數split 分割  可以通過自定義函數將其寫成公式 應用到 excel中

Function eSplit(str As String, str1 As String, i As Integer)
    eSplit = Split(str, str1)(i - 1)   字符 按什么分割  取第幾個數組中的數
End Function

帶參數的過程

　　作用是能節省代碼 如下面 兩個表sheet1 sheet2都需要創建表 ，但是創建表的規則是一樣的，那么可以把相同的代碼，創建成帶參數的過程

Sub cjb(str1 As String)
Dim sht As Worksheet
For Each sht In Sheets
    If sht.Name = str1 Then
        k = 1
    End If
Next
If k = 0 Then
    Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = str1
End If

End Sub
---------------------------

Sub abc1()
Call cjb(Sheet1.Range("a2"))
Sheet1.Select
End Sub
---------------------------
Sub abc2()
Call cjb(Sheet2.Range("a2"))
Sheet2.Select
End Sub

加載宏

　　我們編寫的比較通用性的代碼可以放在excel的代碼庫里，這樣以后就可以像正常函數一樣使用

　　第一步：將代碼添加到excel的代碼庫中

　　1）然后點擊文件 >>>另存為 >>>>瀏覽  然后 出現對話框  點擊 保存類型>>>再點擊excel97-2003加載宏 或者 excel 加載宏 都行，然后，可以修改文件名（建議是：自編代碼庫）然后 點擊保存。

 

 　　第二步：加載宏

　　1）點擊任意excel文件>>點擊文件>>點擊選項

　　2）然后出現窗口，點擊“加載項”，再點擊“轉到”

　　3）之后出現下面窗口 勾線 你上面保存的文件名 然后再確定

　　第三步：制作按鈕

　　操作如下