《ExcelVBA语法基础》由会员分享，可在线阅读，更多相关《ExcelVBA语法基础（18页珍藏版）》请在金锄头文库上搜索。
1、第 2 章 VBA 语法基础第 2 章VBA 语法基础和其他编程语言类似，VBA 程序代码也是有基础语句组成的。在本章中，将结合具体 的例子来介绍 VBA 语法的基础内容。主要包括输入、输出语句、分支结构和循环结构等。 在讲解各例子的时候，将详细分析例子的应用范围。2.1输入和输出语句在本小节中，将详细讲解最基础的语法结构：顺序结构。顺序结构不需要使用特殊的 控制语句，编辑工具按照用户编写的程序语句依次编译，依次执行。本小节中，将详细讲 解最基础的顺序语句：输入和输出语句。案例 8输出数据表1功能说明在 Excel VBA 中，用户可以使用 Print 方法输入各种类型的数据。同时，用户可以在
2、 程序代码中设置不同的输出，来检测程序代码。2语法说明在 Excel VBA 中，Print 方法组要应用于 Debug 对象，其语法格式如下： Debug.Print outputlist 参数 outputlist 表示需要打印的表达式或列表。如果省略参数，则打印空白行。Print 方法先计算表达式的数值，然后输出结果。在 outputlist 参数中还可以使用分隔符，格式化输出的结果，分隔符有以下几种：Spc(n)：插入 n 个空格到输出数据之间；Tab(n)：移动光标到适当位置，n 为移动的列数；分号：表示前后两个数据项连在一起输出；逗号：以 14 个字符为一个输出区，每个数据输出到对
3、应的输出区。3案例说明本例使用 Print 方法向 VBE 的立即窗口中输出数据表。4编写代码输出数据表的代码如下：Sub GetNumbers() Dim i As Integer13Dim j As IntegerFor i = 1 To 5For j = 1 To iDebug.Print i; +; j; =; i + j; ; NextDebug.Print NextEnd Sub5运行结果按功能键“F5”运行子过程，在“立即窗口”输出数据计算表，如图 2.1 所示。图 2.1 输出结果6程序分析在上面的程序代码中，利用循环结构依次输出不同情况的数字计算结果。关于循环结 构的知识，将
4、在后面章节中详细讲解。案例 9输入用户名1功能说明在 Excel VBA 开发过程中，经常需要和用户进行交互。例如，很多程序代码的结果依 赖于用户输入的信息。这个时候，用户需要调用输入函数，提供用户输入信息，并接收用 户所输入的信息。2语法说明在 Excel VBA 中，用户可以使用 InputBox 函数输入信息。该函数将打开对话框，用 户可以在对话框中输入数据，并返回所输入的内容。其语法格式如下： InputBox(prompt, title , default , xpos , ypos , helpfile, context) 各参数的含义如下：Prompt：对话框消息出现的字符串表达
5、式。最大长度为 1024 个字符。如果需要在对 话框中显示多行数据，则可在各行之间用回车符换行符来分隔。Title：对话框标题栏中的字符串。如果省略该参数，则把应用程序名放入标题栏中。Default：显示在文本框中的字符串。如果省略该参数，则文本框为空。Xpos：和 Ypos 成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略该参 数，则对话框会在水平方向居中。Ypos：和 Xpos 成对出现，指定对话框的上边与屏幕上边的距离。如果省略该参数， 则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。Helpfile：设置对话框的帮助文件，可省略。Context：设置对话框的帮助主题编号，
6、可省略。3案例说明在本例中，将演示使用 InputBox 函数对话框输入信息，然后将信息输出到立即窗口中。4编写代码在模块中输入以下代码：Sub CetUserName() Dim Title As String Dim Name As StringDim StrName As StringTitle = 输入用户名Name = 在选框中输入用户名： StrName = InputBox(Name, Title) Debug.Print 用户名：; StrNameEnd Sub5运行结果（1）按功能键“F5”运行子过程，将弹出“输入个人信息”窗口，如图 2.2 所示。在 对话框中输入内容后单击
7、“确定”按钮。（2）在“立即窗口”中将输出这些内容，如图 2.3 所示。图 2.2 输入用户名图 2.3 输出结果6程序分析本案例比较简单，直接使用 InputBox 函数来输入信息。对于 InputBox 函数的其他参 数，都直接使用默认数值。在实际开发中，用户可以设置这些参数的数值，实现不同的功 能。案例 10事件确认1功能说明在 Excel VBA 编码和调试代码的过程中，经常需要获取代码运行的阶段性结果或者信 息。例如，在编写数据处理的代码中，用户需要跟踪某变量的数值变化。因此，需要在程 序进行的不同地方，显示该变量的数值。2语法说明在 Excel VBA 中，用户可以使用 MsgBo
8、x 函数来显示提示信息。MsgBox 函数可打开 对话框，显示提示信息。并根据用户选择对话框中的按钮，执行不同的程序代码。其语法 格式如下： Value=MsgBox(prompt,buttons,title ,helpfile,context) 通过函数返回值可获得用户单击的按钮，并可根据按钮数值而选择程序段来执行。函 数有 5 个参数，各参数的意义与 Inputbox 函数参数的意义类似。对于 buttons 参数，其含义是指定显示按钮的数目及形式、使用提示图标样式以及默 认按钮等。其常数值如表 2.1 所示。表 2.1 按钮常数值常量值说明vbOkOnly0只显示“确定”(Ok)按钮vb
9、OkCancel1显示“确定”(Ok)及“取消”(Cancel)按钮vbAbortRetryIgnore2显示“异常终止”(Abort)、“重试”(Retry)及“忽略”(Ignore)按钮vbYesNoCancel3显示“是”(Yes)、“否”(No)及“取消”(Cancel)按钮vbYesNo4显示“是”(Yes)及“否”(No)按钮vbRetryCancel5显示“重试”(Retry)及“取消”(Cancel)按钮vbCritical16显示 Critical Message 图标vbQuestion32显示 Warning Query 图标vbExclamation48显示 Warni
10、ng Message 图标vbInformation64显示 Information Message 图标vbDefaultButton10以第一个按钮为默认按钮vbDefaultButton2256以第二个按钮为默认按钮vbDefaultButton3512以第三个按钮为默认按钮vbDefaultButton4768以第四个按钮为默认按钮vbApplicationModal0进入该消息框，当前应用程序暂停vbSystemModal4096进入该消息框，所有应用程序暂停表 2.1 中的数值（或常数）可分为四组，其作用分别为：第一组值（05）：确定对话框中按钮的类型与数量。第二组值（16，32，
11、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
12、）在上面生成的事件过程中输入以下代码：Private Sub Worksheet_Activate() MsgBox (你激活了 Sheet1 工作表！)End Sub5运行结果打开工作薄，然后选择 Sheet1 工作表，结果如图 2.6 所示。图 2.6 显示的提示信息6程序分析在本例中，使用的是 MsgBox 函数的最简单形式，也就是直接使用 MsgBox 函数显示 一个字符串信息。在实际开发中，用户可以设置各参数，得到不同的显示结果。2.2选择结构在 Excel VBA 中，除了常见的顺序结构之外，还有一种常见结构：选择结构。选择结 构的程序将根据给定的条件选择执行后续的代码。选择结构在
13、日常生活中应用十分广泛， 在本小节将结合具体的例子来讲解如何使用选择结构。案例 11判断优秀员工1功能说明在实际开发中，当用户只需要进行一种情况的判断时，最方便的方法是 If Then 语 句。If 后面的语句就是判断的条件，Then 后面的语句是需要执行的操作。2语法说明在 Excel VBA 中，使用 If.Then 语句可有条件地执行语句。其语法格式如下：If 逻辑表达式 Then语句 1语句 1 语句 nEnd If逻辑表达式可以是计算数值的表达式，VBA 将为 0 看作为 False，而非零数值都被看作 True。该语句的执行顺序是：当逻辑表达式的值是 True，则执行位于 Then
14、 与 End If 之 间的语句；当逻辑表达式的值是 False，则不执行 Then 与 End If 之间的语句，直接跳出循 环结构，其流程图如图 2.7 所示。语句序列逻辑表达式假真图 2.7 If Then 语句流程图If Then 结构还有单行结构条件语句。其语法格式如下： If 逻辑表达式 Then 语句 该语句的功能为：当逻辑表达式的值是 True，则执行 Then 后的语句；当逻辑表达式 的值是 False，则不执行 Then 后的语句。3案例说明某公司统计了员工上个月的销量，根据销量数值，公司判定销量数值大于 350 的员工为优秀员工。对于优秀员工将其对应的单元格标红，原始数据如图 2.8 所示。图 2.8 原始数据4编写代码判断优秀员工的代码如下：Sub ShowExcel() Dim i As IntegerFor i = 2 To 10If Sheets(1).Cells(i, 2).Value 350 Then Cells(i, 2).Interior.ColorIndex = 3End If
