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

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

目录

[1. 自定义函数](#1. 自定义函数)

[1.1 注意事项:](#1.1 注意事项:)

[1.2 创建自定义函数](#1.2 创建自定义函数)

[1.3 工作表使用VBA函数(自定义函数作为桥梁)](#1.3 工作表使用VBA函数(自定义函数作为桥梁))

[2. 带参数的过程](#2. 带参数的过程)

[2.1 注意事项](#2.1 注意事项)

[2.2 创建带参数的过程](#2.2 创建带参数的过程)

[2.3 调用带参数的过程](#2.3 调用带参数的过程)

[3. 使用加载宏工具](#3. 使用加载宏工具)

[3.1 注意事项](#3.1 注意事项)

[3.2 操作步骤](#3.2 操作步骤)


1. 自定义函数


1.1 注意事项:

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

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

1.2 创建自定义函数

vbnet 复制代码
Function Sex_Confirm(str As String)
If str = "男" Then
    Sex_Confirm = "先生"
Else
    Sex_Confirm = "女士"
End If
End Function

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

vbnet 复制代码
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 创建带参数的过程(新建工作表 - 不重名)

vbnet 复制代码
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 调用带参数的过程

vbnet 复制代码
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模块中使用

相关推荐
爱代码的小黄人8 小时前
Excel VLOOKUP函数使用详解:原理、格式、常见错误与解决方案
excel
YouYOUyouFairy10 小时前
EXCEL动态表格
excel
Maruko31011 小时前
Java 实现excel大批量导出
excel·poi
忧郁的蛋~11 小时前
HTML表格导出为Excel文件的实现方案
前端·html·excel
不坑老师19 小时前
利用不坑盒子的Copilot,快速排值班表
microsoft·word·powerpoint·excel·copilot·wps
开开心心就好1 天前
批量PDF转换工具,一键转换Word Excel
开发语言·前端·学习·pdf·电脑·word·excel
Fireworkitte1 天前
Apache POI 详解 - Java 操作 Excel/Word/PPT
java·apache·excel
Prodigy_kyw1 天前
VBA初学3----实战(VBA实现Excel转csv)
excel·vba·csv
红衣女妖仙2 天前
JXLS 库导出复杂 Excel
java·excel·jxls·java 导出 excel
吃我两拳2 天前
EasyExcel停止当前Sheet的读取,且不影响主线程及其他Sheet读取的方法
excel