《用vba编制员工薪金管理系统汇编》由会员分享，可在线阅读，更多相关《用vba编制员工薪金管理系统汇编（19页珍藏版）》请在金锄头文库上搜索。
1、正确学会Excel VBA 的16堂课 用用VBA编制员工薪金管理系统 设置“员工薪金管理系统”工作簿 创建员工薪金管理窗体 运行员工薪金管理系统 设置“员工薪金管理”工作簿 添加美观的按钮 1在“首页”工作表添加按钮 2在其他工作表中添加“返回”按钮 汇总考勤记录 计算员工薪金 计算员工薪金 具体操作步骤如下： 步骤1：打开“员工薪金管理3”工作簿，切换到“薪金表”工作表中，如图13-22所示 。 步骤2：按照为“考勤记录”工作表添加“汇总考勤记录”圆角矩形的方法，在“薪金表 ”工作表中添加几个圆角矩形并设置其文本字体为“华文中宋”、字号为9号，如图 13-23所示。 计算员工薪金 具体操作
2、步骤如下： 步骤3：按Alt+F11组合键打开VBA代码窗口，在模块1代码编辑窗口中输入计算 基本工资的程序代码。 步骤4：关闭VBA代码窗口，返回“薪金表”工作表中，右击“基本工资”圆角矩形选 择【指定宏】菜单项，在【指定宏】对话框“宏名”列表框中选择“计算基本工资”选 项，如图13-24所示。 计算员工薪金 具体操作步骤如下： 步骤5：单击【确定】按钮，即可完成指定宏操作。此时“基本工资”圆角矩形已经 成为一个按钮，单击该【基本工资】按钮，即可计算出每位员工的基本工资，如 图13-25所示。员工的工龄工资是由员工的工作年限决定的，工作年限越长，工 龄工资越高。这里假设员工工龄每增加1年，工
3、龄工资就增加200元。如果工龄超 过10年，则工龄工资统一设定为2000元，即工龄工资的上限为2000元。 步骤6：按Alt+F11组合键打开VBA代码窗口，在模块1代码编辑窗口中输入计算 工龄工资的程序代码。 计算员工薪金 具体操作步骤如下： 步骤7：在输入完毕后关闭VBA代码窗口，返回“薪金表”工作表中，右击“工龄工 资”圆角矩形选择【指定宏】菜单项，即可打开【指定宏】对话框，在“宏名”列表 框中选择“计算工龄工资”选项，如图13-26所示。 步骤8：单击【确定】按钮，即可完成指定宏操作。此时“工龄工资”圆角矩形已经 成为一个按钮，单击该【工龄工资】按钮，即可计算出每位员工的工龄工资，如
4、图13-27所示。在该实例中员工奖金主要指销售人员的奖金，与销售业绩有关， 其计算公式设置为：奖金=销售额*5%。也可根据所在企业需要为奖金设置其他计 算方式，如为研发部门员工设置研发项目奖金，为生产部门设置以计划时间内超 额完成生产产品的数据为依据的奖金等。该实例以上述计算公式为依据计算销售 部门的奖金并将其他部门员工的奖金设置为零。 计算员工薪金 具体操作步骤如下： 步骤9：按Alt+F11组合键打开VBA代码窗口，在模块1的代码编辑窗口中输入计 算奖金的程序代码。 步骤10：在输入完毕后关闭VBA代码窗口返回“薪金表”工作表中，右击“奖金”圆 角矩形，在弹出菜单中选择【指定宏】菜单项，即
5、可打开【指定宏】对话框，在“ 宏名”列表框中选择“计算奖金”选项，如图13-28所示。 步骤11：单击【确定】按钮，即可完成指定宏操作。此时“奖金”圆角矩形已经成 为一个按钮，单击【奖金】按钮，即可计算出每位员工的奖金，如图13-29所示 。 计算员工薪金 具体操作步骤如下： 步骤12：按Alt+F11组合键打开VBA代码窗口，在模块1代码编辑窗口中输入差旅 费的代码程序。 步骤13：在输入完毕后关闭VBA代码窗口，返回“薪金表”工作表中，右击“差旅费 ”圆角矩形，在弹出菜单中选择【指定宏】菜单项，即可打开【指定宏】对话框， 在“宏名”列表框中选择“计算差旅费”选项，如图13-30所示。 步骤
6、14：单击【确定】按钮，即可完成指定宏操作。此时“差旅费”圆角矩形已经 成为一个按钮，单击【差旅费】按钮，即可计算出每位员工的差旅费，如图13- 31所示。企业员工的保险是由企业和个人共同承担的，在该实例中的保险是指员 工个人所要缴纳的部分，这里假设员工需要缴纳的保险均为150元。 计算员工薪金 具体操作步骤如下： 步骤15：按Alt+F11组合键打开VBA代码窗口，在模块1的代码编辑窗口中输入计 算保险的程序代码。 步骤16：在输入完毕后关闭VBA代码窗口返回“薪金表”工作表中，右击“保险”圆 角矩形选择【指定宏】菜单项，即可打开【指定宏】对话框，在“宏名”列表框中 选择“计算保险”选项，如
7、图13-32所示。 步骤17：单击【确定】按钮，即可完成指定宏操作。此时“保险”圆角矩形已经成 为一个按钮，单击【保险】按钮，即可计算出每位员工的保险费，如图13-33所 示。 计算员工薪金 具体操作步骤如下： 步骤17：按Alt+F11组合键打开VBA代码窗口，在模块1代码编辑窗口中输入计算 缺勤扣款的程序代码。 步骤18：在输入完毕后关闭VBA代码窗口返回“薪金表”工作表中，右击“缺勤扣款 ”圆角矩形选择【指定宏】菜单项，即可打开【指定宏】对话框，在“宏名”列表框 中选择“计算缺勤扣款”选项，如图13-34所示。 步骤19：单击【确定】按钮，即可完成指定宏操作。此时“缺勤扣款”圆角矩形已
8、经成为一个按钮，单击【缺勤扣款】按钮，即可计算出每位员工的缺勤扣款，如 图13-35所示。 计算员工薪金 具体操作步骤如下： 步骤20：按Alt+F11组合键打开VBA代码窗口，在模块1代码编辑窗口中输入计算 加班费的程序代码。 步骤21：在输入完毕后关闭VBA代码窗口返回“薪金表”工作表中，右击“加班费” 圆角矩形选择【指定宏】菜单项，即可打开【指定宏】对话框，在“宏名”列表框 中选择“计算加班费”选项，如图13-36所示。 步骤22：单击【确定】按钮，即可完成指定宏操作。此时“加班费”圆角矩形已经 成为一个按钮，单击【加班费】按钮，即可计算出每位员工的加班费，如图13- 37所示。根据计算
9、结果得到每位员工的实发工资。计算实发工资的公式为：实发 工资=基本工资+工龄工资+奖金+差旅费-保险-缺勤扣款+加班费。 计算员工薪金 具体操作步骤如下： 步骤23：按Alt+F11组合键打开VBA代码窗口，在模块1的代码编辑窗口中输入计 算实发工资的程序代码。 步骤24：在输入完毕后关闭VBA代码窗口返回“薪金表”工作表中，右击“实发工资 ”圆角矩形选择【指定宏】菜单项，即可打开【指定宏】对话框，在“宏名”列表框 中选择“计算实发工资”选项，如图13-38所示。 步骤25：单击【确定】按钮，即可完成指定宏操作。此时“实发工资”圆角矩形已 经成为一个按钮，单击该【实发工资】按钮，即可计算出每位
10、员工的实发工资， 如图13-39所示。 创建员工薪金管理窗体 创建【员工薪金查询】窗体 创建【查询结果】窗体 创建【管理员登录】窗体 运行员工薪金管理系统 具体的操作步骤如下： 步骤1：打开“员工薪金管理4”工作簿，即可打开【员工薪金查询】对话框，在其 中输入想要查询的员工编号，如输入“EM0010”，如图13-62所示。 步骤2：单击【开始查询】按钮，即可自动关闭【员工薪金查询】对话框并显示 【查询结果】对话框，在其中可以查看该员工的详细信息，如图13-63所示。 运行员工薪金管理系统 具体的操作步骤如下： 步骤3：单击【返回】按钮，即可关闭【查询结果】对话框并返回到【员工薪金 查询】对话框
11、，在文本框中输入另一位员工的编号，这里输入“EM0006”，如图 13-64所示。 步骤4：单击【开始查询】按钮进入【查询结果】对话框，由于该员工不是销售 部员工，所以在查询结果中没有显示销售额和奖金信息，该员工也没有出差，所 以也不显示出差的信息，如图13-65所示。 运行员工薪金管理系统 具体的操作步骤如下： 步骤5：单击【返回】按钮返回到【员工薪金查询】对话框中，如果输入一个工 作簿中不存在的员工编号，例如输入“EM110”，单击【开始查询】按钮，即可弹 出“不存在这个员工编号！”的提示信息，如图13-66所示。 步骤6：单击提示信息对话框中的【确定】按钮返回【员工薪金查询】对话框， 如
12、果用户是管理员则单击【管理员登录】按钮，即可进入【管理员登录】对话框 ，如图13-67所示。 运行员工薪金管理系统 具体的操作步骤如下： 步骤7：如果在“密码”文本框中输入不正确的密码，如输入“123456789”，单击【 登录】按钮，即可弹出“密码不正确！”的提示信息，如图13-68所示。 步骤8：单击提示信息对话框中的【确定】按钮返回【管理员登录】对话框，在 其中输入正确的密码“123456”，单击【登录】按钮自动关闭【管理员登录】对话 框并进入“员工薪金管理4.xlsm”工作簿中，如图13-69所示。 专家课堂（常见问题与解答） 点拨1：在创建【员工薪金查询】窗体过程中添加【开始查询】按
13、钮的响应程 序时，为什么不使用VLookup函数，而要使用For循环？ 解答：因为使用VLookup函数时需要注意，如果增加了新的员工记录，例如 在“员工资料”工作表中新增加了一行员工记录，则要修改VLookup函数的参数 ，即将VLookup函数中的第2个参数“Sheets(“员工资料“).Range(“A1:H30“)”修 改为“Sheets(“员工资料“).Range(“A1:H31“)”。而使用For循环就没有这样的麻 烦，因为For循环是动态的记录工作表中包含数据的单元格的行数。 点拨2：在编写【开始查询】按钮响应程序时，为什么不定义获取员工信息的 变量？ 解答：之所以在CommandButton1_Click事件处理程序中没有定义用于获取 员工信息的变量，是因为在该工作簿的其他窗体中也可能会用到这些变量， 所以需要在模块中单独将它们定义成全局变量。
