Excel与VBA程序设计精讲.pdf

《Excel与VBA程序设计精讲.pdf》由会员分享，可在线阅读，更多相关《Excel与VBA程序设计精讲.pdf（34页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、3VBA 初步 19 Excel 与 VBA 程序设计 Copyright 2005 马维峰 3.VBA 初步初步 3.1.VBA 简介简介 VBA 是 Visual Basic for Application 的缩写，是一种应用程序自动化语言。所谓应用程序自动化，是指通过程序或者脚本让应用程序，例如 Microsoft Excel、Word 自动化完成一些工作，例如在 Excel 里自动设置单元格的格式、给单元格充填某些内容、自动计算等。在前面的章节里，我们通过使用宏来设置 Excel 单元格的格式、填充单元格的内容，而使宏完成这些工作的正是 VBA。VBA 的由来的由来 在 20 世纪 9

2、0 年代早期，使应用程序自动化还是充满挑战性的领域。对每个需要自动化的应用程序，人们不得不学习一种不同的自动化语言。例如，可以使用 Excel 的宏语言使 Excel 自动化，使用 Word Basic 使 Microsoft Word 自动化，等等。因此，Microsoftt决定开发一种应用程序共享的通用自动化语言 VBA，这就是 Visual Basic for Application（VBA）的由来。Visual Basic for Application 可以看做是非常流行的应用程序开发语言 Visual Basic 的一个子集，Visual Basic 其他子集还包括 VB Scri

3、pt 等。VBA 具有 VB 语言的大多数特征和易用性，它最大特点就是将 Excel 作为开发平台来开发应用程序，可以应用 Excel 的所有已有功能，例如数据处理、图表绘制、数据库连接、内置函数等等。本部分将对 VBA 及其开发环境 IDE（集成开发环境）、VBA 的基本语法、应用 VBA自动化 Excel 做一简单介绍。文中会涉及到一些诸如对象、事件等部分读者可能不熟悉或不清楚的概念，对于此类问题可直接忽略之，因为在后面会有详细介绍。本部分也不是一个 VBA 的参考文档，只是其语法、特征的快速浏览和介绍。学习完本部分的内容后，读者应该可以应用 Excel 和 VBA 进行一些简单的开发。3

4、VBA 初步 20 Excel 与 VBA 程序设计 Copyright 2005 马维峰 3.2.VBA 快速入门快速入门 3.2.1.VBA 开发环境开发环境 VBA 集成开发环境（IDE，Integrated Development Environment3的缩写）是进行 VBA程序设计和代码编写的地方，同一版本的 Office 共享同一 IDE。VBA 代码和 Excel 文件是保存在一起的，可以通过点击“工具 宏 Visual Basic 编辑器”打开 VBA 的 IDE环境（图 3-1），进行程序设计和代码编写。打开打开 VBA IDE 的方法：的方法：?通过“工具 宏 VISUA

5、L BASIC 编辑器”?通过快捷键“ALT+F11”?右键单击工具栏，选择“Visual Basic”，此工具栏有录制宏，打开 VBA IDE 等的快捷按钮：3 翻译为中文即“集成开发环境”。3VBA 初步 21 Excel 与 VBA 程序设计 Copyright 2005 马维峰 图 3-1 Visual Basic IDE 环境 图 3-1 为 Excel VBA 的 IDE 环境，对于所有使用同一版本 VBA 的应用程序，都共享相同的 IDE 环境。对于同一程序，例如 Excel，不管你打开几个 Excel 文件，但启动的 VBA的 IDE 环境只有一个。缺省情况下，VBA IDE

6、环境上方为菜单和工具条（图 3-1），左侧上方窗口为工程资源管理器窗口，资源管理器窗口之下为属性窗口，右侧最大的窗口为代码窗口。在资源管理器窗口可以看的所有打开和加载的 Excel 文件及其加载宏。每一个 Excel文件，在 VBA 下，称为一个工程，如果你同时打开了多个 Excel 文件，则在 VBA IDE 下可以看到有多个工程存在。每个 Excel 文件（工作薄）对应的 VBA 工程都有 4 类对象（图 3-2）。，包括：?Microsoft Excel 对象?窗体?模块?类模块 Microsoft Excel 对象对象代表了 Excel 文件及其包括的工作薄和工作表等几个对象，包括所有

