第11章 面向对象程序设计语言—VBA.pptVIP

第十一章  面向对象程序设计语言－VBA 内容 编程的基本概念 对象 属性和方法 事件 事件代码 过程、子程序和函数 子程序 函数 过程应用例 VBA模块类型 VBA编程环境 窗口工具条 工程、属性、代码窗口 变量、常量与数据类型 VBA主要数据类型 主要类型说明 变量和常量的声明 变量和常量的作用域 模块变量 在模块内有效。 Dim和Static所声明的变量默认为在模块内私有。也可用Private语句显式声明。例如， Dim tName As String Const PI=3.1415926 所声明的变量和常只能被它们所在的模块使用。 局部变量 只在某个过程内起作用。在过程结束之前，Dim语句一直保存着变量的值，即以Dim语句声明的变量在过程之间调用时会丢失数据。而用Static语句声明的变量则在模块内一直保留其值，直到模块被复位或重新启动。 数据类型转换 数组和自定义变量 常用语句 语句的书写规定 程序结构 IF语句 Select Case语句 For Next 语句 Do…Loop 语句 VBA编程错误处理 一般错误处理程序段： On Error GoTo ErrHandler … [RepeatCode：] （Code using ErrProc to handle errors） … GoTo SkipHandler ErrHandler： Call ErrorProc [GoTo RepeatCode] SkipHandle： …（其他程序代码） VBA程序由三种基本结构组成： 顺序结构：语句按排列的顺序依次执行。 条件判断结构：按照给定的条件进行判断，再按判断的 结果分别执行程序中不同部分的代码。 循环结构：按照条件反复执行一系列语句。 根据循环的条件，可以把循环结构分为两类： -当型循环结构：当条件成立时，反复执行语句。 -直到型循环结构：反复执行语句直到条件成立为止。 语句组2 语句组1 T F 语句组2 条件 语句组2 F T 条件 语句组 T F 条件 语句组 If…Then…Else语句有三种形式： 单行式：条件成立则执行一个语句。 格式：if 条件 then 语句 例：if A=0 then MsgBox X*X 若有多个语句，应写在一行且用冒号隔开，例如， If A0 Then A=A+1:B=B+2:C=C+3 带有else（否则）部分的形式：条件成立则执行一组语句，否则执行另一组语句 格式： If 条件 then 语句组1 Else 语句组2 End if x=InputBox(“x=”) If x=0 then y=2*x+1 Else y=-x Endif MsgBox “y=” y IF语句的嵌套： 格式： If 条件1 then 语句1 Elseif 条件2 then 语句2 …… Else 语句n End if 例：按成绩输出信息 score=InputBox(“成绩”) If score=90 Then Msgbox “优” ElseIf score=80 Then Msgbox “良” ElseIf score=70 Then Msgbox “中” ElseIf score=60 Then Msgbox “及格” Else Msgbox “不及格” End If Select Case选择结构：根据表达式求值结果，选择执行几个分支中的一个。 格式： Select Case 检验表达式 [Case 比较列表1 ] [ 语句1] [Case 比较列表2 ] [ 语句1] …… [Case Else [语句n]] End Select 例：按成绩输出信息 score=InputBox(“成绩”) k=score/10 Select Case k Case 9,10: Msgbox “优” Case 8: Msgbox “良” Case 7: Msgbox “中” Case 6: Msgbox “及格” Case Is 6: Msgbox “差” End