自己用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这两种格式就可以看到以前的代码库,然后删除就可以了
网友评论