7、的 Sheet 和一个 Workbook，分别表示文件（工作薄）中所有的工作表（包括图表），例如缺省情况下，Excel 文件包括 3 个 Sheet，在资源管理器窗口就包括 3 个 Sheet，名字分别是各 Sheet 的名字。ThisWorkbook 代表当前 Excel 文件。双击这些对象会打开代码窗口（图 3-1 右侧窗口），在此窗口中可输入相关的代码，响应工作薄或者文件的一些事件，例如文件的打开、关闭，工作薄的激活、内容修改、选择等（有关事件、Excel 对象模型见后）。窗体对象窗体对象代表了自定义对话框或界面，例如你编写了一个 VBA 求个人所得税的小程序，需要输入税率、收入等参数，

8、那么就可以使用窗体设计一个对话框，来获取用户输入。模块模块是自定义代码，包括我们录制的宏等 VBA 代码保存的地方。类模块类模块是以类或对象的方式编写的代码保存的地方。通过创建类模块，在 VBA 中也可以创建自己的类和对象，我们在“VBA 语言”一章会详细介绍 VBA 的面向对象编程的问题。关于各对象的具体含义和使用后面会详细介绍，这里只是做个最初的了解。在工程资源管理器窗口的右键菜单下，有添加用户窗体、模块、类模块的选项，也可以将已有的模3VBA 初步 22 Excel 与 VBA 程序设计 Copyright 2005 马维峰 块移除、导入和导出。在工程资源管理器之下，也可以通过将一个工程

9、中的模块用鼠标拖拽到另一个工程实现模块在工程之间的拷贝。图 3-2 VBA 工程资源管理器窗口 包括 2 个 VBA 工程 建议随时更改 Excel VBA 工程的名称，其缺省名称为“VBAProject”，可以通过选中工程，在属性窗口更改为有意义的名称，或者在菜单的“工具 VBAProject 属性”对话框中更改。在 VBA 工程资源管理器之下是属性窗口（图 3-3），主要用于对象属性的交互式设计和定义，例如选中图 3-2 中的 VBAProject，在属性窗口即可更改其名称。属性窗口除了更改工程、各对象、模块的基本属性外，主要用途是用户窗体（自定义对话框）的交互式设计。图 3-3 显示的就

10、是一个打开的窗体（UserForm）的属性窗口。3VBA 初步 23 Excel 与 VBA 程序设计 Copyright 2005 马维峰 图 3-3 VBA 属性窗口 在 IDE 窗口的右侧，可以打开代码窗口。在资源管理器窗口中的每一个对象会对应一个代码窗口（用户窗体包括一个设计窗口和一个代码窗口）。可以通过在对象上双击、在右键菜单或资源管理器工具栏上选择查看代码（或对象）打开代码窗口。对于 IDE 环境、菜单、工具栏的具体使用和说明，在后面的讲解中会逐步讲解说明。单击“视图 对象浏览器”或工具栏上的“对象浏览器”按钮即可打开对象浏览器窗口（图 3-4），在此窗口内可查看当前工程及其引用对

11、象的属性、方法和事件。对象浏览器对于熟悉和查看相应的 Excel 对象、引用对象（包括 COM 对象、其他 Excel 程序）所包含的类、属性、方法和事件非常有用，特别是在没有相应的帮助资料或者文档的情况下，对象浏览器是查看一个对象的内容的最有效的工具。3VBA 初步 24 Excel 与 VBA 程序设计 Copyright 2005 马维峰 图 3-4 VBA IDE 环境的对象浏览器 上部可以选择对象，也可以输入一些查询条件；左侧为对象列表；右侧是对象的成员，包括属性、方法和事件；下部为成员或者对象的说明 3.2.2.在在 VBA IDE 下进行开发下进行开发 熟悉了 VBA 的 IDE

12、 环境后，我们来开发 VBA 之旅的第一个程序。新建一个 Excel 文件，通过菜单或键盘快捷键打开 VBA 集成开发环境，在 VBAProject 上单击右键，选择“插入 模块”。这样，系统将打开一个代码窗口，在窗口中输入以下代码4。#001 Sub MyFirstVBAProgram()#002 Dim strName As String#003 Dim strHello As String#004 strName=InputBox(请输入你的名字：)#005 strHello=你好，&strName&!#006 MsgBox strHello#007 End Sub 将鼠标光标放置在这段

