用VBA开发员工信息表.pptx

1、正确学会Excel VBA的16堂课用VBA开发员工信息表使用窗体录入报表数据管理员工数据报表使用窗体录入报表数据使用窗体录入报表数据创建用户窗体窗体与工作簿的数据交换创建用户窗体创建用户窗体具体操作步骤如下：步骤1：如图11-1所示的“员工信息表”工作表中切换到【开发工具】选项卡，单击“代码”选项组中的【Visual Basic】按钮打开VBA代码编辑窗口，选择【插入】【用户窗体】菜单项插入一个名为“UserForm1”的用户窗体，在其【属性】窗口中修改“Caption”的值为“录入数据”，即可将该窗体的标题显示文本修改为“录入数据”，如图11-2所示。创建用户窗体创建用户窗体具体操作步骤如

2、下：步骤2：在【工具箱】窗口中单击【标签】按钮，在用户窗体中拖动鼠标绘制一个适当大小的标签，在其【属性】窗口的“Caption”文本框中输入“员工编号”，修改该标签的显示文本，在“BorderStyle”下拉列表中选择“1-fmBorderStyleSingle”选项，设置该标签显示边框，如图11-3所示。步骤3：在【工具箱】窗口中单击【文字框】按钮，在用户窗体中绘制一个适当大小的文本框，如图11-4所示。创建用户窗体创建用户窗体具体操作步骤如下：步骤4：在用户窗体中继续添加“员工姓名”、“出生年月”和“工作时间”标签以及与其分别相对应的文本框，如图11-5所示。步骤5：在【工具箱】窗口中单击

3、【框架】按钮，在用户窗体中绘制一个适当大小的框架控件，在其【属性】窗口的“Caption”文本框中输入“性别”，修改该框架的显示文本，如图11-6所示。创建用户窗体创建用户窗体具体操作步骤如下：步骤6：在框架中添加员工性别信息。即在【工具箱】窗口中单击【选项按钮】，在用户窗体中绘制一个选项按钮控件，在该选项按钮【属性】窗口的“Caption”文本框中输入“男”，修改该选项按钮的显示文本，如图11-7所示。步骤7：在该框架中添加一个显示文本为“女”的选项按钮，即可完成对“性别”框架及其选项的设置，如图11-8所示。在用户窗体上添加“学历”和“员工职位”的框架及相应的选项按钮，如图11-9所示。创

4、建用户窗体创建用户窗体具体操作步骤如下：步骤8：在添加的“员工职位”框架中，为使添加的选项按钮保持整体和谐性，先选择“总经理”选项按钮，在按住Ctrl键时依次选中其他选项按钮，在所选选项按钮上右击并选择【统一尺寸】【两者都相同】菜单项，即可将选中的所有选项按钮设置为统一大小。步骤9：在选中的选项按钮上再次单击鼠标右键，在弹出的快捷菜单中选择【对齐】【对齐到网格】菜单项，即可将所有选中的选项按钮设置为统一对齐方式。使用鼠标拖动的方法调整各选项按钮的位置，即可得到如图11-10所示的结果。创建用户窗体创建用户窗体具体操作步骤如下：步骤10：在【工具箱】窗口中单击【命令按钮】，在用户窗体上绘制一个命

5、令按钮控件，在该命令按钮的【属性】窗口中的“Caption”文本框中输入“确定”，修改该命令按钮的显示文本，如图11-11所示。步骤11：在该窗体上继续添加一个显示文本为“取消”的命令按钮，如图11-12所示。在全部设置完毕后，可对用户窗体的整体布局进行相应调整，完成窗体的创建过程。管理员工数据报表管理员工数据报表生成员工工资条制作员工卡打印员工考核表生成员工工资条生成员工工资条具体的操作步骤如下：步骤1：新建员工工资表工作簿，将工作表“Sheet1”重命名为“员工工资表”，在该工作表中输入员工各项信息，如图11-21所示。步骤2：在【开发工具】选项卡中单击“代码”选项组中的【Visual B

6、asic】按钮，即可打开VBA代码编辑窗口，选择【插入】【模块】菜单项插入一个模块1。步骤3：在该模块窗口中选择【插入】【过程】菜单项，即可打开【添加子过程】对话框，在“名称”文本框中输入“实发工资”，在“类型”组合框中选择“子程序”单选项，在【范围】组合框中选择“公共的”单选项，如图11-22所示。生成员工工资条生成员工工资条具体的操作步骤如下：步骤4：单击【确定】按钮，即可创建名为“实发工资”的公有子过程。在其中输入如下完整的VBA程序代码，如图11-23所示。步骤5：返回工作表中，为上述过程代码设置执行按钮，在【开发工具】选项卡中单击“控件”选项组中的【插入】下拉按钮，在其下拉列表中单击

7、【按钮（窗体控件）】按钮，当鼠标指针变为“+”形状时，在工作表中的适当位置处按住鼠标左键进行拖动，拖动至合适大小后释放鼠标左键，即可打开【指定宏】对话框，在“宏名”列表框中选择“实发工资”选项，如图11-24所示。生成员工工资条生成员工工资条具体的操作步骤如下：步骤6：单击【确定】按钮完成宏的指定操作。将按钮名称更改为“计算实发工资”，单击工作表中其他任意位置退出该按钮的编辑状态。将鼠标指针移到该按钮上，当指针形状变为 形状时单击【计算实发工资】按钮，即可完成实发工资的计算，如图11-25所示。步骤7：实发工资计算完毕后，即可进行生成员工工资条的程序设计。在“实发工资”子过程下继续添加如下“生

8、成工资条”的VBA代码。生成员工工资条生成员工工资条具体的操作步骤如下：步骤8：返回工作表为“生成工资条”过程设置执行按钮。即在【开发工具】选项卡中，单击“控件”选项组中的【插入】下拉按钮，在其下拉列表中单击【按钮（窗体控件）】按钮，当鼠标指针变为“+”形状时，在工作表中的适当位置处按住鼠标左键进行拖动，拖动至合适大小后释放鼠标左键，即可打开【指定宏】对话框，在“宏名”列表框中选择“生成工资条”选项，如图11-26所示。生成员工工资条生成员工工资条具体的操作步骤如下：步骤9：单击【确定】按钮，即可完成宏的指定操作。将按钮名称更改为“生成工资条”，单击工作表中其他任意位置退出该按钮的编辑状态，单

9、击该按钮，即可运行指定的宏代码，生成工资条，当工资条的生成完成后会弹出如图11-27所示的提示信息。步骤10：无需单击【确定】按钮，系统会在3秒钟后自动关闭该提示信息，此时可看到运行结果，如图11-28所示。专家课堂（常见问题与解答）专家课堂（常见问题与解答）点拨点拨1：宏放在WorkSheet和Sheet及模块中各有什么区域？解答：解答：放在ThisWorkbook或Sheet中的宏与模块中的宏的主要区别是book或Sheet中的过程函数只能是对象所专有的，不能在对象之外的任何地方调用，比如不能声明Public过程，否则编译报错，而模块中声明Public过程函数可以在任何地方使用。点拨点拨2：在制作员工卡时单击【显示信息】按钮，为什么图像显示不出来，而总是弹出运行时错误，路径找不到的提示信息？解答：解答：之所以出现这种情况，主要是由于被调用的图片输入路径不正确而引起的，修改存放图片的路径即可。另外，在调用照片并显示在图像控件时，图片的存放路径很重要，可根据实际情况输入图片的存放路径。