VBA 过程(Sub) 入门教程和实例
学习完 Excel VBA 基础、VBA 变量以及程序结构,在本章《VBA 过程和函数》,将学习 VBA 中的另一个基础又核心的概念,过程(Sub)。
在今天的这篇文章,先学习 VBA 过程的基础,包括如何写、传入参数、执行和调用过程等。
写在前面
VBA 中,过程是一切的开始,几乎所有的代码,都会被写在一个或多个过程里。
实际开发中,通常一个过程,建议只完成一个特定的小目标。因此,我们的程序往往会包含多个过程。这就是 VBA 中过程概念存在的一个原因。
程序中使用过程,可以使程序更简洁、清晰,开发中大型项目更易于管理代码。
过程基础语法
VBA 过程以 Sub
语句开始,以 End Sub
语句结束,包含一个或多个语句,完成一个特定的目标。
无参数过程
无参数的 VBA 过程的基本语法如下:
Sub [过程名]()
语句1
语句2
...
语句n
End Sub
可以看到,过程以 Sub
语句开始,以 End Sub
语句结束,并且具备一个名称,名称后有括号 ()
。
我们看一个简单的例子。
Sub SayHello()
Msgbox "Hello World"
End Sub
上述就是一个简单的过程,过程名是 SayHello
。这个过程只包含一个语句,运行时,弹出对话框显示 Hello World
。
有参数过程
过程还可以接受一个或多个参数,参数可以是常量、变量、表达式,并且每个参数指定其名称。在过程的语句中,接受的参数,以名称指定方式被使用。
接受参数的过程基本语法如下:
Sub [过程名]([变量名1] As [数据类型1],...[变量名n] As [数据类型n])
语句1
语句2
...
语句n
End Sub
与无参数过程相比,有参数过程在过程名后的括号 ()
中,包含一个或多个参数。参数的写法与声明变量语句类似,不同点是在这里不用写 Dim
。
[变量名1] As [数据类型1]
我们看一个例子。
'声明一个过程
Sub SayHello(name As String)
Msgbox "Hello" & name
End Sub
'在另一个过程,调用上述过程,调用时,提供一个实际的 name 参数
Sub MyCode()
SayHello "World 2"
End Sub
我们在运行 MyCode
过程时,提供了 name
变量,即 World 2
,运行时弹出对话框显示 Hello World 2
。
调用子过程(Sub)
在程序开发中,把代码拆分成多个子过程和函数,可以使项目更容易管理、测试和运行,VBA 中也不例外。
实际开发中,项目通常具备一个主入口过程,或称为父过程。父过程通过调用多个子过程和函数,完成一系列复杂的操作。其中子过程和函数一般只负责一个操作或动作。
下面看一个简单的例子。
'主入口
Sub Main()
Dim name As String
Dim title As String
name = "Zhang san"
title = "CEO"
WriteInfo name & "," & title
End Sub
'子过程,在工作表A1单元格填写信息
Sub WriteInfo(info As String)
Range("A1") = info
End Sub
以上的例子中,Main
过程是一个主入口(父过程),程序从此处开始执行,先是给 name
和 title
变量赋值,最后调用 WriteInfo
子过程,将两个信息合并后写到工作表上的 A1 单元格。
接下来介绍调用子过程和函数的基本语法。
调用子过程有两种方法,直接调用和使用 Call 关键词调用。两种方法对子过程的参数有不同的要求。
直接调用
直接调用,直接写过程名,即可调用过程。
Sub Main()
MySub
End Sub
Sub MySub()
'代码
End Sub
如果子过程需要输入参数,多个参数只需用逗号(,)分开即可。
Sub Main()
MySub 2019,"年"
End Sub
Sub MySub(val1 As Integer, val2 As String)
'代码
End Sub
使用关键词 Call 调用
使用 Call 关键词调用时,Call 后接过程名。
Sub Main()
Call MySub
End Sub
Sub MySub()
'代码
End Sub
如果子过程需要输入参数,则需要将参数放在括号内。
Sub Main()
Call MySub(2019,"年")
End Sub
Sub MySub(val1 As Integer, val2 As String)
'代码
End Sub
注:程序角度看,调用过程时,不需要使用 Call 关键字,因此不建议此种方法。
提前退出过程
正常情况下,VBA 过程以 Sub
语句开始,以 End Sub
语句结束。但有时根据实际情况,可能需要提前结束并退出过程。VBA 提供 2 种提前退出过程的方法,Exit Sub
和 End
方法。
Exit Sub 语句
在一个过程中,当程序运行到 Exit Sub
语句时,立即结束当前过程,提前退出。
Sub Main()
Call MySub
Msgbox "父过程"
End Sub
Sub MySub()
Exit Sub
Msgbox "子过程"
End Sub
'运行 Main 过程,返回结果:
=> "父过程"
在以上例子中,Main
过程调用 MySub
子过程,遇到 Exit Sub
语句,立即退出子过程,回到父过程 Main
,继续运行余下的语句。
这里需要注意的是,Exit Sub
语句只作用于当前过程,不影响调用它的父过程。
End 语句
在一个过程,当程序运行到 End
语句时,立即结束当前运行的所有 VBA 过程。
Sub Main()
Call MySub
Msgbox "父过程"
End Sub
Sub MySub()
End
Msgbox "子过程"
End Sub
'运行 Main 过程,返回结果:
=> 无返回结果
在以上例子中,Main
过程调用 MySub
子过程,遇到 End
语句时,立即结束当前运行的所有过程,包括父过程 Main
。
在实际开发中,应谨慎使用 End
结束语句。End
语句的效果类似于电脑的强制关机命令,立即结束所有程序,不会保存任何值,于 VBA 有以下效果:
- 程序中对象的各类事件不会被触发;
- 任何在运行的 VBA 程序都会停止;
- 对象引用都会失效;
- 任何打开的窗体都被关闭。
总结
过程是 VBA 的一个核心概念,几乎所有的代码会写在一个或多个过程里。过程可以接受 0 个或多个参数,参数可以在过程或函数里使用。在过程中可以调用其他子过程,把复杂的代码分成若干个过程,使代码易于管理和编写。最后过程可以提前结束,做到不需要运行所有的语句就退出过程。
作者这教程写得太好了,行云流水,看得很过瘾,很容易理解,让人一下就懂了。能不能再出点其他教程,类似python啥的。
感谢肯定,继续努力
‘声明一个过程
Sub SayHello(name As String, no As Integer)
MsgBox “Hello” & name & no
End Sub
‘在另一个过程,调用上述过程,调用时,同时对参数进行赋值
Sub MyCode()
SayHello “world”, 2
End Sub
程序改写了一下,SayHello只声明了类型,不能单独使用;MyCode相对于引用了SayHello并且赋值
真的太好看了,少有的不扯淡,全是简单实在知识的好入门教程。
Sub sayHello(name As String)
MsgBox “Hello” & name
End Sub
Sub name()
sayHello “liyang”
End Sub
在执行的时候 报错
编译错误:
缺少:表达式
是啥原因啊?
name是一个预留的关键字,不能作为过程名使用,换成其他名称可以正常运行。
看到后面明白了,写的很清晰。谢谢。
这个地方没看懂
这个地方逻辑没理解。
程序是顺序运行的吧?
执行第一个子过程,显示消息框只能显示“hello”吧?因为那么这个参数还没有给给传递数据内容?
然后继续顺序执行到第7行,进入mycode这个子过程。
到了第8行,这个sayhello 是第一个子过程的名称,意思只要写子过程,名称,就会调用对应的子过程吗?返回头执行 sayhello这个子过程吗?但是“world2”是怎么传递给name 的?
实在没搞清楚这个运行逻辑,请解惑下
1、程序顺序执行是没错,但是这个例子中并不是先运行SayHello然后运行MyCode。程序运行需要一个入口,一般是一个过程,因此我们运行上述例子时,要么运行SayHello,要么是MyCode。
2、声明参数的过程无法作为程序入口,因为开始运行时,我们没法手动提供他所需要的参数。
3、基于以上两点,在文中所说,在另一个位置运行MyCode,他里面调用已经声明号的SayHello过程。
4、总结一下,每次运行代码,其实是入口的过程按顺序执行,其里面可以调用其他过程或函数。该入口运行完成后,代码运行就停止了。
Sub sayHello(waitingNextSubRespond As Integer)
MsgBox “Hello ” & waitingNextSubRespond
End Sub
Sub sayHelloForward()
sayHello “123”
End Sub
以上代码是我对于过程的理解运用,不知道我的理解会不会有点片面。
如果楼主发布示例时可以使用有描述性意义的变量名的话,我们学习起来就更容易了。
再次感谢楼主的辛苦付出,你是最棒的,辛苦了。
写的非常清晰 很有帮助 赞
太难了,云里雾里。。。
动手写一下过程,实战有助于理解
‘主入口
Sub Main()
Dim name As String
Dim title As String
name = “Zhang san”
title = “CEO”
WriteInfo name & “,” & title
End Sub
‘子过程,在工作表A1单元格填写信息
Sub WriteInfo(info As String)
Range(“A1”) = info
End Sub
子过程是有参数的过程,参数是info这个字符串,即:Sub WriteInfo(info As String)
子过程把参数填入了A1格子 ,即:Range(“A1”) = info
父过程调用子过程WriteInfo并提供参数name和 title ,即:WriteInfo name & “,” & title
父过程对name和 title进行了赋值
子过程参数在括号里,父过程里边直接把要输入的参数跟在子过程名字后边即可
Sub [过程名]([变量名1] As [数据类型1],…[变量名n] As [数据类型n])
问题: 请问这里的数据类型不能相同对吗? 比如说
sub information ( info1 as string, info2 as string) 这种是不可以的对吗? 我测试好像也不行
不是的,可以相同。这里1、2、3想表达第几个数据类型,并不是不同的类型。
有参数过程基本语法里 应该是语句1…语句n;不是语句3。
已修订,感谢反馈
有参数的过程与无参数但有声明变量语句的过程有什么区别吗?还是说就表示方式不一样?
Sub [过程名]([变量名1] As [数据类型1],…[变量名n] As [数据类型n])
语句1
语句2
…
语句3
End Sub
Sub [过程名] ()
Dim [变量1] As 数据类型1:Dim [变量2] As 数据类型2:Dim [变量3] As 数据类型3
语句1:语句2:语句3
End Sub
能不能传递参数是最大的区别。能传递参数,使得过程具备很强的灵活性,而不是一次性的代码。
例如,现在需要求两数之和(只是举例):
如果两数是确定的,则直接在过程内部声明两个变量,并进行求和;
但是实际中,两数不大可能是确定的,这时候通过传递参数的形式把两个参数传递到过程内部。这样可以应对任何两数之和的需求了。
上面语句3这里应该是语句n吧。
已修正,感谢反馈
讲得很好,条理性、逻辑性好!
能否解释一下这个语句,为什么调用是这样的格式?这里面”和&和,都是什么作用?
WriteInfo name & “,” & title
首先,WriteInfo 是一个子过程,接收一个文本类型参数。
然后,在父过程中,调用此过程,传递了【name & “,” & title】参数,作为一个整体。
最后,name 和 title 是变量,使用 & 符号进行连接。例如,假设 name 和 title 分别是”张三”和”CEO”,则相当于传递了”张三,CEO”这个文本类型数据。
感谢
学习过程中,发现网上关于 Sub 和 Function 的概念术语有两个版本。
1. 过程与函数
2. Sub过程(子过程)和 Function过程(函数过程)
我个人倾向与使用第二个术语,比较严谨;第一个说法显得很民间,容易造成概念混淆。
“在今天的这篇文章,先学习 VBA 过程的基础,包括如何写、传入参数、返回参数、执行和调用过程等。”
VBA中过程Sub是不是没有返回参数, 只有函数Function才有返回参数?
是的,sub 过程不返回数据,function 过程可以返回数据
对,那要更正下,去掉“返回参数”这个哈
谢谢反馈,已修正
请问文章中用于展示代码(黑底)的编写软件是?
使用的是highlight.js
Option Explicit
Sub kbc()
Dim i As Integer
For i = 2 To 10
If Cells(i, B).Value >= 60 Then
Cells(i, c).Value = “及格”
Else
Cells(i.c).Value = “不及格”
End If
End Sub
三个错误:
1. 文本需要使用英文双引号,”及格”;
2. For 语句未加结束语句,End For
3. Cells 里直接引用列,需要使用双引号,Cells(i, “b”)
报错 过程名变量未定义,已上传图片,帮忙看看谢谢
调用子过程的示例代码中有typo
WriteInfo 写成了 WiteInfo
谢谢,已更正。