VBA编程及应用基础配套教材课件完整版(文字可修改版).pptx

VBA编程及应用基础配套教材课件完整版(文字可修改版).pptx

PPT课件完整版PPT完整版课件全套课件全套PPT全册课件全册PPT全册电子教案全书课件全书PPT全书电子教案整套课件整套PPT教学课件汇总电子教案汇总PPT汇总教学教程幻灯片

VBA概述 开发环境VBE、宏 本讲内容 VBA的开发环境VBE 宏的基本概念 录制、编辑、运行宏 保存带宏的工作簿 什么是VBA? VBA(Visual Basic for Applications)是Microsoft Office 系列组件的内置编程语言,即应用程序中的VB。它“寄生”于Office应用程序,是 Office 套装软件的一个重要组件 使用 VBA 可以结合 Office 组件开发应用程序,如在 Excel 中自定义函数、开发应用程序等 例:认识VBA Excel中使用VBA功能 VBA开发环境VBE Office提供了VBA的开发环境,即 Visual Basic 编辑器(VBE)窗口 在使用VBE前,必须先运行Office软件,如 Excel 2010 在Excel环境中打开VBE窗口的方法: 单击“开发工具”选项卡中“代码”组中的“Visual Basic”按钮 按 Alt + F11 组合键 进入VBE “开发工具”选项卡 默认情况下,“开发工具”选项卡没有显示在功能区,可通过“自定义功能区”设置将其显示 工程资源管理器窗口 代码窗口 属性窗口 立即窗口 本地窗口 VBA工程 工作表对象 工作簿对象 窗体 模块 工程:模块、窗体等对象的集合,在VBA中一个工作簿就是一个工程 对象(P.11):代表应用程序中的元素,比如,工作表、单元格、图表、窗体,或是一份报告 属性(P.13):属性定义了对象特性,像大小、颜色、对象状态等 方法(P.13):对象可以执行的动作 模块:声明及过程的集合 过程:可单独执行的程序单元 事件:是指发生在一个对象上并能被此对象辨别的操作,如打开工作簿 了解几个概念 添加模块 菜单栏“插入”|“模块”命令 添加过程 在模块中添加过程,最常见的结构如下: 可以通过“插入”|“过程”对话框 Sub 过程名( ) 程序代码 End Sub 第一个VBA程序 添加一个模块,再添加一个子过程,如下: 运行该过程查看结果 Sub Test1() Range(A1).Value = Hello, World! End Sub 如何引用单元格中的值 两种方法: Cells(行号, 列号).Value 如:Cells(5, 3).Value,表示引用的是C5单元格 Range(单元格地址).Value 如:Range(“C5”).Value,表示引用的也是C5单元格 一开始直接写VBA代码有点困难? 录制宏很好用哦 什么是宏?(P.1) 具体学习VBA之前,先来了解一下“宏” 宏是通过一次单击就可以应用的命令集,一般用于自动执行一系列重复性操作,以提高工作效率 本质上宏是保存在 Visual Basic 模块中的一组代码 例:将认识宏工作簿Sheet1工作表中的A1单元格设置成绿色底纹的格式 创建宏(P.1) 使用宏录入器录制宏,步骤如下: 在“开发工具”选项卡上的“代码”组中,单击“录制宏” 在弹出的“录制新宏”对话框中进行设置后再单击“确定”开始录制。 在工作表中执行某些操作。 在“开发工具”选项卡上的“代码”组中,单击“停止录制”。 实践:录制一个修改单元格底纹的宏 保存带宏的工作簿 保存带宏的工作簿时会弹出如下信息框 需要将工作簿保存为“启用宏的工作簿(.xlsm)” 单击“否”按钮,弹出“另存为”对话框 在“保存类型”下拉列表框中选择“Excel启用宏的工作簿(.xlsm)”进行保存 执行宏——方法1(P.2) 使用“宏”对话框 选择“开发工具”选项卡,在“代码”组中单击“宏”按钮,弹出“宏”对话框 单击“执行”按钮 执行宏——方法2 为宏指定快捷键 录制宏时可以指定 在“宏”对话框中选中要设置的宏,单击“选项…”按钮 执行宏——方法3 将宏命令添加至功能区或快速工具栏 运行宏——方法4 将宏指定到工作表上的按钮(或其它图形对象) 插入表单按钮控件 为表单按钮控件指定宏 实践 自己录制一个设置单元格边框的宏,并用以上四种方法运行录制的宏 思考:宏的本质是什么? 查看宏代码 选择“开发工具”选项卡,在“代码”组中单击“宏”按钮,弹出“宏”对话框 单击“编辑”按钮 查看宏代码 VBA过程代码 “设置底纹”是宏的名称 查看宏代码 Sub 设置底纹() 设置底纹 宏 With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5287936 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub 说

您可能关注的文档

文档评论(0)

1亿VIP精品文档

相关文档