Sub过程与程序流程控制语句

Excel Home VBA培训班小结

第四课时Sub过程与程序流程控制语句

讲师：ggsmart（叶枫）

学员：denkey1

内容大纲：

一、Sub过程

二、程序流程控制语句

在前面的课程中，学习了VBA的开发环境，并通过录制宏功能认识到宏这种最简单的VBA程序的学习，对宏有了较为清楚的认识。录制宏是一个很方便也很有用的功能，特别是简单重复的操作，使用录制宏和执行宏能极大提高工作效率。尽管如此，使用录制宏功能得到的VBA代码，仍有很多的局限性，比如：不能进行人机交互，不能进行判断、循环等，宏只是简单录制下来执行的每一个步骤语句。显然，这远不能满足我们的需要。那么，自己动手编写可以随意控制的程序以满足更高的需求，就是这一节课教给我的东西。

一、Sub过程

1、过程

过程就是一个小程序，是一组相关操作命令的组合，即一个过程就是一组完成所需操作的VBA代码的组合。VBA中每一个程序都包含过程，且VBA的主体结构就是过程。

VBA的过程主要包括Sub过程和Function过程两种，两种过程的区别在于：Sub过程不可以返回程序运行的值，Function过程可以返回程序的运行值，即前者不可以返回值，后者可以返回值。

本次课主要学习的是Sub过程。

2、声明Sub过程

录制的宏就是一个简单的Sub过程，使用录制宏功能只能生成Sub过程的代码。

在示例1中通过录制宏功能，得到如下代码：

通过观察比较以上的两个宏代码，可以发现Sub过程的特点：（1）以“Sub过程名()”开头，以“End Sub”结尾；

（2）Sub过程一般保存在“模块”里；

（3）不返回运行结果。

声明Sub过程的语法形式为：

[Public | Private | Friend] [Static]Sub过程名称([参数1,参数2……]) [语句块]

[Exit Sub]

[语句块]

End Sub

其中，[]中括号括起来的部分表示可选的参数，如[Public | Private | Friend]、[Static]等，这些关键字与作用的范围有关，只能选择一个，含义分别为：

（1）Public表示声明的过程是一个公共的过程，即该工作簿中的其它模块中的过程也可以访问声明的这个过程；

（2）Private表示声明的过程是一个私有的过程，只有在同一个模块中的其它过程才可以访问声明的这个过程。

（3）Friend用在类模块里。

（4）Static是静态的意思，表示声明的过程中的局部变量将被保存，在下次调用的时候仍保存原来的值。

蓝色部分的Sub过程名称()、End Sub是必须的，分别标明过程的开始和结束。括号里的[参数1,参数2……]是一系列的变量，以逗号分隔将传递的参数值，如果过程没有任何参数，可以省略，如以上录制的两个宏都是没有参数的Sub过程。

[Exit Sub]表示在过程结束之前强制退出。

3、试着编写一个Sub过程

新打开的VBE编辑器，在工程资源管理中的空白处单击右键，选择“插入→模块”，便新建了一个模块。可以在同一个模块里编写多个过程，也可以保存在不同的模块中。双击“模块1”，便可在右边的代码窗口编写Sub过程。

在模块中创建一个名为“mysub”的Sub过程如下：

同时，将光标定位至代码中，点击鼠标右键，选择Smart Indent→Indent Procedure，调整代码的缩进，如图：

调整后，如下：

将光标定位至此代码中，点击工具栏中的“运行子过程/用户窗体”按钮，或按快捷键F5，运行此过程，弹出一个对话框，如下图：

此过程中并未设定Public或Private等显示关键字，则按照缺省的情况为Public过程，即默认为公共的过程。如果不打算公开某个过程，则要在Sub前面加Private关键字，定义为私有过程。

在刚才建立的模块中建立一个名为“siyou”的私有过程并运行如下：

4、从过程执行另一个过程

上面的两个过程都只有一行代码，诚然VBA并没有限定代码的行数，可以在一个过程里编写成千上万条代码，但随着代码行数的增加，错误也可能会增加。因此，将很长的代码分拆到多个过程里，通过创建一些小型过程代替单个的大型过程，是一种很好的编程习惯。

从过程执行另一个过程共有三种方法。

（1）输入过程名称以及参数，参数用逗号隔开；

过程名[,参数1,参数2,…]

在刚才的模块中建立一个名为“test”的过程，调用执行“mysub”过程，代码如下：

将光标定位至代码中执行此过程，便弹出刚才的第一个对话框。

或者将光标定位至上述代码中的mysub之后，点击菜单栏中“工具→宏”，选择执行名为test的宏。

注意到，上面的宏对话框中并没有名为siyou的过程，这是因为此工程是一个私有的过程。虽然不显示，但仍然可以调用。

（2）在过程名称以及参数前使用Call关键字，参数用括号括起来，并用逗号隔开；

Call过程名[(参数1,参数2,…)]

（3）利用Application对象的Run方法。

Application. Run表示过程名的字符串（或字符串变量）[,参数1,参数2,…]

Application. Run “mysub”直接调用过程名，也可以定义一个字符串变量，并将过程名赋值，如Application. Run a。

以上为从过程执行另一个过程的三种方法，都是在同一个模块中调用，如果在其它模块中是否都能调用呢？经尝试后，发现定义为Private的过程在不同的模块中是无法调用的。

二、程序流程控制语句——判断与循环

语句是过程的核心，VBA语句按执行顺序可以分为顺序结构语句、判断分支语句和循环语句。顾名思义，顺序结构语句就是从上到下由程序的第一行执行到最后一行，如赋值和过程调用语句等，录制的宏代码也属于此类语句；判断分支语句也叫结构选择语句，是根据条件，跳过部分语句执行另一部分的语句；循环语句就是重复执行某一段语句。本次课学习的是判断分支语句和循环语句，判断分支语句主要有If语句和Select Case语句，循环语句主要有For语句和Do 语句。

1、If语句

If语句根据条件变量的不同来执行，语句形式为：