Loading [MathJax]/jax/input/TeX/config.js
前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >专栏 >VBA函数与过程简洁教程

VBA函数与过程简洁教程

作者头像
林万程
发布于 2018-06-26 09:21:04
发布于 2018-06-26 09:21:04
1K00
代码可运行
举报
运行总次数:0
代码可运行

'VBA函数与过程简洁教程

Sub 过程名() 'Sub表示过程,在执行宏或图形右击指定宏中看得到,不能返回值

代码语言:javascript
代码运行次数:0
运行
AI代码解释
复制
Call 函数名(Array(1, 2), b) '调用过程并把返回值放入r

End Sub '结束过程

Function 函数名(a, Optional ByVal b) 'Function表示函数,在单元格中也可以使用,宏列表看不到,可以使宏列表简洁 'VBA默认ByRef会改变原参数的值,所以加了ByVal

代码语言:javascript
代码运行次数:0
运行
AI代码解释
复制
If IsMissing(b) Then b = 1
'Optional表示参数可以选择性省略,上面的语句是如果没有时设定值,常用设定可选来灵活调试,如果有一个非可选就不能直接运行

ReDim arr(UBound(a)) '定义可变数组,UBound()是求最大下标值

arr(1) = b

函数名 = arr '返回值,仅Function可用

Exit Function '退出函数,不要用returnreturn是在一个程序中回到GoSub后一行

End Function '结束函数

