用VBA编制员工薪金管理系统

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所示。员工的工龄工资是由员工的工作年限决定的，工作年限越长，工龄工资越高。这里假设员工工龄

3、每增加1年，工龄工资就增加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所示。步骤14：单击【确定

6、】按钮，即可完成指定宏操作。此时“差旅费”圆角矩形已经成为一个按钮，单击【差旅费】按钮，即可计算出每位员工的差旅费，如图13-31所示。企业员工的保险是由企业和个人共同承担的，在该实例中的保险是指员工个人所要缴纳的部分，这里假设员工需要缴纳的保险均为150元。计算员工薪金计算员工薪金具体操作步骤如下：步骤15：按Alt+F11组合键打开VBA代码窗口，在模块1的代码编辑窗口中输入计算保险的程序代码。步骤16：在输入完毕后关闭VBA代码窗口返回“薪金表”工作表中，右击“保险”圆角矩形选择【指定宏】菜单项，即可打开【指定宏】对话框，在“宏名”列表框中选择“计算保险”选项，如图13-32所示。步骤1

7、7：单击【确定】按钮，即可完成指定宏操作。此时“保险”圆角矩形已经成为一个按钮，单击【保险】按钮，即可计算出每位员工的保险费，如图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：单击【确定】按钮，即可完成指定宏操作。此时“实发工资”圆角矩形已经成为一个按钮，单击该【实发工资】按钮，即可计算出每位员工的实发工资，如图13-39所示。创建员工薪金管理窗

10、体创建员工薪金管理窗体 创建【员工薪金查询】窗体 创建【查询结果】窗体 创建【管理员登录】窗体运行员工薪金管理系统运行员工薪金管理系统具体的操作步骤如下：步骤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：在创建【员工薪金查询】窗体过程中添加【开始查询】按钮的响应程序时，为什么不使用VLookup函数，而要使用For循环？解答：解答：因为使用VLookup函数时需要注意，如果增加了新的员工记录，例如在“员工资料”工作表中新增加了一行员工记录，则要修改VLookup函数的参数，即将VLookup函数中的第2个参数“Sheets(员工资料).Range(A1:H30)”修改为“Sheets(员工资料).R