【EXCEL_VBA_基础知识】09 自定义函数和带参数的过程

课程来源：王佩丰老师的《王佩丰学VBA视频教程》，如有侵权，请联系删除！

目录

1. 自定义函数

1.1 注意事项：

1.2 创建自定义函数

1.3 工作表使用VBA函数（自定义函数作为桥梁）

2. 带参数的过程

2.1 注意事项

2.2 创建带参数的过程

2.3 调用带参数的过程

3. 使用加载宏工具

3.1 注意事项

3.2 操作步骤

---

1. 自定义函数

---

1.1 注意事项：

1. sub - 过程， function - 函数，唯一区别：function有返回值

2. function函数名变量的值为function函数的返回值！

1.2 创建自定义函数

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

1.3 工作表使用VBA函数（自定义函数作为桥梁）

Function Extract_Str(origin_str As String, div_str As String, i As Integer)

'origin_str 待拆分字符串
'div_str 分割符号
'i 取哪组

Extract_Str = VBA.Split(origin_str, div_str)(i - 1)

End Function

2. 带参数的过程

---

2.1 注意事项

1. 带参数的过程不在宏命令显示，需打开VBA模块才能查看！

2. 带参数的过程有参数值，无返回值（本质是过程）

2.2 创建带参数的过程（新建工作表 - 不重名）

Sub Create_WorkSheet(sht_name As String)
' 创建新工作表，重名则不创建

Dim temp_sht As Worksheet

For Each temp_sht In Sheets

    If temp_sht.Name = sht_name Then
    
        Exit Sub '有重名则退出过程
        
    End If

Next

    Sheets.Add after:=Sheets(Sheets.Count) '新建工作表
    Sheets(Sheets.Count).Name = sht_name '重命名工作表

End Sub

2.3 调用带参数的过程

Sub Sht1_Create_WorkSheet()

 '以Sheet1的A8单元格值新建并重命名工作表
Call Create_WorkSheet(Sheet1.Range("a8"))

End Sub

3. 使用加载宏工具

---

3.1 注意事项

1. 保存XLA文件时无需更改路径（默认保存至EXCEL的宏加载库）

2. 删除XLA文件前需停止加载，否则无法删除

3.2 操作步骤

1. 把代码放在"代码库"里（XLA文件）

2. 告诉EXCEL每次打开文件都加载

3. 设置宏按钮 或 在VBA模块中使用