【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模块中使用

相关推荐
愿你天黑有灯下雨有伞16 小时前
Java使用FastExcel实现Excel文件导入
java·excel
爆爆凯16 小时前
Excel 导入导出工具类文档
java·excel
凌康ACG1 天前
springboot打包二次压缩Excel导致损坏
spring boot·后端·excel
诸葛大钢铁1 天前
Excel转PDF的三种方法
笔记·职场和发展·pdf·excel
小小薛定谔2 天前
java操作Excel两种方式EasyExcel 和POI
java·python·excel
CodeCraft Studio2 天前
DHTMLX Suite 9.2 重磅发布:支持历史记录、类Excel交互、剪贴板、拖放增强等多项升级
javascript·excel·交互·表格·dhtmlx·grid·网格
小阳睡不醒2 天前
小白成长之路-Elasticsearch 7.0 配置
大数据·elasticsearch·excel
奋进的孤狼2 天前
【Excel】使用vlookup函数快速找出两列数据的差异项
excel
不讲废话的小白2 天前
解锁高效Excel技能:摆脱鼠标,快速编辑单元格
计算机外设·excel
CodeCraft Studio2 天前
Excel处理控件Aspose.Cells教程:使用 Python 在 Excel 中创建甘特图
python·excel·项目管理·甘特图·aspose·aspose.cells