13、代码之内，单击菜单“运行 运行子过程/用户窗体”，或者 4 代码内的“#003”为行号，在实际代码中不能输入，在此只为文中叙述方便，之后不再重复。3VBA 初步 25 Excel 与 VBA 程序设计 Copyright 2005 马维峰 在工具栏单击运行按钮，则可运行这段代码。运行结果会显示一个对话框，输入一些内容后，会显示相应的问候语。同样，这段代码可以和宏一样，在 Excel 下选择并执行。与其他程序设计语言不同，VBA 程序是事件驱动的，没有 Main 函数之类的入口的概念。如果在 IDE 环境下，鼠标光标不在任何过程内，单击工具栏或运行菜单的运行，会显示一个对话框，要你选择要运行的过

14、程。本质上，VBA 代码应该只是一些完成具体工作的集合，而通过界面元素或者 Excel 的事件驱动执行，你可以通过自定义按钮、菜单，并指定一个宏（VBA 过程，自定义界面也可以通过编程手段完成此类工作），通过单击此按钮即可调用相应的 VBA 代码，或者将调用绑定在 Excel 的某个事件下。下面我们简单看一下上面这段代码的组成，代码第 1 行表示这是一个新的过程，名称为“MyFirstVBAProgram”，第 2、3 行定义了 2 个变量，其类型为字符串类型，第 4 行调用 InputBox 这个内置函数，并将返回值赋给 strName 这个变量，第 5 行将几个字符串组合成一个新的字符串，

15、第 6 行调用 MsgBox 这个函数，显示一个对话框，第 7 行表示过程结束。VBA 程序由不同的模块组成，在模块内部，可以定义不同的变量、过程或函数，由此组成一个完整的程序。代码窗口的设置代码窗口的设置 中文环境下 VBA IDE 代码窗口缺省的设置比较糟糕，字体为宋体，大小是 9 磅，使用不很方便，可以在“工具 选项”对话框下的“编辑器格式”页内设置代码窗口字体、颜色、背景。字体建议使用 Courier New，大小可以按照自己的分辨率设置标准以阅读清楚为宜。在此模块内，再新建一段代码：#001 Function MyAdd(varA,varB)As Variant#002 MyAdd=

16、varA+varB#003 End Function 此段代码非常简单，只有 3 行，第 1 行表示这是一个函数，具有 2 个参数 varA,和 varB，函数与过程的差别在于函数有返回值，第 2 行将参数 varA,和 varB 的和赋给函数，代表其返回值。函数无法直接运行，必须从工作表或者其他程序调用，例如，我们可以写以下一段简单的程序调用此函数：#001 Sub TestAdd()3VBA 初步 26 Excel 与 VBA 程序设计 Copyright 2005 马维峰#002 Dim a,b,c#003 a=12#004 b=34#005 c=MyAdd(a,b)#006 MsgBo

17、x c#007 End Sub 其中第 5 行为函数 MyAdd 的调用，函数将返回值赋给 c。需要说明的是，VBA 中，调用过程可以使用 Call 语句，也可省略，调用过程时，其参数的括号可以省略，但调用函数必须有括号。也可以直接在工作表内使用自定义的函数，例如在工作表中，我们可以和 Excel 内置函数一样使用自定义的函数（图 3-5），Excel 会负责参数传递，将返回值赋给相应的单元格，在引用参数改变时会自动重新计算，总之，与内置函数的使用没有什么不同。图 3-5 在工作表中使用自定义函数 以上通过 2 个 例子简单介绍了 VBA 编程的过程和概念，后面我们将正式进入 VBA编程之旅，

18、逐步讲解模块、函数与过程、数据类型、基本语法等概念。VBA 程序的保存程序的保存 当关闭 VBA IDE 的时候，不会提示保存用户所做的修改，当我们退出 Excel 保存其文件时，VBA 程序代码也随之保存，因为 VBA 代码是寄生于 Excel 或其他文档的，保存文档即保存了 VBA 代码。对于一般的 VBA 程序，这点没有什么问题，但如果是在进行加载宏的开发，那么退出 IDE 环境时，一定要点击其文件菜单或工具栏的保存，保存所做修改，否则会丢失所做的任何修改。3.2.3.模块、过程和函数模块、过程和函数 VBA 代码必须存放在某个位置，这个地方就是模块模块。模块模块是作为一个单元保存在一起

