7 自定义函数和带参数过程

自己用vba定义函数例如

Function zj(x)

 Zj=x/6.03-x*0.03

End function

Function ch(str As String)

If str = "男"

Then

   ch = "先生"

Else

   ch = "女士"

End If

End Function

括号里面的是变量，

Vba中定义的函数和普通函数一样都可以用来嵌套。

把vba中的函数用在工作表中

Function ss(x, y, z)

ss = Split(x, y)(z - 1)

End Function

定义带参数的过程

Sub cjb(str As String)   （建表）

Dim sht As Worksheet

For Each sht In Sheets

   If sht.Name = str Then

       k = 1

   End If

Next

If k = 0 Then

   Sheets.Add after:=Sheets(Sheets.Count)

   Sheets(Sheets.Count).Name = str

End If

End Sub

Sub abc1()

Call cjb(Sheet1.Range("a1"))

Sheet1.Select

End Sub

建立代码库

第一步：把通用代码复制到一个新的工作簿

第二步：把新的工作簿另存，注意另存的格式是XLa或者xlam这两种格式，文件保存在microsoft\addins只能是这个路径，别的路径EXCEL不能够识别

---

第三步：在开发工具—加载项中，勾选那个工作簿的名称

第四步：自定义功能区，在宏这个选项中找到那个代码名称，添加到自定义功能区

删除代码库

第一步： 新建一个工作簿，取消开发工具-加载项中对自己定义的代码库的勾选

第二步：将新建的工作簿另存为XLA或者xlam这两种格式就可以看到以前的代码库，然后删除就可以了