VBA-自定义函数和带参数的过程

时间：2020-04-06 11:22:21 阅读：175 评论：0 收藏：0 [点我收藏+]

自定义函数

在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