19、的 VBA 定义和过程的集合。VBA 中有两种基本类型的模块：标准模块和类模块。模块可以包括 2 类子程序：过程或者函数。3VBA 初步 27 Excel 与 VBA 程序设计 Copyright 2005 马维峰 一般来说，简单的 VBA 程序设计，大部分工作集中在标准模块中（后面简称为模块）。当 Excel 在录制宏时如果不存在模块，EXCEL 自动创建一个。EXCEL 和 VBA 不关心代码存放在哪一个模块中，只要代码存在于打开的工作簿中即可。可以在工程资源管理器上单击右键来增加删除模块（图 3-2），选中模块后可以在属性窗口修改其名称（图 3-3）。过程过程被定义为 VBA 代码的一个

20、单元，过程中包括一系列用于执行某个任务或是进行某种计算的 VBA 语句。一个工作簿的每个过程都有唯一的名字加以区分。过程只执行一个或多个操作，而不返回数值。当录制完宏查看代码时，所看到的就是过程。下面就是一个简单的修改选中文字的字体的过程。Sub ChangeFont()With Selection.Font .Name=Arial .FontStyle=Regular .Size=16 End With End sub 将这个过程输入到 VBA 中的某个过程，返回 Excel，在某个单元格输入文字，选中他，然后选择“工具 宏 宏”，在宏对话框中选择“ChangeFont”，然后执行他，我们会

21、看到选中的单元格文字格式被更改为“Arial”，16 点大小。函数过程通常情况下称为函数函数，是会返回一个值的过程。函数和过程的差别是其定义方式不同，函数使用 VBA 的关键字 Function 定义，而过程使用关键字 Sub 定义。函数返回的值称为返回值，这个数值通常是计算的结果或是测试的结果。我们可以用 VBA 创建自定义函数，并且在工作表上使用所创建的函数。以下程序是一个计算价格的 10%为运费的简单例子。Public Function Shipping(Price)Shipping=Price*0.1 End Function 这个函数使用一个参数（Price），过程和函数都可以使用参

22、数。不论 Price 的值是多少，它都将决定运费额。函数计算运费，计算结果在函数中通过赋给函数名“Shipping”来返回给调用者。Price 可以是数字和单元格引用。这个函数可以被其他过程或者函数调用，也可以使用在电子表格中。例如图 3-5 和图 3-6 所示。3VBA 初步 28 Excel 与 VBA 程序设计 Copyright 2005 马维峰 图 3-6 在工作表中使用函数 Shipping 3.2.4.创建过程和函数创建过程和函数 创建第一个过程需要两个基本步骤。首先，需要向工作簿中添加一个模块。接着需要向模块中添加不同的过程和函数。对于一个应用程序，可以使用一个模块，也可以使用

23、多个模块。如果你的程序比较复杂，使用多个模块可以更好的组织代码。下面我们从头开始创建一个只显示一个消息框的过程，来学习过程的创建，请按照以下步骤进行：（1）打开一个新工作簿，进入 Visual Basic 编辑器，也即 VBA IDE；（2）在VBA IDE 的左面的“工程资源管理器”窗口 VBA 工程上单击鼠标右键，选择“插入 模块”，这样就将一个模块添加到应用程序中了；（3）从菜单选择“插入 过程”，显示“添加过程”对话框；图 3-7 添加过程对话框（4）输入“HelloMsg”作为过程名字，在“类型”分组框中，确认选择了“子程序”，单击“确定”按钮继续；这样一个新的过程就添加到模块中了，

24、可以在模块中看到以下代码：3VBA 初步 29 Excel 与 VBA 程序设计 Copyright 2005 马维峰 Public Sub HelloMsg()End Sub（5）在过程中输入以下语句：MsgBox 这是我的第一个过程 在输入 MsgBox 后，会自动弹出一个有关这条命令的信息，称之为即时代码提示或自动列表技术。输入后的过程如下所示：Public Sub HelloMsg()MsgBox 这是我的第一个过程 End Sub 创建这个过程后，可以运行一下。运行一个过程有几种方法：将鼠标光标放置在这段代码之内，单击菜单“运行 运行子过程/用户窗体”，或者在工具栏单击运行按钮，则可

