[工学]VBA程序设计.ppt

VBE窗口 主窗口、工程窗口、属性窗口、代码窗口 VBA语句书写规则： 不区分大小写，标点符号必须是英文符号； 一条语句一行，语句过长时，可以用 _ 将一个语句分成多行； 一行些多个语句时，语句间用 ：隔开； 判断下列变量是否合法？ aa x x3 student_1 sum1 3s if q*t -3x whf-99 mod \ 20 mod 3 25\6.6 true ( -1) False (0) 8-true false+5 转换函数 ASC( ) asc(“A”) =65 chr( ) chr(90+7)=“a” str( ) str(1234)=“1234” val( ) val(“123.56”)=123.56 Ucase( ) ucase(“abcDE”)=“ABCDE” Lcase( ) lcase(“cDE”)=“cde” 消息框（MsgBox） 消息框用于在对话框中显示消息，等待用户单击按钮，并返回一个整形值告诉用户单击哪一个按钮。其使用格式如下： MsgBox（prompt［，buttons］［，title］［，helpfile］［，context］） MsgBox “处理数据结束！”，VbInformation，“消息” MsgBox（prompt［，buttons］［，title］［，helpfile］［，context］） buttons 参数有下列设置值： vbOKOnly 0 只显示 OK 按钮。 VbOKCancel 1 显示 OK 及 Cancel 按钮。 VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。 VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮 VbYesNo 4 显示 Yes 及 No 按钮。 VbRetryCancel 5 显示 Retry 及 Cancel 按钮。 VbQuestion 32 显示 Warning Query 图标。  MsgBox （ “退出本系统？”，33，“消息”） MsgBox （ “退出本系统？”， VbOKCancel + VbQuestion ，“消息”） 2 If…Then…Else…语句 格式： If 关系或逻辑表达式 Then 语句1 Else 语句2 If后的表达式成立时执行Then后的语句，不成立时执行Else后的语句；然后程序继续执行If后的其他语句。 2 If…Then…Else…语句 格式： If 关系或逻辑表达式 Then 语句1 Else 语句2 2 If…Then…Else…语句 [例10] 3 块状选择语句 格式： If 关系或逻辑表达式 Then 语句组 End If 或 If 关系或逻辑表达式 Then 语句组1 Else 语句组2 End If Dim x as integer,y as integer X=inputbox(“请输入x的值：”) y=inputbox(“请输入y的值：”) If xy then Debug.print x Else Debug.print y End if 4 选择语句嵌套 [例] 5 Select Case语句 Select Case语句是多分支选择语句，格式： Select Case 测试表达式 Case 表达式1 语句1 Case 表达式2 语句2 … [Case Else 语句n+1] End Select 5 Select Case语句 [例] 5 Select Case语句 说明： 测试表达式不一定是关系表达式或逻辑表达式，可以是任意类型，但Case子句中的表达式类型必须与之相一致。 如果Case子句中的表达式是一个常量，则该常量直接写在Case之后，如Case 100。 如果Case子句后的表达式是一个范围，可用To从小到大指定，如Case 90 To 99、Case “A” To “Z”；或者使用Is 关系运算符 表达式 如，Case Is 3 And 8 4 循环语句 VBA提供了4类循环语句：For...Next循环、Do While...Loop循环、For Each...Next循环、While...End循环 最常用的是For.