《ExcelVBA的应用》PPT课件

《《ExcelVBA的应用》PPT课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、ExcelVBA的应用♂用友ERP-U8管理软件简介♂用友ERP-U8的安装和卸载♂用友ERP-U8管理软件简介♂用友ERP-U8的安装和卸载♂ExcelVBA开发环境♂汇总年度台账♂编制VBA来来提示到龄员工ExcelVBA开发环境Excel中的宏查看录制的宏内容VBA启动方式VBA操作界面VBA操作界面VBA的标准窗口如图5-15所示，下面对窗口的基本组成部分进行介绍：●标题栏：用来显示窗口的标题。●菜单栏：位于标题栏的下方，包括【文件】、【编辑】等11个菜单项，每个菜单项都包含若干个菜单命令，分别选择菜单项上的

2、相关命令可以执行相应的操作。●工具栏：VBA提供有4中工具栏，分别是【标准】、【编辑】、【调试】和【用户窗体】工具栏，默认情况下显示【标准】工具栏。●工程资源管理器：以树形图示形式显示了当前应用程序的各类文件清单。●属性窗口：其中列出了所选Excel对象的属性及其当前位置。●代码窗口：编辑和存放VBA代码，相当于文字编辑器。图5-15VBA窗口●其他窗口：主要是为了调试和运行应用程序提供的，用户可以在这些窗口中看到程序中的错误点和某些特定的数据值。Excel+Access+VBA汇总年度台账创建按需整理月度工资表创建

3、Access数据源创建职工年度台帐表编辑查询代码并运行程序编辑查询代码并运行程序编辑查询代码并运行程序的具体操作步骤如下：步骤1：启动VBA编辑器。在“职工年度台帐表”工作簿中选择“Sheet1”工作表标签，按下Alt+F11组合键，即可启动VBA编辑器，如图5-43所示。步骤2：添加引用库。在【VBA】编辑窗口中选择【工具】→【引用】菜单项，即可弹出【引用—VBAProject】对话框，在“可使用的引用”列表中勾选“MicrosoftActiveXDataObjects2.7Library”和“MicrosoftA

4、DOExt2.8forDDlandSecturity”两个复选框，如图5-44所示。编辑查询代码并运行程序编辑查询代码并运行程序的具体操作步骤如下：步骤3：编辑初始化代码。在VBA编辑器左侧“工程”界面中双击“ThisWorkbook”，即可弹出“ThisWorkbook”代码编写区，单击“通用”下拉列表框按钮，从命令列表中选择ThisWorkbook进行代码编辑，如图5-45所示。步骤4：在代码编辑区输入初始化代码，这段代码功能为“Sheet1”表组合框添加选项，并刷新“Sheet2”表A列字段名，添加代码完毕后的

5、显示效果如图5-46所示。单击“常用”工具栏中的【保存】按钮保存输入的代码。编辑查询代码并运行程序编辑查询代码并运行程序的具体操作步骤如下：步骤5：编辑查看代码。在“VBA编辑器”左侧的“工程”界面中双击“Sheet1”，在“Sheet1”代码编写区单击“通用”下拉列表框选择Worksheet进行代码编辑，如图5-47所示。步骤6：在代码编辑区输入查看代码，当用户从组合框中选择了项目后，即可刷新显示数据，如图5-48所示。单击“常用”工具栏中的【保存】按钮，即可保存输入的代码。步骤7：运行代码。在VBA编辑窗口中单击

6、“常用”工具栏中的【运行子过程/用户窗体】按钮，即可运行查询代码程序。单击“ThisWorkbook（代码）”打开其窗口，单击“常用”工具栏中的【运行子过程/用户窗体】按钮，即可运行初始化代码程序，在VBA编辑器中还看到不到运行的结果，需要返回到工作表中才可看到。编辑查询代码并运行程序编辑查询代码并运行程序的具体操作步骤如下：步骤8：在VBA编辑器窗口中的“常用”工具栏中单击【视图MicrosoftExcel】按钮，即可返回到Excel工作界面。选择“Sheet1”工作表标签，在其中单击前面新添加组合框的下拉按钮，即

7、可弹出员工号选项菜单，选中“A001”，即可在表格中显示该员工的相关信息，如图5-49所示。步骤9：单击工作表标签“Sheet2”，此时在“全部项目”栏下面显示出了相关的子项目，如图5-50所示。至此，年度职工工资台帐表就制作完毕了。编制VBA来提示到龄员工创建职工退休到龄提醒表编制VBA来提示到龄员工创建职工退休到龄提醒表具体的操作步骤如下：步骤1：创建工作簿。创建一个名称为“职工退休到龄提醒表”工作簿并将“Sheet1”工作表标签命名为“人事数据表”。步骤2：输入员工相关信息。在“人事数据表”工作表中选择A3:M

8、17单元格区域，在其中输入除“入职时间”的其他相关数据信息，如：姓名、年龄、工号等，如图5-55所示。步骤3：编制计算员工入职时间公式。在“人事数据表”中选择H3单元格并输入公式：“=DATEDIF(F3,TODAY(),"Y")”，即可计算出员工工号为101的入职时间，如图5-56所示。创建职工退休到龄提醒表具体的操作步骤如下：步骤4：计算其