《Excel VBA程序开发自学宝典(第2版)》

第06章编写SUB过程及开发函数VBA的主体结构就是过程。

VBA包括子过程、函数过程和属性过程三种，本书主要介绍子过程（也称Sub过程）和函数过程（也称Function过程）。

本章要点◆认识过程◆Sub过程◆Function过程◆关于过程参数◆开发自定义函数◆编写函数帮助6.1认识过程VBA中每一个程序都包含过程。

录制的宏是一个过程，一个自定义函数也是一个过程。

掌握好单个过程的编写思路，就可以组合成一个大中型插件或者专业程序。

6.1.1 过程的分类与调用方式过程主要分为三类：子过程、函数过程和属性过程。

这三类过程的格式如下。

Sub 子过程()……End SubFunction 函数过程(rng As Range)……End FunctionProperty Get 属性过程() As Variant……End Property本书主要讲述Sub子过程和Function函数过程的开发。

Sub过程是VBA中应用最广的过程，录制宏所产生的过程就是Sub过程。

Sub过程的执行方式包括五种。

1.【Alt+F8】执行如果在工作表命令窗口、ThisWorkBook命令窗口或者标准模块窗口中存在Sub过程，那么在工作表界面可以通过快捷键【Alt+F8】来执行该过程。

假设在VBE界面中的Sheet1代码窗口中有一个Sub过程“汇总”，在模块1中有一个名为“新建菜单”的Sub过程，那么通过快捷键【Alt+F8】打开“宏”对话框后，将在对话框中产生两个可执行程序名，其中工作表命令窗口的Sub过程会连同工作表名一起出现在宏名列表中，而模块中的过程则仅仅列出过程名。

用户选择目标程序并单击【执行】按钮即可启动Sub子过程。

2.快捷键执行Sub过程可以与某个快捷键进行关联，在后续的使用中就可以利用这个快捷键来调用对应的过程。

设置Sub过程的快捷键主要有两种方式：利用宏对话框设置及用VBA代码指定。

后者在本书其他章节将会讲述，在此演示一下“宏”对话框设置宏的快捷键的方法：假设VB工程中有两个名为“汇总”和“新建菜单”的Sub过程，在工作表界面中按下快捷键【Alt+F8】调出图6.1所示对话框，然后选择“新建菜单”，并单击“选项”按钮，在弹出的“宏选项”对话框中指定快捷键，如图6.2所示。

图中设计宏程序“新建菜单”的快捷键是【Ctrl+q】。

图6.1 “宏”对话框图6.2 设置Sub过程的快捷键3.按钮执行在工作表中建一个按钮，并将按钮与Sub过程关联，从而实现单击按钮执行程序。

将按钮关联到Sub过程的步骤为：1.单击菜单【开发工具】→【表单控件】→【按钮】；2.在工作表中按下左键并向右下方拖动，从而绘制一个控件按钮；3.在弹出的对话框中选择“新建菜单”，如图6.3所示；4.返回工作表后即可单击名为“按钮1”的按钮来执行程序“新建菜单”。

图6.3 关联过程与按钮4.菜单调用最常见的是编写一个自定义菜单或者工具条来调用Sub过程。

菜单与工具条的设计方法参见本书第19章及第20章。

5.事件引发对于部分需要自启动的程序，通常利用事件引发，不需要人工干预。

例如工作簿开启时就自动执行某程序，或者关掉窗体、鼠标移过窗体时执行某程序……对于事件过程的运用参见本书第8章。

6.工作表中使用公式调用Function过程即自定义函数，可以像使用内置的工作表函数一样在公式中使用。

调用Function过程的步骤如下：1.单击菜单【插入】→【模块】；2.在模块中录入以下代码：Function 成绩(rng)成绩= IIF(rng >= 60, "及格", "不及格")End Function3.返回工作表中，在A1输入数值50，在B1输入公式：=成绩(A1)可以发现公式可以像内置函数一样运行，它返回“不及格”，正是期望的结果。

6.1.2 插入过程的方式编写过程时可以手工录入代码，也可以让利用VBA提供的列表自动产生程序外壳。

一个Sub过程分为程序外壳部分和主体部分。

如图6.4所示。

图6.4 Sub过程的外壳与主体部分示意图其中外壳部分可以手工录入，也可以利用VBE提供的方式完成。

1.非事件过程对于非事件的Sub 过程，VBA提供了一个专用窗体来选择性录入过程的外壳。

具体步骤如下：1.在VBE界面中单击菜单【插入】→【模块】；2.单击菜单【插入】→【过程】打开“添加过程”对话框；3.在“名称”框中录入“汇总”，并将“类型”选择“子过程”，将“范围”设为“私有的”，如图6.5所示。

然后单击“确定”按钮。

图6.5 添加Sub过程外壳图执行以上程序后在模块中可以看到产生的代码为：Private Sub 汇总()End Sub如果是Function函数过程，也可以按照上述方法录入过程的外壳。

2.事件类过程VBA支持很多类事件，大部分事件的代码都需要参数。