25、运行这段代码。运行后，此过程执行并显示一个消息框；单击消息框之中的“确定”按钮，关闭该消息框，程序运行结束。图 3-8 过程运行结果 要保存新过程，需要保存过程所在的工作簿。可以在 VBA IDE 环境下选择“文件 保存工作簿”保存，也可以在 Excel 环境下保存。VBA 对子程序和函数有如下的命名规则：?名字中可以包含字母数字和下划线；?名字中不能包含空格句号惊叹号，也不能包含字符&$#；?名字最多可以包含 255 个字符。在过程或者函数中，可以调用其他的过程或者函数，例如：#001 Function Add(a,b)#002 计算 a 和 b 的加法和#003 Add=a+b#004 E

26、nd Function#005#006 Sub Display()3VBA 初步 30 Excel 与 VBA 程序设计 Copyright 2005 马维峰#007 Dim sum#008 sum=Add(2,5)#009 MsgBox sum#010 End Sub 函数 Add 计算 2 个数值的值，并返回他，过程 Display 定义了 sum 这个变量，调用了Add 函数计算（8 行），最后调用 MsgBox 命令显示结果（9 行）。在第二行，我们看到有一句“计算 a 和 b 的加法和”的说明，称为注释，是对程序进行说明的语句，在执行过程中并不执行。注释可以更好的帮助我们阅读、修改代

27、码，对于一段半个月前写的代码，你重新打开需要修改，经常会忘了程序的功能和流程，这时候，就需要注释帮助我们。VBA 中，注释的格式是在一句话之前使用单引号“”来表示注释，注释可以位于程序的任意地方。3.2.5.变量变量 变量是用于保存数据的地方，每个变量都需要使用一个名字来表示，称为变量名。在程序设计中，我们把需要使用的数据，例如数值、字符串、Excel 的对象保存在变量中。每次应用程序运行时，变量可能包含不同的数值，而在程序运行时，变量的数值可以改变。我们回到前边学习过的一段代码，来说明为什么要使用变量。#001 Sub MyFirstVBAProgram()#002 Dim strName

28、As String#003 Dim strHello As String#004 strName=InputBox(请输入你的名字：)#005 strHello=你好，&strName&!#006 MsgBox strHello#007 End Sub 这段代码通过 InputBox 这个命令显示一个对话框，输入内容后，通过 MsgBox 显示相应的问候语。那么其中的 strName 和 strHello 就是变量，如果没有 strName，那么在 InputBox中输入的名字就会丢失，因此需要创建一个变量，以保存程序运行过程中的一些中间结果。上面的例子里，定义变量后面的“As String”

29、定义了变量的数据类型。和 Excel 单元格里的数据一样，VBA 里的变量也需要有数据类型。表 3-1 列出了 VBA 支持的部分常用数据类型以及各种类型的变量能够存储的数值范围。表 3-1 VBA 支持的部分数据类型 数据类型 范围 数据类型 范围 ByteByte 0 到 255 BooleanBoolean TrueTrue 或 FalseFalse 3VBA 初步 31 Excel 与 VBA 程序设计 Copyright 2005 马维峰 Integer Integer -32,768 到 32,767 LongLong(长整型)-2,147,483,648 到 2,147,483,

30、647 SingleSingle (单精度浮点型)负数时从-3.402823E38 到-1.401298E-45；正数时从 1.401298E-45 到 3.402823E38 DoubleDouble (双精度浮点型)负数时从-1.79769313486231E308 到-4.94065645841247E-324；正数时从4.94065645841247E-324 到 1.79769313486232E308 DateDate 100 年 1 月 1 日 到 9999 年 12 月 31 日 StringString (变长)0 到大约 20 亿 VariantVariant(数字)任何数

