第9章 Sub过程

第9章Sub过程第9章Sub过程ＶＢＡ应用程序是由过程组成的，使用Excel VBA开发应用程序就是在编写过程。

前面各章中已经多次使用到过程。

9.1 过程的分类过程是指由一组完成指定任务的ＶＢＡ语句组成的代码集合。

在ＶＢＡ中，可执行的代码都必须放置在过程中。

ＶＢＡ中的过程可分为事件过程、属性过程和通用过程。

1. 事件过程事件过程是当发生某个事件（如单击、双击）时，对该事件做出响应的程序段。

事件过程位于对象所在模块中，例如有关工作簿的事件代码放置在ThisWorkbook对象的代码模块中。

在打开工作簿时将调用的程序代码可放置在Workbook对象的Open事件中，如图9-1所示。

2. 属性过程在“类模块”中设置类的属性值时，可通过“属性过程”来完成。

3. 通用过程有时在不同的事件过程中需要执行一段相同的代码，可以把这段代码独立出来，作为一个过程，这样的过程称为“通用过程”。

在ＶＢＡ中，通用过程又分为两类：Sub（子程序）过程和Function（函数）过程。

●Sub过程：这类过程完成指定任务，执行结束后不返回值。

●Function过程：这类过程完成指定的任务，并返回一个值供调用程序使用。

一般通用过程保存在ＶＢＡ的“模块”中，一个模块可以包含任意数量的过程，同时，一个ＶＢＡ工程可以包括任意多个模块。

9.2 定义Sub过程在使用之前，需要先在模块中定义过程。

ＶＢＡ中有两种定义过程的方法：一种方法是使用窗体创建过程的结构，再在过程中编写相应的代码；另一种方法是在模块中直接输入代码来定义过程。

】9.2.1 添加过程通用过程一般保存在模块中，在创建过程前可先通过选择“插入”ㄧ“模块”命令向工程中添加一个模块。

VBA开发环境中提供了一个“添加过程”对话框，通过该对话框可方便地向当前模块中添加过程。

具体操作步骤如下。

步骤1 在ＶＢＥ环境中选择“插入”ㄧ“过程”命令，打开如图9-2所示的“添加过程”对话框。

使用图9-2所示对话框除了可以插入一个新的Sub过程、Function过程或属性过程，还可以设置Public或Private有效范围，并使得过程中所有的局部变量成为静态变量。

步骤2 在“名称”文本框中输入过程的名称。

步骤3 在“类型”中选择“子程序”单选按钮。

它有三种类型可以选择：●子程序，为Sub过程；●函数，为Function过程；●属性，为Property过程。

步骤4 在“范围”中选中“公共的”单选按钮，设置过程为全局的（即在工程的各模块中都可以调用该过程），将在过程前面添加Public关键字。

还可根据需要选中下方的“把所有局部变量声明为静态变量”复选框，如果选中该复选框，将在过程名前面添加Static关键字。

步骤5 设置好以上参数后，单击“确定”按钮，ＶＢＡ将自动生成过程的结构代码，如图9-3所示。

在该过程结构中编写以下代码：Public Sub TestSub（）MsgBox "这是使用对话框创建的Sub过程！"End Sub9.2.2 使用代码创建Sub过程大多数开发人员更习惯于通过手工输入的方式来创建Sub过程，因为这更利于了解创建Sub过程中各元素的作用。

