一周学会VBA第四天：模块化编程（第1页）

　　导读：本节课你讲学到：

4.1 代码存在的位置：模块
4.2 对模块的概览
4.3 保存对模块所做的改变
4.4 变量
4.5 使用常量
4.6 作用域
4.8 小结
4.8 疑难解答

　　4.1 代码存在的位置：模块

　　VBA代码必须存放在某个位置，这个地方就是模块。有两种基本类型的模块：标准模块和类模块。模块中的每个过程或者是函数过程，或者是子程序概念.本课的最后部分将讨论函数过程和子程序的区别。

　　新术语：
　　模块：它是作为一个单元保存在一起的VBA定义和过程的集合。
　　类模块：VBA允许你创建自己的对象，对象的定义包含在类模块中。

　　你的大部分工作集中在标准模块中（简称为模块）当录制宏时如果不存在模块，EXCEL自动创建一个。EXCEL和VBA不关心代码存放在哪一个模块中，只要代码存在于打开的工作簿中即可。

　　4.2 对模块的概览

　　过程被定义为VBA代码的一个单元，过程中包括一系列用于执行某个任务或是进行某种计算的语句。工作簿的每个过程都有唯一的名字加以区分。

　　有两种不同的过程：子程序和函数过程。子程序只执行一个或多个操作，而不返回数值。当录制完宏查看代码时，所看到的就是子程序。宏只能录制子程序，而不能录制函数过程。一个子程序的例子如清单4-1所示。

程序清单4-1 子程序的例子

Sub cmdSmallFont_Click()
With Selection.Font
.Name="Arial"
.FontStyle="Regular"
.Size=16
End With
End sub

　　上面列出的过程实际上是一个事件过程。通过它的名字，就可以知道这是一个事件过程。这个过程的名字是由一个对象的名字CmdSmallFont和一个事件的名字Click组成的，两者之间用下划线分开。如果还不明白，可以告诉你，CmdSmallFont是一个命令按钮的名字。也就是说，当单击这个命令按钮时，就会运行这个事件过程。

　　函数过程通常情况下称为函数，要返回一个数值。这个数值通常是计算的结果或是测试的结果，例如False 或True.正如前面所说，可以用VBA创建自定义函数。实际上可以在工作表上使用你创建的函数。程序清单4-2是一个计算价格的10%为运费的简单例子。

程序清单4-2 简单的用户定义函数示例。

Public Function Shipping(Price)
Shipping = Price * 0.1
End Function

　　请注意，这个函数使用一个参数（Price).子程序和函数都可以使用参数。不论Price的值是多少，它都将决定运费额。Price可以是数字和单元格引用。函数返回计算出来的运费，这个函数可以用在单元格中。

A B
1 Price 100
2 Shipping =shipping(B1)

　　4.2.1 创建过程

　　创建第一个过程需要两个基本步骤。首先，需要向工作簿中添加一个模块。接着需要向模块中添加一个工程。对于创建的每一个应用程序，只需添加一次模块。可以使用多个模块，但这是不必要的。某些开发者喜欢使用多个模块，以便根据他们的目的或者窗体对过程进行组织。在本练习中，创建的过程只显示一个消息框。

　　在本练习中创建的过程只显示一个消息框。在本练习中使用Msgbox是为了提供一个可见的例子，虽然我们还没有介绍过Msgbox语句，但是在本例中将使用它。要创建该过程，请按如下步骤进行：

　　1）打开一个新工作簿。
　　2）选择"工具"-"宏"-"Visual Basic编辑器"，打开VBA编辑器窗口。
　　3）在`VBA编辑器的左面，可以看到“工程资源管理器”窗口。在工程资源管理器窗口的“Thisworkbook "上单击鼠标右键，选择“插入”-“模块”，这样就将一个模块添加到应用程序中了。(如果你没有看见“工程资源管理器”窗口，可以按Ctrl+R)
　　4）选择“插入”“过程”，显示“添加过程”对话框。
　　5）输入“第一个工程”作为过程名字。在“类型”分组框中，确认选择了“子程序”。单击“确定”按钮。这样一个新的过程就添加到模块中了。可以在模块中看到以 Public Sub 第一个过程（）开始，以End Sub结束的语句结构。
　　6）在过程中插入光标，输入以下语句并回车：
Msgbox "这是我的第一个过程"
在输入Msgbox后，会自动弹出一个消息框告诉你有关这条命令的信息，称之为自动列表技术。输入完成的过程如下所示：
Public Sub 第一个过程（）
Msgbox "这是我的第一个过程"
End Sub

　　VBA对子程序和函数有如下的命名规则：
　　* 名字中可以包含字母数字和下划线。
　　* 名字中不能包含空格句号惊叹号，也不能包含字符@ & $ #.
　　* 名字最多可以包含255个字符。

　　4.2.2 运行宏

　　创建这个过程后，可以运行一下。运行一个过程有几种方法：可以直接使用“运行”菜单，“运行子程序/用户窗体”工具栏按钮或按下F5键。要运行一个过程，可以按照如下步骤：

　　1）单击“运行子程序/用户窗体”工具栏按钮，过程执行并显示一个消息框。
　　2）单击消息框之中的“确定”按钮，关闭该消息框。

　　4.3 保存对模块所做的改变

　　要保存新过程,需要保存过程所驻留的工作簿.可以用VBA编辑器保存工作簿.具体步骤如下:

　　1)选择"文件"-"保存工作簿".因为本工作簿还没有保存过,所以要给它命名.
　　2)输入"HOUR4"作为文件名并按回车键,则工作簿和模块与过程都保存下来了.