31、字值，最大可达 Double Double 的范围 VariantVariant(字符)与变长 String String 有相同的范围 以上数据类型是 VBA 支持的部分数据类型（不是全部），其中 Byte、Integer、Long都用来表示不同大小的整数；Boolean 表示判断，即对（True）还是错（False）；Single 和Double 表示不同大小范围的实数；Date 用来表示日期和时间；String 用来表示一个在发出；Variant 是一个特殊的数据类型，可以表示任意类型的数据，对于没有定义数据类型的变量，默认为 Variant 类型。在程序设计中，我们应该根据需要选择合适

32、的数据类型。以下我们将创建变量。创建变量可以使用 Dim 语句，创建变量通也称为“声明变量”。Dim 语句的基本语法如下：Dim 变量名 AS 数据类型 这条语法中的变量名代表将要创建的变量名。变量名必须以字母开始，并且只能包含字母数字和特定的特殊字符，不能包含空格、句号、惊叹号，也不能包含这些字符：&$#，名字最大长度为 255 个字符。这条语句中的数据类型部分可以是表 3-1 中的任何一种数据类型。例如在上面的程序里，我们创建了 2 个 String 类型的变量，用来存储我们输入的名字：Dim strName As String Dim strHello As String 语句“strH

33、ello=你好，&strName&!”中，“&”表示连接 2 个字符串，我们也可以使用“+”来连接 2 个字符串，但推荐使用“&”，以避免和一般的加法运算混淆。我们再看一个例子：Sub Add2Number()3VBA 初步 32 Excel 与 VBA 程序设计 Copyright 2005 马维峰 Dim i As Integer Dim j As Integer Dim sum As Integer i=InputBox(请输入 i：)j=InputBox(请输入 j：)sum=i+j MsgBox i+j=&sum End Sub 这个例子里我们定义了 3 个 Integer 类型的变

34、量，使用 InputBox 给 i 和 j 赋值，然后通过计算得到结果 sum，最后使用 MsgBox 输出结果。VBA 的整型变量（Byte，Integer，Long）和浮点类型变量（Single 和 Double）可以进行加、减、乘、除、乘方等数学运算，使用的算术运算符分别为：1.运算符：求一个数字的某次方，如 AB；2.*运算符：乘法运算；3./运算符：除法运算；4.运算符：对两个数作除法并返回一个整数；5.Mod 运算符：求两数的余数；6.+运算符：加法运算；7.-运算符：减法运算。例如：k=i+j k=i*j j=2+i 3 VBA 的算术运算符的优先级和数学中一样，例如“2+i 3

35、”会先计算 i 的 3 次方，然后再进行加法。前面说过，如果在 Dim 语句中不提供数据类型，变量将被定义为 Variant 类型，这时，这个变量可以根据程序的上下文存储任意的数据类型。因为 VBA 中默认的数据类型是Variant。使用 Variant 类型的优势是简单，这也正是 VBA 容易学习的原因之一。我们在后面的学习中会再返回到这个话题，一般来说，我们在模块、过程和函数内定义变量的时候，都应该指定其数据类型；但如果读者对变量类型感到迷惑，那么可以使用如下方式来定义变量，而不指定数据类型：Dim Var 对于函数的参数和返回值，可以使用以下方法来指定参数，例如：3VBA 初步 33 E

36、xcel 与 VBA 程序设计 Copyright 2005 马维峰 Function Add(a As Double,b As Double)As Double Add=a+b End Function 这个函数第一行的 a 后面的“As Double”，指定 a 的数据类型为浮点型，b 后面的类似，最后的“As Double”指定了函数返回值的数据类型。3.2.6.程序流程程序流程 VBA 程序是由语句组成的，语句的定义为可表达一种动作、声明或定义的程序单元。一般来说，每个语句应该占一行，表示要进行的操作，例如进行计算、输入输出等等。程序设计语言的语句的组织形式可以划分为 3 种：顺序语句

37、、条件语句和循环语句。顺序语句、条件语句和循环语句可以互相组合嵌套，从而完成复杂的程序。（1）顺序语句，即按照语句的顺序来执行的，例如下面的例子：Sub Sequence()Dim i,j Dim sum i=1 j=3 sum=i+j MsgBox sum End Sub 程序首先对 i 和 j 赋值，然后计算其结果，最后使用 MsgBox 显示结果。程序执行的过程是按照语句的顺序来进行的。（2）条件语句，即根据某种条件判断来决定执行的顺序，而不是顺序执行，我们留在后面详细介绍。（3）循环语句，即根据某些条件，对某条或某段语句循环反复执行数词，称为循环语句，例如有时候需要对某些值进行求和，如

