论文部分内容阅读
［摘 要］ 本文将工资表分成封面、工资汇总表、工资明细表、工资条、考核表5个部分，通过函数及公式有机地连在一起，共同构成了整个工资表。工资明细表里的数据大部分由考核表计算得到，工资汇总表是对工资明细表的汇总，工资条由工资明细表自动生成。通过挖掘Excel的计算功能，减少数据录入，使数据计算更方便，使制作工资表更轻松。
［关键词］ Excel；工资表；宏
［中图分类号］F232［文献标识码］A［文章编号］1673-0194（2007）12-0039-03
Excel是大家熟知的Office组件，它有丰富的函数，有很强的数据计算功能，用它制作工资表简单易行，不需太多的计算机编程知识，不用花钱购买专门的财务软件，非常适合小企业使用。本文通过实例介绍工资表的制作。
一、工资表包含的表格页
首先整体介绍一下工资表，它包含5张表，分别为：封面、工资汇总表、工资明细表、工资条、考核表。因为工资表要打印出来装订，所以专门用一个工作表作工资表封面，如图1。考核表是对每位职工考勤情况及生产数量等数据的记录，如图2，工资明细表中的部分数据就是根据该表有关项目自动计算出来的，避免了手工计算。工资明细表是工资表中的主要表格，按工资项目列示每位职工的各项工资数，如图3。工资汇总表、工资条比较通用，如图4、图5。5个表格通过Excel公式及函数有机结合在一起，共同构成了整个工资表。下面逐一介绍每张表的制作。
二、工资封面表
工资封面一般包括企业名称、工资所属年度及月份、 制表人及制表日期等内容，可根据企业需要增减，“企业名称”和“年度月份”必须有，因为其他表要引用这两项内容，以方便数据的输入。在输入年度月份时，先输入一个单引号，再输入年度月份，即将本单元格转成文本格式，不能是日期格式。至于字体、字号、行距等格式，可依据自己的喜好设置，这样第一张表就完成了，以后发几月份的工资就将月份改成几月。
三、考核表
考核表不应是工资表中的内容，但它却是计算职工工资所不可缺少的，在制作工资明细表时就要用到它。各企业的考核办法差异很大，考核表也随之不同，本文使用了较为普通的考核办法，用公式简单表示为：基本工资（不含管理人员的基本工资）=单件计件工资额×产量；缺勤扣发=缺勤日扣工资额×缺勤天数。相应的考核表包含的项目有：年度及月份、工号、姓名、缺勤日扣工资额、单件计件工资额、缺勤天数、产量。输入数据时所有“年度及月份”单元格要“绝对引用”封面表中的“年度及月份”单元格，如本例中输入“=封面!$D$4”（$D$4是封面表中的“年度及月份”单元格），这样，保证了年度及月份在两个表中的一致，而且当发下个月的工资时，只需改动封面中的“年度及月份”，本表中的“年度及月份”单元格就全变成和封面中的一样了。本文中用了很多类似的引用，相同的数据只录入一次，避免重复输入发生数据不一致，也减轻了录入量。其他数据逐行输入。所有数据输入完毕后，把“年度及月份、工号、姓名、缺勤日扣工资额、单件计件工资额”各列设置为保护模式，因为这些列一般不会每月变化，避免在输入其他数据时误改，当然需要改变时可撤销保护模式,非常方便。
四、工资明细表
本表是工资表的主要部分，包含的项目可依据本企业情况设定，本例中有：部门、工号、姓名、基本工资、计件工资、奖金、缺勤扣发、应发、扣税、其他扣发、总扣、实发。里面的数据大部分通过引用其他表单元格或用公式计算得到，直接录入的数据并不很多。制作时先设置第一位职工的数据，然后通过拖动复制，把公式复制到其他行。“部门”、“工号”、“姓名”三项相对引用考核表相应单元格，如：在“部门”单元格中输入“=考核表!B3”（公式中的B3是考核表中首位职工的“部门”单元格，下面的其他公式类似），在“计件工资”单元格中输入公式“=考核表!G5*考核表!J5”，在考核表中输入第一位职工的完工数量后，“计件工资”数就自动计算出来了。同理，“缺勤扣发”单元格输入公式“=考核表!E3*考核表!H3 考核表!F3*考核表!I3”，在“应发”单元格输入公式“=D3 E3 F3-G3”，在“总扣”单元格输入公式“=I3 J3”，在“实发”单元格输入公式“=H3-K3”。“扣税”指代扣的个人所得税，计算稍微复杂一些，要用到VBA编写一个函数，方法如下：顺次执行菜单“工具”—“宏”—“Visual Basic 编辑器”，打开Visual Basic 编辑器，选择菜单“插入”—“模块”，然后再选择菜单“插入”—“过程”，在对话框中选择“函数”单选按钮，输入“函数名称”，如：tax，点击确定，然后在弹出的窗口中输入如下代码：
Public Function tax（salary）
Dim netSalary As Single
netSalary = salary-1 600
Select Case netSalary
Case netSalary <= 0
tax = 0
Case 0 To 500
tax = netSalary * 0.05
Case 500 To 2 000
tax = netSalary * 0.1-25
Case 2 000 To 5 000
tax = netSalary * 0.15-125
Case 5 000 To 20 000
tax = netSalary * 0.2-375
Case 20 000 To 40 000
tax = netSalary * 0.25-1 375
Case 40 000 To 60 000
tax = netSalary * 0.3-3 375
Case 60 000 To 80 000
tax = netSalary * 0.35-6 375
Case 80 000 To 100 000
tax = netSalary * 0.4-10 375
Case netSalary > 100 000
tax = netSalary * 0.45-15 375
End Select
End Function
最后保存退出，这样计算个人所得税的函数“tax”就完成了。使用方法和Excel内部函数一样，选择“用户定义”函数，就会看到tax函数，选择它并在参数框中输入同一职工的“应发”单元格名，点击“确定”，税金就计算出来了。拖动复制第一行，所有职工的大部分数据就有了，某些数据如“其他扣发”，可能无法计算得到，只能直接输入。这样工资明细表就完成了。日后人员发生增减变动时，先在考核表中变动，考核表中删除某一职工，本表相应行的部分单元格就会变成“#REF!”，表示此行职工在考核表中删除了，把此行删除即可；增加职工，在考核表中插入空行，录入各项数据，然后，在本表相应行次（不能错行）插入空行，复制上一行公式，新职工的大部分数据就有了。
［关键词］ Excel；工资表；宏
［中图分类号］F232［文献标识码］A［文章编号］1673-0194（2007）12-0039-03
Excel是大家熟知的Office组件，它有丰富的函数，有很强的数据计算功能，用它制作工资表简单易行，不需太多的计算机编程知识，不用花钱购买专门的财务软件，非常适合小企业使用。本文通过实例介绍工资表的制作。
一、工资表包含的表格页
首先整体介绍一下工资表，它包含5张表，分别为：封面、工资汇总表、工资明细表、工资条、考核表。因为工资表要打印出来装订，所以专门用一个工作表作工资表封面，如图1。考核表是对每位职工考勤情况及生产数量等数据的记录，如图2，工资明细表中的部分数据就是根据该表有关项目自动计算出来的，避免了手工计算。工资明细表是工资表中的主要表格，按工资项目列示每位职工的各项工资数，如图3。工资汇总表、工资条比较通用，如图4、图5。5个表格通过Excel公式及函数有机结合在一起，共同构成了整个工资表。下面逐一介绍每张表的制作。
二、工资封面表
工资封面一般包括企业名称、工资所属年度及月份、 制表人及制表日期等内容，可根据企业需要增减，“企业名称”和“年度月份”必须有，因为其他表要引用这两项内容，以方便数据的输入。在输入年度月份时，先输入一个单引号，再输入年度月份，即将本单元格转成文本格式，不能是日期格式。至于字体、字号、行距等格式，可依据自己的喜好设置，这样第一张表就完成了，以后发几月份的工资就将月份改成几月。
三、考核表
考核表不应是工资表中的内容，但它却是计算职工工资所不可缺少的，在制作工资明细表时就要用到它。各企业的考核办法差异很大，考核表也随之不同，本文使用了较为普通的考核办法，用公式简单表示为：基本工资（不含管理人员的基本工资）=单件计件工资额×产量；缺勤扣发=缺勤日扣工资额×缺勤天数。相应的考核表包含的项目有：年度及月份、工号、姓名、缺勤日扣工资额、单件计件工资额、缺勤天数、产量。输入数据时所有“年度及月份”单元格要“绝对引用”封面表中的“年度及月份”单元格，如本例中输入“=封面!$D$4”（$D$4是封面表中的“年度及月份”单元格），这样，保证了年度及月份在两个表中的一致，而且当发下个月的工资时，只需改动封面中的“年度及月份”，本表中的“年度及月份”单元格就全变成和封面中的一样了。本文中用了很多类似的引用，相同的数据只录入一次，避免重复输入发生数据不一致，也减轻了录入量。其他数据逐行输入。所有数据输入完毕后，把“年度及月份、工号、姓名、缺勤日扣工资额、单件计件工资额”各列设置为保护模式，因为这些列一般不会每月变化，避免在输入其他数据时误改，当然需要改变时可撤销保护模式,非常方便。
四、工资明细表
本表是工资表的主要部分，包含的项目可依据本企业情况设定，本例中有：部门、工号、姓名、基本工资、计件工资、奖金、缺勤扣发、应发、扣税、其他扣发、总扣、实发。里面的数据大部分通过引用其他表单元格或用公式计算得到，直接录入的数据并不很多。制作时先设置第一位职工的数据，然后通过拖动复制，把公式复制到其他行。“部门”、“工号”、“姓名”三项相对引用考核表相应单元格，如：在“部门”单元格中输入“=考核表!B3”（公式中的B3是考核表中首位职工的“部门”单元格，下面的其他公式类似），在“计件工资”单元格中输入公式“=考核表!G5*考核表!J5”，在考核表中输入第一位职工的完工数量后，“计件工资”数就自动计算出来了。同理，“缺勤扣发”单元格输入公式“=考核表!E3*考核表!H3 考核表!F3*考核表!I3”，在“应发”单元格输入公式“=D3 E3 F3-G3”，在“总扣”单元格输入公式“=I3 J3”，在“实发”单元格输入公式“=H3-K3”。“扣税”指代扣的个人所得税，计算稍微复杂一些，要用到VBA编写一个函数，方法如下：顺次执行菜单“工具”—“宏”—“Visual Basic 编辑器”，打开Visual Basic 编辑器，选择菜单“插入”—“模块”，然后再选择菜单“插入”—“过程”，在对话框中选择“函数”单选按钮，输入“函数名称”，如：tax，点击确定，然后在弹出的窗口中输入如下代码：
Public Function tax（salary）
Dim netSalary As Single
netSalary = salary-1 600
Select Case netSalary
Case netSalary <= 0
tax = 0
Case 0 To 500
tax = netSalary * 0.05
Case 500 To 2 000
tax = netSalary * 0.1-25
Case 2 000 To 5 000
tax = netSalary * 0.15-125
Case 5 000 To 20 000
tax = netSalary * 0.2-375
Case 20 000 To 40 000
tax = netSalary * 0.25-1 375
Case 40 000 To 60 000
tax = netSalary * 0.3-3 375
Case 60 000 To 80 000
tax = netSalary * 0.35-6 375
Case 80 000 To 100 000
tax = netSalary * 0.4-10 375
Case netSalary > 100 000
tax = netSalary * 0.45-15 375
End Select
End Function
最后保存退出，这样计算个人所得税的函数“tax”就完成了。使用方法和Excel内部函数一样，选择“用户定义”函数，就会看到tax函数，选择它并在参数框中输入同一职工的“应发”单元格名，点击“确定”，税金就计算出来了。拖动复制第一行，所有职工的大部分数据就有了，某些数据如“其他扣发”，可能无法计算得到，只能直接输入。这样工资明细表就完成了。日后人员发生增减变动时，先在考核表中变动，考核表中删除某一职工，本表相应行的部分单元格就会变成“#REF!”，表示此行职工在考核表中删除了，把此行删除即可；增加职工，在考核表中插入空行，录入各项数据，然后，在本表相应行次（不能错行）插入空行，复制上一行公式，新职工的大部分数据就有了。