1. 创建自定义函数

案例引入

---

Function zmj(x)
zmj = x / 6.03 - x * 0.03
End Function

Function ch(str As String)
If str = "男" Then
    ch = "先生"
Else
    ch = "女士"
End If
End Function

---

日期转换和身份证提取的函数简便写法

Function rq(str As String)
    rq = DateSerial(Left(str, 4), Mid(str, 5, 2), Right(str, 2))
End Function

身份证中出生日期的提取则可以写成这样

---

2. 创建带参数的过程

还是以新建工作表为例

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的a列中有需新建的表名'
Sheet1.Select  '新建完表后回到sheet1'
End Sub

3. 使用加载宏工具

目的时为了可以让写的宏加载到Excel的主程序中，随时可以用

1. 把写好的代码另存到 .xla的 ADDins文件夹下，Excel唯一承认的代码库

   
   

2. 开发工具中的加载项勾选该宏

   
   
3. 可把加载的宏生成按钮放在自定义访问工具栏中（定义的时函数时可以不要，过程才需要）

删除加载的工具

1. 先在加载项中去掉勾选
2. 将文件另存为 .xla格式时可以看到 ADDins文件夹下的文件，在去删除。