38、果这些数值有成千上万条，那么就需要通过循环语句来累加。我们后面会详细介绍。3.2.7.条件语句条件语句 我们先看一个例子：#001 If T=2 And T 3 Then 3VBA 初步 34 Excel 与 VBA 程序设计 Copyright 2005 马维峰#004 Target=300#005 Else#006 Target=500#007 End If 这是个完整的 If 逻辑判断式，意思是说，假如 If 后的判断条件成立的话，就执行第 2行语句，否则假如 ElseIf 后的判断条件成立的话，就执行第 4 行语句，Else 的意思是说，假如以上条件都不成立的话，就执行第 6 行语句。

39、条件判断是在程序设计中经常会碰到的，例如根据用户的输入来选择不同的操作，或者根据某段程序计算结果的不同而采取不同的操作。一般来说，判断语句是类似这样的形式：如果如果一件事情成立，那么那么我们应该这样做，否则否则我们那样做。例如，如果下雨了，那么出门就要带把伞，否则就不用带。实际生活中的如果、那么转换为 VBA 程序设计语言就是 If、Then、ElseIf、Else 这些关键词。下面我们通过例子来说明判断语句的使用方法，例如下面整个例子：#001 Sub IfTest()#002 If Application.ActiveCell=23 Then#003 MsgBox 单元格是 23#004

40、Else#005 MsgBox 单元格不是 23#006 End If#007 End Sub 这段代码判断当前活动单元格的值是不是 23，然后弹出一个对话框来反馈结果。第 2行的 Application.ActiveCell 是 Excel 对象，表示当前活动单元格，我们下一节将会介绍相关的内容。这句话判断这个值是否 23，最后的 Then 是 VBA 关键字，之后的语句在上面的判断成立的情况下执行；如果判断结果为假，则执行 Else 之后的语句。最后要以 End If 来结束判断语句。这样，我们可以看到判断语句的标准形式是以下形式：#001 If 条件 1 Then#002 .#003 E

41、lseIf 条件 2 Then#004 .#005 Else#006 .#007 End If 在进行条件判断时需要使用比较运算符来进行判断，常用的比较运算符有：?=，判断左右两边的值是否是否相等；3VBA 初步 35 Excel 与 VBA 程序设计 Copyright 2005 马维峰?，判断左侧的值是否大于右侧的值；?=，判断左侧的值是否大于等于右侧的值；在进行条件判断时，经常需要判断多个条件，例如判断某个值是否在 10 和 20 之间（10 x 20），那么我们就需要使用逻辑运算符。例如下面的例子，判断一个数值是否在 2 和15 之间，我们不能这样做：If 2 temp 2 And t

42、emp 5 Then MsgBox x=1 和 y5 都成立！Endif 这段代码使用了 And 逻辑运算符，只有 x 等于 1 和 y 大于 5 都成立的时候下，才会弹出 MsgBox 对话框。下面的例子使用了 Or 运算符，所以只要 x 等于 1 和 y 大于 5 这 2 个条件有一个满足，结果就是 True，就会显示 MsgBox 对话框：3VBA 初步 36 Excel 与 VBA 程序设计 Copyright 2005 马维峰 If x=1 Or y 5 Then MsgBox x=1 和 y5 至少有一个成立！End If 如果读者对逻辑运算符还有什么疑惑的话，可以输入这 2 个例

43、子到 VBA 代码编辑器中，改改条件，自己试试就会明白了。我们接下来看一个比较复杂的例子：Function Degree(f As Double)As String If f=60=70 And f=85 And f=100 Then Degree=优秀 Else Degree=错误的成绩 End If End Function 这个例子是一个函数，这个函数有一个参数 f 代表了成绩，输入一个成绩后，他根据成绩的范围，然后返回成绩的描述，例如是不及格还是良好等等。条件语句可以嵌套，以判断复杂的条件，例如：#001 Function DegreePlus(f As Double,Subject

