第3章+Excel+VBA对象模型.pptxVIP

Excel VBA 程序设计;第一部分 Excel VBA开发平台概述 第二部分 VBA基础知识 第三部分 Excel VBA对象模型 第四部分 用户界面设计;基本概念（对象、属性、方法、事件） Excel的对象层次模型和常用对象 集合对象 对象变量的声明和赋值 使用Range对象 使用Application对象 使用Workbook对象 使用Worksheet对象;On Error 语句 Resume 语句 错误处理示例 ;On Error语句用来捕获错误，激活错误处理程序，即告诉VBA当程序运行时发生了错误该怎么办，常见有三种方式： On Error GoTo line 发生错误时，程序跳到line标号处执行（错误处理代码，必须在同一过程中，否则出错） On Error Resume Next 发生错误时，程序跳到发生错误的下一条语句继续执行 On Error GoTo 0 发生错误时，显示错误提示信息并中断运行（不运行错误处理程序）;进行错误处理时，执行完错误处理，往往需要用Resume语句让程序继续执行下去，常见有三种方式： Resume 后面不加next，表示错误处理代码结束后，从产生错误的语句处开始恢复程序运行（再次执行出错语句） Resume next 表示错误处理代码结束后，从产生错误的语句的下一条语句处开始恢复程序运行 Resume line 表示错误处理代码结束后，跳转到行标签line处开始恢复程序运行;Sub 计算输入数的平方根() Dim a As Double, b As Double, r as Variant start: Do While True 开始循环 On Error GoTo check1 捕获第一个可能的错误（输入非数值） a = InputBox(输入数字计算平方根, 平方根计算器) On Error GoTo check2 捕获第二个可能的错误（输入负数） b = Sqr(a) 计算平方根 MsgBox 输入数据平方根为： b, vbOKOnly, 计算结果 Loop check1: 错误处理语句1行标签 r = MsgBox(输入数据非法，是否继续？, vbOKCancel, 提示) If r = vbOK Then Resume 单击确定按钮再次执行出错语句（输入） Exit Sub check2: 行标签 r = MsgBox(输入数据为负数，是否继续？, vbOKCancel, 提示) If r = vbOK Then Resume start 跳转到start处 If r = vbCancel Then Exit Sub 退出过程 End Sub;Application对象代表整个Microsoft Excel应用程序本身，所有打开的工作簿都是属于一个Excel应用程序，即一个Application对象 通过Application对象提供的属性和方法，可控制Excel应用程序的外观、状态和其他操作;Application对象的常用方法 InputBox方法 FindFile方法 Quit方法 OnTime方法;“输入框”是一种简单的对话框，用来获取用户的输入信息 生成“输入框”有两种途径： VBA的InputBox函数 VBA. InputBox Excel应用程序的InputBox方法 Application. InputBox ;作用：在输入对话框中显示提示，等待用户输入正文或按下按钮，并返回包含输入框内容的字符串 语法：InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) Prompt 必需的。输入框的提示文本（=1024字符） Title 可选的。输入框的标题 Default 可选的。设置输入框中的默认值 Xpos 、Ypos可选的。输入框左上角的屏幕坐标值 Helpfile、 Context 可选的。帮助文件和帮助主题 函数返回值： 返回用户输入的字符串 若无输入（或单击输