Excel VBA的应用.pptVIP

Excel VBA开发环境 Excel中的宏 查看录制的宏内容 VBA启动方式 VBA操作界面 VBA操作界面 VBA的标准窗口如图5-15所示，下面对窗口的基本组成部分进行介绍： ●标题栏：用来显示窗口的标题。 ●菜单栏：位于标题栏的下方，包括【文件】、【编辑】等11个菜单项，每个菜单项都包含若干个菜单命令，分别选择菜单项上的相关命令可以执行相应的操作。 ●工具栏：VBA提供有4中工具栏，分别是【标准】、【编辑】、【调试】和【用户窗体】工具栏，默认情况下显示【标准】工具栏。 ●工程资源管理器：以树形图示形式显示了当前应用程序的各类文件清单。 ●属性窗口：其中列出了所选Excel对象的属性及其当前位置。 ●代码窗口：编辑和存放VBA代码，相当于文字编辑器。图5-15 VBA窗口 ●其他窗口：主要是为了调试和运行应用程序提供的，用户可以在这些窗口中看到程序中的错误点和某些特定的数据值。 Excel+Access+VBA汇总年度台账 创建按需整理月度工资表 创建Access数据源 创建职工年度台帐表 编辑查询代码并运行程序 编辑查询代码并运行程序 编辑查询代码并运行程序的具体操作步骤如下： 步骤1：启动VBA编辑器。在“职工年度台帐表”工作簿中选择“Sheet1”工作表标签，按下Alt+F11组合键，即可启动VBA编辑器，如图5-43所示。 步骤2：添加引用库。在【VBA】编辑窗口中选择【工具】→【引用】菜单项，即可弹出【引用—VBAProject】对话框，在“可使用的引用”列表中勾选“Microsoft ActiveX Data Objects 2.7 Library”和“Microsoft ADO Ext 2.8 for DDl and Secturity”两个复选框，如图5-44所示。 编辑查询代码并运行程序 编辑查询代码并运行程序的具体操作步骤如下： 步骤3：编辑初始化代码。在VBA编辑器左侧“工程”界面中双击“ThisWorkbook”，即可弹出“ThisWorkbook”代码编写区，单击“通用”下拉列表框按钮，从命令列表中选择ThisWorkbook进行代码编辑，如图5-45所示。 步骤4：在代码编辑区输入初始化代码，这段代码功能为“Sheet1”表组合框添加选项，并刷新“Sheet2”表A列字段名，添加代码完毕后的显示效果如图5-46所示。单击“常用”工具栏中的【保存】按钮保存输入的代码。 编辑查询代码并运行程序 编辑查询代码并运行程序的具体操作步骤如下： 步骤5：编辑查看代码。在“VBA编辑器”左侧的“工程”界面中双击“Sheet1”，在“Sheet1”代码编写区单击“通用”下拉列表框选择Worksheet进行代码编辑，如图5-47所示。 步骤6：在代码编辑区输入查看代码，当用户从组合框中选择了项目后，即可刷新显示数据，如图5-48所示。单击“常用”工具栏中的【保存】按钮，即可保存输入的代码。 步骤7：运行代码。在VBA编辑窗口中单击“常用”工具栏中的【运行子过程/用户窗体】按钮，即可运行查询代码程序。单击“ThisWorkbook（代码）”打开其窗口，单击“常用”工具栏中的【运行子过程/用户窗体】按钮，即可运行初始化代码程序，在VBA编辑器中还看到不到运行的结果，需要返回到工作表中才可看到。 编辑查询代码并运行程序 编辑查询代码并运行程序的具体操作步骤如下： 步骤8：在VBA编辑器窗口中的“常用”工具栏中单击【视图Microsoft Excel】按钮，即可返回到Excel工作界面。选择“Sheet1”工作表标签，在其中单击前面新添加组合框的下拉按钮，即可弹出员工号选项菜单，选中“A001”，即可在表格中显示该员工的相关信息，如图5-49所示。 步骤9：单击工作表标签“Sheet2”，此时在“全部项目”栏下面显示出了相关的子项目，如图5-50所示。至此，年度职工工资台帐表就制作完毕了。 编制VBA来提示到龄员工 创建职工退休到龄提醒表 编制VBA来提示到龄员工 创建职工退休到龄提醒表 具体的操作步骤如下： 步骤1：创建工作簿。创建一个名称为“职工退休到龄提醒表”工作簿并将“Sheet1”工作表标签命名为“人事数据表”。 步骤2：输入员工相关信息。在“人事数据表”工作表中选择A3:M17单元格区域，在其中输入除“入职时间”的其他相关数据信息，如：姓名、年龄、工号等，如图5-55所示。 步骤3：编制计算员工入职时间公式。在“人事数据表”中选择H3单元格并输入公式：“=DATEDIF(F3,TODAY(),Y)”，即可计算出员工工号为101的入职时间，如图5-56所示。 创建职工退休到龄提醒表 具体的操作步骤如下： 步骤4：计算其他员工的入职时间。在“人事数据表”工作表中单击H3单元格并