44、As String)_#002 As String#003#004 If Subject=语文 Then#005 If f=60 And f=100 Then#008 Degree=语文 及格#009 Else#010 Degree=语文 错误的成绩#011 End If#012 ElseIf Subject=数学 Then#013 If f=60 And f=100 Then#016 Degree=数学 及格#017 Else#018 Degree=数学 错误的成绩 3VBA 初步 37 Excel 与 VBA 程序设计 Copyright 2005 马维峰#019 End If#020 E

45、lse#021 Degree=错误的科目#022 End If#023 End Function 这段代码是一个嵌套条件语句的例子。嵌套循环的意思是在条件语句内部可以嵌套条件语句。代码的外层判断判断成绩的科目：#001 If Subject=语文 Then#002 .#003 ElseIf Subject=数学 Then#004 .#005 Else#006 Degree=错误的科目#007 End If 然后在判断条件语句之内，又添加了新的条件语句，在科目为“语文”的情况下，第5 行到第 11 行为一个条件语句，判断语文科目的成绩；同样在科目为“数学”的情况下，第 13 到 19 行的条件语

46、句判断科目数学的成绩。3.2.8.循环语句循环语句 下面来学习循环语句，我们还是从一个实例开始：Sub NoLoop()Dim sum As Long sum=sum+1 sum=sum+2 sum=sum+3 sum=sum+4 sum=sum+5 sum=sum+6 sum=sum+7 sum=sum+8 MsgBox sum=&sum End Sub 这段代码计算从 1 加到 8 的值，最后使用 MsgBox 输出结果。在不使用循环语句的前提下，这样的程序对于数据不多的情况，还可以实现，如果数据是从 1 到 1000 的值，我们不可以写 1000 条语句来计算这样的结果，这时就需要使用循

47、环语句。3VBA 初步 38 Excel 与 VBA 程序设计 Copyright 2005 马维峰 For.Next 循环循环 ForNext 循环是 VBA 循环语句的一种，以上代码可以使用 ForNext 循环改写为以下形式：#001 Sub Loop1()#002 Dim i As Long#003 Dim sum As Long#004 For i=1 To 8#005 sum=sum+i#006 Next i#007 MsgBox sum=&sum#008 End Sub 这样，如果我们要从 1 加到 1000，我们只需要把第 4 行改为：For i=1 To 1000 这样，代码

48、就可以从 1 加到 1000，这就是循环语句。循环语句首先指定循环的范围，需要一个数据类型为整型的循环变量（例如 Integer，Long），这个变量每次递增 1 或者其他指定的值，直到这个值超出了循环指定的循环范围之外。以上代码使用了循环变量 i，我们也可以使用任意变量。指定循环范围使用“最小值 To 最大值”的形式；之后是循环的内容，可以是一句或者一段代码；最后使用“Next 循环变量”这样的语句结束循环。我们还可以使用 Step 参数指定循环变量递增或者递减的步子（量），例如我们需要计算“1,3,5,999”的和，我们可以使用如下的代码：Sub Loop2()Dim i As Long

49、Dim sum As Long For i=1 To 999 Step 2 sum=sum+i Next i MsgBox sum=&sum End Sub 这里使用了“Step 2”这样的语句，意思是循环变量 i 递增的步子是一次增加 2，这样从 1 开始，每次增加 2，直到 i 小于等于 999，结果就是“1,3,5,999”的和。当 Step为 1 的时候，可以省略 Step 语句。Step 可以是正数，也可以是负数，负数表示递减。例如下面的代码：Sub Loop3()Dim i As Long For i=10 To 1 Step-1 MsgBox i 3VBA 初步 39 Excel

50、 与 VBA 程序设计 Copyright 2005 马维峰 Next i End Sub 输出的结果依次是：10，9，8，7，6，5，4，3，2 和 1。Excel VBA 开发中经常使用 ForNext 循环来操作某个范围之内的工作表数据，例如读取 C 列第 2 行到第 25 行的数据，或者写入第四行第 4 列到第 50 列的数据。ForNext 循环也可以嵌套使用，即在循环内部在增加一个或数个循环，如果我们需要编写一个查找工作表的程序，那么就可以使用第一个循环查找不同的行，然后使用第二个循环查找每一行中不同的列。例如，我们在当前工作表第 1 到第 20 行的第 1 到第 5 列中查找某个