本文参与 腾讯云自媒体同步曝光计划,分享自作者个人站点/博客。
原始发表:2017.01.22 ,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
暂无评论
推荐阅读
编辑精选文章
换一批
VBA导入
Sub 手动导入表() selectfiles = Application.GetOpenFilename("," & ".", , "打开", , True) '选择文件 If TypeName(selectfiles) = "Boolean" Then '若未选择则结束程序运行 Exit Sub End If 关闭功能 For fi = 1 To UBound(selectfiles) Call 导入表(selectfiles(fi), 路径文件名(selectfiles(fi))) N
林万程
2018/06/21
2.6K0
VBA解析VBAProject 05——提取模块代码
通过前面的文章能够知道,每一个模块的代码,在VBAProject中也就是一个数据流,这个数据流经过了run length encoding的算法进行压缩。
xyj
2020/10/27
2.3K0
VBA解析VBAProject 06——清除VBA工程密码
如果你收到过一些这样的Excel文件,文件里有VBA代码,实现了很好的功能,可是作者却对VBA工程进行了加密,你可能会非常希望查看到里面的VBA代码。
xyj
2020/10/27
6.8K0
VBA基础知识整理[通俗易懂]
发布者:全栈程序员栈长,转载请注明出处:https://javaforall.cn/136348.html原文链接:https://javaforall.cn
全栈程序员站长
2022/09/06
1.9K0
VBA数组(四)数组函数
VBA中操作数组的函数主要有以下几个,LBound函数和UBound函数、Array函数、IsArray函数、Erase函数、Split函数、Join函数,后面分两节介绍数组函数。
无言之月
2019/10/13
5.9K0
VBA实现排列组合(可重复)
这么一个功能的使用场景可以是这样的,比如设置了一个6位数字的密码,但是忘记了,有一个程序可以快速的去测试密码,这时候就需要逐个去测试可能的密码。
xyj
2021/10/20
2.8K0
创建MyVBA加载宏
MyVBA加载宏主要功能是设置为自动加载,作为打开其他宏文件的一个程序,做好后大概是这么一个东西:
xyj
2020/07/28
1.1K0
创建MyVBA加载宏
VBA实现自己的ArrayPtr取数组地址函数
在VBA数据类型Array中,我们提到了取数组的函数,是使用1个API函数VarPtrArray ,要声明这么一个不大常用的API总觉得不大方便,我就在想能不能不需要API也可以获取到数组的地址呢?
xyj
2020/07/28
1.6K0
用VBA实现Excel函数03:SUMIF
SUMIF,条件求和函数,是一个常用的数据统计公式。SUMIF函数原理可以分步理解:
xyj
2020/07/28
6.4K0
用VBA实现Excel函数03:SUMIF
用VBA实现Excel函数01:VLOOKUP
很多学习VBA的应该都是在使用了一段时间的Excel之后,想弥补一些Excel本身的不足、或者是实现一些自动化操作。
xyj
2020/07/28
8.4K0
用VBA实现Excel函数01:VLOOKUP
VBA Excel结合手机二维码扫描获取发票数据
'-------------------------------------------------------------------------------
办公魔盒
2019/07/22
1.7K0
VBA Excel结合手机二维码扫描获取发票数据
VBA实用小程序79:统计不同值或唯一值的VBA自定义函数
我们说,这组数据有6个不同值:a,b,c,d,e,f;有3个唯一值:c,d,f,因为它们在列表中只出现了1次。
fanjy
2021/07/12
1.9K0
VBA实用小程序79:统计不同值或唯一值的VBA自定义函数
简谈VBA的Split函数
Excel VBA提供了一种自定义的方式来拆分单元格中的文本,即Split函数,这在需要将单元格的内容拆分为许多部分时非常有用。
fanjy
2022/11/16
3.2K0
简谈VBA的Split函数
用VBA实现Excel函数02:SUM
说到Excel的SUM函数,我估计只要用过Excel的,应该没人不知道了,SUM函数多简单啊,点一下自动求和,自动就能定位好范围,回车就完成了。
xyj
2020/07/28
3K0
Vba菜鸟教程[通俗易懂]
官方文档:https://docs.microsoft.com/zh-cn/office/vba/api/overview/language-reference 代码完成后:工具-vbaproject属性-保护-查看时锁定-密码
全栈程序员站长
2022/09/05
17.9K0
Vba菜鸟教程[通俗易懂]
VBA编写Ribbon Custom UI编辑器05——转换结构体XML
类CXML解析xml文本获取XML结构体之后,需要进一步转换为一个二维数组输出到Excel单元格。 同时还需要一个相反的函数,Excel单元格数据转换为XML结构体。 01 XML结构体转换为二维数组 Public Function XML2Array(tXML As XML) As String() Dim arr() As String Dim pcol As Long '记录属性所在的列 Dim h As CHash '注意:这里应该先遍历一次,获取所有不重复属
xyj
2020/08/18
9670
Excel VBA编程
在Excel中,数据只有文本,数值,日期值,逻辑值和错误值五种类型。但是在VBA中,数据类型跟Excel不完全相同。根据数据的特点,VBA将数据分为布尔型(boolean),字节型(byte),整数型(integer),单精度浮点型(single),双精度浮点型(double),货币型(currency),小数型(decimal),字符串型(string),日期型(date),对象型等等
全栈程序员站长
2022/08/11
46.9K0
Excel VBA编程
实战 | 钓鱼与社工系列之office宏
根据多次项目实战中发现,office宏仍然是最高的成功率,在静默钓鱼中也是最不容易触发人员的警觉。因为大部分员工即使有安全意识,也是不运行陌生的exe程序,但是对于word文档则没有足够的安全意识,认为word文档都是安全的。正是基于此心理状态,office宏在钓鱼中仍然占据重要成分。
HACK学习
2021/12/08
1.7K0
实战 | 钓鱼与社工系列之office宏
VB6,VBA数组去重复项函数(2个一个单去重,一个去重含自身)
VBA/VB6移除数组中重复的数据 需要引用 'Microsoft Scripting Runtime' Function ArrDelAsMe(ByVal arr As Variant) As Variant ''数组去重复项包括重复项自身 ' 这个函数是移除数组中重复的数据,包括自身
办公魔盒
2019/07/22
5.8K0
VB6,VBA数组去重复项函数(2个一个单去重,一个去重含自身)
使用VBA实现多个值组合查找
假设工作表中包含三列,即列A中是水果名,列B中是颜色,列C中是产地,现在查找同时包含“apple”、“red”和“Hungary”的行,可以使用下面的代码:
fanjy
2024/03/11
4320
使用VBA实现多个值组合查找
相关推荐
VBA导入
更多 >
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档
本文部分代码块支持一键运行,欢迎体验
本文部分代码块支持一键运行,欢迎体验