第06章 编写SUB过程及开发函数
VBA的主体结构就是过程。VBA包括子过程、函数过程和属性过程三种，本书主要介绍子过程（也称Sub过程）和函数过程（也称Function过程）。
本章要点
◆vba自学好学吗认识过程
◆Sub过程
◆Function过程
◆关于过程参数
◆开发自定义函数
◆编写函数帮助
6.1 认识过程
VBA中每一个程序都包含过程。录制的宏是一个过程，一个自定义函数也是一个过程。掌握好单个过程的编写思路，就可以组合成一个大中型插件或者专业程序。
6.1.1 过程的分类与调用方式
过程主要分为三类：子过程、函数过程和属性过程。这三类过程的格式如下。
Sub 子过程()
……
End Sub
Function 函数过程(rng As Range)
……
End Function
Property 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 Function
3.返回工作表中，在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 Sub
4.删除“UserForm_Click”事件的代码。
6.1.3 过程的命名规则
过程的命名与变量的命名规则一致。
但需要补充的一点是：过程名可以和本过程的私有变量同名，但却不能和公有变量同名。例如：
Sub 身份证()
Dim 身份证 As String
身份证 = [a1].Text
End Sub
以上代码中过程与变量同名，但这是允许的。
Dim 身份证 As String
Sub 身份证()
身份证 = [a1].Text
End 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-1 Sub语句参数详解
参数部分 | 功能解释 |
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 123
End Sub
Private Sub 过程二()
Call 过程一
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论