第 2 章 VBA 语法基础
和其他编程语言类似，VBA 程序代码也是有基础语句组成的。在本章中，将结合具体 的例子来介绍 VBA 语法的基础内容。主要包括输入、输出语句、分支结构和循环结构等。 在讲解各例子的时候，将详细分析例子的应用范围。
2.1 输入和输出语句
在本小节中，将详细讲解最基础的语法结构：顺序结构。顺序结构不需要使用特殊的 控制语句，编辑工具按照用户编写的程序语句依次编译，依次执行。本小节中，将详细讲 解最基础的顺序语句：输入和输出语句。
案例 8 输出数据表
1．功能说明
在 Excel VBA 中，用户可以使用 Print 方法输入各种类型的数据。同时，用户可以在 程序代码中设置不同的输出，来检测程序代码。
2．语法说明
在 Excel VBA 中，Print 方法组要应用于 Debug 对象，其语法格式如下：
Debug.Print [outputlist]
参数 outputlist 表示需要打印的表达式或列表。如果省略参数，则打印空白行。Print 方法先计算表达式的数值，然后输出结果。在 outputlist 参数中还可以使用分隔符，格式化 输出的结果，分隔符有以下几种： ? Spc(n)：插入 n 个空格到输出数据之间；
? Tab(n)：移动光标到适当位置，n 为移动的列数； ? 分号：表示前后两个数据项连在一起输出； ? 逗号：以 14 个字符为一个输出区，每个数据输出到对应的输出区。
3．案例说明
本例使用 Print 方法向 VBE 的立即窗口中输出数据表。
4．编写代码
输出数据表的代码如下：
Sub GetNumbers() Dim i As Integer Dim j As Integer For i = 1 To 5 For j = 1 To i Debug.Print i; \\Next Debug.Print Next End Sub 5．运行结果
按功能键“F5”运行子过程，在“立即窗口”输出数据计算表，如图 2.1 所示。
图 2.1 输出结果
6．程序分析
在上面的程序代码中，利用循环结构依次输出不同情况的数字计算结果。关于循环结 构的知识，将在后面章节中详细讲解。
案例 9 输入用户名
1．功能说明
在 Excel VBA 开发过程中，经常需要和用户进行交互。例如，很多程序代码的结果依 赖于用户输入的信息。这个时候，用户需要调用输入函数，提供用户输入信息，并接收用 户所输入的信息。
2．语法说明
在 Excel VBA 中，用户可以使用 InputBox 函数输入信息。该函数将打开对话框，用 户可以在对话框中输入数据，并返回所输入的内容。其语法格式如下：
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
各参数的含义如下：
? Prompt：对话框消息出现的字符串表达式。最大长度为 1024 个字符。如果需要在对 话框中显示多行数据，则可在各行之间用回车符换行符来分隔。
? Title：对话框标题栏中的字符串。如果省略该参数，则把应用程序名放入标题栏中。 ? Default：显示在文本框中的字符串。如果省略该参数，则文本框为空。
? Xpos：和 Ypos 成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略该参 数，则对话框会在水平方向居中。
? Ypos：和 Xpos 成对出现，指定对话框的上边与屏幕上边的距离。如果省略该参数， 则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。 ? Helpfile：设置对话框的帮助文件，可省略。
? Context：设置对话框的帮助主题编号，可省略。
3．案例说明
在本例中，将演示使用 InputBox 函数对话框输入信息，然后将信息输出到立即窗口中。
4．编写代码
在模块中输入以下代码：
Sub CetUserName() Dim Title As String Dim Name As String Dim StrName As String Title = \输入用户名\Name = \在选框中输入用户名：\StrName = InputBox(Name, Title) Debug.Print \用户名：\End Sub 5．运行结果
（1）按功能键“F5”运行子过程，将弹出“输入个人信息”窗口，如图 2.2 所示。在 对话框中输入内容后单击“确定”按钮。
（2）在“立即窗口”中将输出这些内容，如图 2.3 所示。
图 2.2 输入用户名 图 2.3 输出结果
6．程序分析
本案例比较简单，直接使用 InputBox 函数来输入信息。对于 InputBox 函数的其他参 数，都直接使用默认数值。在实际开发中，用户可以设置这些参数的数值，实现不同的功 能。
案例 10 事件确认
1．功能说明
在 Excel VBA 编码和调试代码的过程中，经常需要获取代码运行的阶段性结果或者信 息。例如，在编写数据处理的代码中，用户需要跟踪某变量的数值变化。因此，需要在程 序进行的不同地方，显示该变量的数值。
2．语法说明
在 Excel VBA 中，用户可以使用 MsgBox 函数来显示提示信息。MsgBox 函数可打开 对话框，显示提示信息。并根据用户选择对话框中的按钮，执行不同的程序代码。其语法 格式如下：
Value=MsgBox(prompt[,buttons][,title][ ,helpfile,context])
通过函数返回值可获得用户单击的按钮，并可根据按钮数值而选择程序段来执行。函 数有 5 个参数，各参数的意义与 Inputbox 函数参数的意义类似。
对于 buttons 参数，其含义是指定显示按钮的数目及形式、使用提示图标样式以及默 认按钮等。其常数值如表 2.1 所示。
表 2.1 按钮常数值
常量 vbOkOnly vbOkCancel vbAbortRetryIgnore vbYesNoCancel vbYesNo vbRetryCancel vbCritical vbQuestion vbExclamation vbInformation vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 vbDefaultButton4 vbApplicationModal vbSystemModal 0 1 2 3 4 5 值 只显示“确定”(Ok)按钮 说明 显示“确定”(Ok)及“取消”(Cancel)按钮 显示“异常终止”(Abort)、“重试”(Retry)及“忽略”(Ignore)按钮 显示“是”(Yes)、“否”(No)及“取消”(Cancel)按钮 显示“是”(Yes)及“否”(No)按钮 显示“重试”(Retry)及“取消”(Cancel)按钮 显示 Critical Message 图标 显示 Warning Query 图标 显示 Warning Message 图标 显示 Information Message 图标 以第一个按钮为默认按钮 以第二个按钮为默认按钮 以第三个按钮为默认按钮 以第四个按钮为默认按钮 进入该消息框，当前应用程序暂停 进入该消息框，所有应用程序暂停 16 32 48 64 0 256 512 768 0 4096 表 2.1 中的数值（或常数）可分为四组，其作用分别为： ? 第一组值（0~5）：确定对话框中按钮的类型与数量。
? 第二组值（16，32，48，64）：确定对话框中显示的图标。 ? 第三组值（0，256，512）：设置对话框的默认活动按钮。 ? 第四组值（0，4096）：确定消息框的强制响应性。
buttons 参数由上面 4 组数值组成，其组成方法是：从每一类中选择一个值，把这些数 值组合起来，就是 buttons 参数的值。
3．案例说明
本例的主要功能是当用户激活工作表 Sheet1 时，Excel 显示激活的信息。
4．编写代码
（1）进入 VBE，在代码窗口左上方的对象列表中选择“Worksheet”，如图 2.4 所示。
（2）在代码窗口右上方的事件列表中选择“Activate”，如图 2.5 所示。
图 2.4 对象列表 图 2.5 事件列表
（3）在上面生成的事件过程中输入以下代码：
Private Sub Worksheet_Activate() MsgBox (\你激活了 Sheet1 工作表！\5．运行结果
打开工作薄，然后选择 Sheet1 工作表，结果如图 2.6 所示。
End Sub
图 2.6 显示的提示信息
Excel VBA语法基础
