《ExcelVBA的应用》PPT课件

ExcelVBA的应用,用友ERP-U8管理软件简介用友ERP-U8的安装和卸载,用友ERP-U8管理软件简介用友ERP-U8的安装和卸载,ExcelVBA开发环境汇总年度台账编制VBA来来提示到龄员工,ExcelVBA开发环境,Excel中的宏查看录制的宏内容VBA启动方式VBA操作界面,VBA操作界面,VBA的标准窗口如图5-15所示，下面对窗口的基本组成部分进行介绍：标题栏：用来显示窗口的标题。菜单栏：位于标题栏的下方，包括【文件】、【编辑】等11个菜单项，每个菜单项都包含若干个菜单命令，分别选择菜单项上的相关命令可以执行相应的操作。工具栏：VBA提供有4中工具栏，分别是【标准】、【编辑】、【调试】和【用户窗体】工具栏，默认情况下显示【标准】工具栏。工程资源管理器：以树形图示形式显示了当前应用程序的各类文件清单。属性窗口：其中列出了所选Excel对象的属性及其当前位置。代码窗口：编辑和存放VBA代码，相当于文字编辑器。图5-15VBA窗口其他窗口：主要是为了调试和运行应用程序提供的，用户可以在这些窗口中看到程序中的错误点和某些特定的数据值。,Excel+Access+VBA汇总年度台账,创建按需整理月度工资表创建Access数据源创建职工年度台帐表编辑查询代码并运行程序,编辑查询代码并运行程序,编辑查询代码并运行程序的具体操作步骤如下：步骤1：启动VBA编辑器。在“职工年度台帐表”工作簿中选择“Sheet1”工作表标签，按下Alt+F11组合键，即可启动VBA编辑器，如图5-43所示。步骤2：添加引用库。在【VBA】编辑窗口中选择【工具】【引用】菜单项，即可弹出【引用VBAProject】对话框，在“可使用的引用”列表中勾选“MicrosoftActiveXDataObjects2.7Library”和“MicrosoftADOExt2.8forDDlandSecturity”两个复选框，如图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编辑器窗口中的“常用”工具栏中单击【视图MicrosoftExcel】按钮，即可返回到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单元格并移动鼠标至该单元格右下角，当光标变成十字形状时拖曳值H17单元格中，即可计算出其他员工的入职时间，如图5-57所示。,专家课堂（常见问题解决）,点拨1：在启用宏的过程中，为什么在受保护的工作表中无法启用呢？解答：因为在受保护的工作表中宏命令是不能使用的，如果想要使用宏命令，则必须事先解除对工作表的保护，这就是为什么在未保护的工作表中可以启用宏使用宏，而在受保护的工作表中不能使用的原因。点拨2：怎样决定控件的位置？如何选择添加到工作表还是添加到用户窗体？解答：这完全