而这些参数是很难记忆的，包括所有VBA专业程序员。

为了快速且准确地录入事件类过程，可以通过VBE提供的对象与过程窗口的下拉列表完成。

例如输入工作表SelectionChange事件的过程，方法如下：（1）使用快捷键【Alt+F11】进入VBE界面，并用快捷键【Ctrl+g】打开工程资源管理器窗口；（2）双击Sheet1或者其他需要录入工作表事件的工作表名；（3）从对象窗口的下拉框中选择“Worksheet”，代码窗口默认产生以下代码：Private Sub Worksheet_SelectionChange(ByVal Target As Range)End Sub图6.6 从下拉列表选择对象因为VBA默认状态下就是弹出“Worksheet_SelectionChange”事件的代码，所以当选择对象为“Worksheet”后就产生了需要的代码。

如果需要录入“Worksheet_Change”事件的代码，则需要在选择对象“Worksheet”后，再选择过程“Change”，然后将产生的“Worksheet_SelectionChange”事件的代码删除，仅保留以下代码：Private Sub Worksheet_Change(ByVal Target As Range)End Sub对于此类包含参数的事件过程，应该尽量选择通过对象与过程窗口的下拉列表产生代码的方式，手工录入很容易产生误差。

在用户窗体中很多事件也支持参数，而且有多个参数，通常也需要从列表中选择对象与过程的方式来录入代码。

例如在窗体中录入鼠标移过事件的过程代码，步骤如下：1.单击菜单【插入】→【用户窗体】；2.使用快捷键【Ctrl+g】显示工程资源管理器，并在UserForm1（或者别的名称）上单击右键，选择菜单【查看代码】；3.从对象窗口选择“UserForm1”，此时默认产生“UserForm_Click”事件的代码；再从过程窗口选择“MouseMove”，代码窗口中将产生以下代码：Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)End Sub4.删除“UserForm_Click”事件的代码。

6.1.3 过程的命名规则过程的命名与变量的命名规则一致。

但需要补充的一点是：过程名可以和本过程的私有变量同名，但却不能和公有变量同名。

例如：Sub 身份证()Dim 身份证As String身份证= [a1].TextEnd Sub以上代码中过程与变量同名，但这是允许的。

Dim 身份证As StringSub 身份证()身份证= [a1].TextEnd Sub这段代码却是非法的，只要运行程序就会弹出编译错误。

为了避免错误及便于识别，需要使本过程的私有变量也尽量保持与过程名不相同。

6.2编写Sub过程本节开始了解关于Sub过程的基本概念，以及编写简单的Sub过程。

6.2.1 Sub过程的语法解析Sub过程即利用Sub语句声明的子过程。

所有宏录制器产生的过程全是Sub过程，无法通过录制宏产生Function过程或者属性过程。

Sub语句声明过程的语法如下：Private | Public | Friend] [Static] Sub name [(arglist)][statements][Exit Sub][statements]End Sub其中各参数的详细功能如表6-1所示。

表6-1Sub语句参数详解参数部分功能解释Public 可选的。

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

如果在包含Option Private 的模块中使用，则这个过程在该工程外是不可使用的Private 可选的。

表示只有在包含其声明的模块中的其他过程可以访问该Sub 过程Friend 可选的。

只能在类模块中使用。

表示该Sub 过程在整个工程中都是可见的，但对对象实例的控制者是不可见的Static 可选的。

表示在调用之间保留Sub 过程的局部变量的值。

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

Sub 的名称；遵循标准的变量命名约定arglist 可选的。

代表在调用时要传递给Sub 过程的参数的变量列表。

多个变量则用逗号隔开statements 可选的。

Sub 过程中所执行的任何语句组Sub过程与所有变量一样，也区分公有和私有，而在说法上稍有区别。

过程分模块级过程和工程级过程。

1.模块级过程模块级过程即只能在当前模块调用的过程，它的特征有三个：（1）声明Sub过程前使用Private；（2）只有当前模块可以调用，例如在“模块1”中有以下代码：Private Sub 过程一()MsgBox 123End SubPrivate Sub 过程二()Call 过程一End Sub执行过程二时可以调用过程一，但如果过程二存放于“模块2”中，则将弹出“子过程未定义”的错误提示。

（3）不出现在“宏”对话框中，即使用快捷键【Alt+F8】所打开的对话框中无法查看到当前过程的名称列表。

如果是Function过程，则无法在函数向导中查看到函数名。

提示：所有事件的代码都是过程级的，默认状态下只能在当前过程可以调用。

2.工程级过程工程级过程是指在当前工程中任意地方都可以随意调用的过程。

它的特征刚好与模块级过程相反：在“Sub”语句前置标识符“Public”、非当前过程可以调用，可以出现在“宏”对话框中。

如果一个过程没有使用“Public”和“Private”标识，则默认为公有过程，任何模块或者窗体中都可以调用。

Sub过程也支持参数，其参数的用法与Function过程的参数用法一致，本小节不详述，请参阅本书6.4节。