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

相关推荐
lijingguang2 小时前
excel和word文件默认用office打开而不是用wps
word·excel·wps
xurime3 小时前
Excelize 开源基础库发布 2.10.0 版本更新
golang·开源·github·excel·ai编程·go语言
SunkingYang1 天前
详细介绍C++中通过OLE操作excel时,一般会出现哪些异常,这些异常的原因是什么,如何来解决这些异常
c++·excel·解决方案·闪退·ole·异常类型·异常原因
Wu_hello_mi1 天前
Excel使用教程笔记
笔记·excel
恶猫1 天前
Polaris Officev9.9.12全功能解锁版
pdf·word·excel·ppt·office·办公·打工
杂货铺的小掌柜1 天前
apache poi excel 字体数量限制
java·excel·poi
东方佑1 天前
基于FastAPI与LangChain的Excel智能数据分析API开发实践
langchain·excel·fastapi
许泽宇的技术分享2 天前
当Excel遇上大语言模型:ExcelAgentTemplate架构深度剖析与实战指南
语言模型·架构·excel
gihigo19982 天前
基于MATLAB的Excel文件批量读取与循环处理
matlab·excel