Sub过程的结构如下：[Private ㄧPublic ㄧFriend] [Static] Sub 过程名[(参数列表）][语句序列1][Exit Sub][语句序列2]End Sub过程由Sub和End Sub及之间的ＶＢＡ代码构成。

其中在Sub前面可加上限制过程作用域的关键字，主要有以下几个：●Privat，表示只有在包含其声明的模块中的其他过程可以访问该Sub过程。

●Public，表示所有模块的所有其他过程都可访问这个Sub过程。

如果在Sub前面省略关键字，则表示其为Public。

●Friend，只能在类模块中使用，表示该Sub过程在整个工程中都是可见的，但对象实例的控制者是不可见的。

●Static，表示在调用时保留Sub过程的局部变量的值。

Static属性对在Sub之外声明的变量不会产生影响，即使过程中也使用了这些变量。

注意：每一个过程都必须对应一个名称，通过过程名称可以调用该过程。

过程名称的命名应符合标识符命名规则。

End Sub语句标志着Sub过程的结束。

为了能正确运行，每个Sub过程必须有一个End Sub语句，当程序执行到该语句时就结束该过程的运行。

另外，在过程中可以使用一个或多个Exit Sub语句直接退出过程的执行。

注意：Sub过程的定义不能嵌套，即不能将过程的定义放在另一个过程中。

在了解了Sub过程结构及各语句的作用后，就可在代码窗口中创建Sub过程了。

具体操作步骤如下。

步骤1 双击“工程资源管理”窗口中的“模块1”，打开代码窗口。

步骤2 在代码窗口中输入“Sub手工创建Sub 过程”，并按回车键。

步骤3 系统自动在过程名后面添加一对括号，并自动生成“End Sub”语句，如图9-4所示。

步骤4 在过程结构中输入以下代码：Sub 手工创建Sub过程（）MsgBox "这是手工输入代码创建的Sub过程！"End Sub9.3 调用Sub过程使用过程的目的就是将一个应用程序划分为多个小模块，每个小模块完成一个具体的功能，最后通过组合这些过程来完成一个大任务。

在ＶＢＡ中，通过调用定义好的过程来执行程序。

Sub 过程的调用分两种方式：一种是在ＶＢＡ代码中调用Sub过程；另一种是在Excel中以调用宏的方式来执行Sub过程。

93.1 调用Sub过程在程序中调用Sub过程有两种方式：一是把过程名字放在一个Call语句中，另一种是把过程名作为一个语句来使用。

1. 用Call语句调用Sub过程用Call语句可将程序执行控制权转移到一个Sub过程或Function过程中，在过程中遇到End Sub或Exit Sub 语句后，再将控制权返回到调用程序的下一行。

Call语句的语法格式很简单：Call 过程名（过程参数列表）如果使用Call语句来调用一个需要参数的过程，“参数列表”必须要加上括号；如果过程没有参数，可省略过程名后的括号。

例如，以下代码：Call TestSub将调用上节定义的过程“TestSub”。

2. 将过程作为一个语句在调用过程时，如果省略Call关键字，过程也可调用。

与使用Call关键字不同的是，如果过程有参数，这种调用方式必须要省略“参数列表”外面的括号。

例如：Call Test（ａ，ｂ）可改为以下形式：Test ａ，ｂ下面以实例演示Sub过程的定义和调用。

本例首先创建一个名为“延时”的过程，该过程根据传递的参数来决定程序延时的长度；然后再创建一个调用“延时”过程的过程，具体步骤如下。

步骤1 在“模块1”中输入以下代码：Sub 延时（ByVal DelayTime As Integer）Dim NewTime As Long'保存延时到达的时刻NewTime = Timer + DelayTime'计算延时后的时刻Do While Timer < NewTime'如果未达到规定的时间，空循环LoopEnd Sub程序中使用Timer函数获得系统从午夜开始计算的秒数（数值较大，需将NewTime变量声明为Long，用Integer 类型的话将出现溢出），把这个时间加上需要延时的秒数，得到延时到达时的秒数；然后程序通过一个空循环语句反复检查是不是超过这个时间，超过就退出程序，达到延时的效果。

步骤2 接着输入以下测试过程的代码：Sub 测试延时（）Dim ｉAs Integerｉ＝Val（InputBox（＂开始测试延时程序，请输入延时的秒数：＂，＂延时测试＂，1））延时ｉMsgBox ＂已延时＂＆ｉ＆＂秒。

＂End Sub该过程要求用户输入需要延时的时长，然后调用“延时”过程，该过程执行完毕后，返回调用过程执行下一条语句（用MsgBox显示一条提示信息）。

程序中使用延时ｉ的方式来调用过程，也可使用Call的方式，代码如下：Call 延时（ｉ）使用Call语句，就需要将参数ｉ用括号引起来。

9.3.2 以宏方式调用Sub过程在Excel中录制宏时，将创建一个Sub过程，所以也可将Sub过程作为一个宏来调用。

具体步骤如下。

步骤1 切换到Excel工作界面（或关闭VBE环境）。

步骤2 在工作表中绘制一个按钮，打开如图9-5所示的“指定宏”对话框。

步骤3 在对话框中选择宏“手工创建Sub过程”，单击“确定”按钮，即可将该宏与插入的按钮绑定在一起。

单击该按钮执行“手工创建Sub过程”过程。

注意：以宏方式调用Sub过程无法给过程传递参数，所以需用参数的过程不会显示在图9-5所示的宏列表中。

9.4 传递参数为了使过程更具有通用性，很多过程都需要设置参数。

传递不同的参数给过程，可使执行的结果不同。

对于有参数的过程，在调用时必须将实际参数传递给过程，完成形参与实参的结合，过程再使用实参执行代码。

9.4.1 形参与实参的结合形参是形式参数的简称，是在Sub过程的定义中出现的变量名。

因其没有具体的值，只是形式上的参数，所以称为形参。

实参是实际参数的简称，是在调用Sub过程时传递给Sub过程的值。