财务岗计算工资个税的高级操作技法

学习excel的人员中，不乏有很多财务人员，计算每位员工的个人所得税是每个月必做工作之一。前面咱们给大家介绍了四种Excel内置函数计算个税，但公式都比较长，对于新人比较难记住。今天，燕子给大家分享使用VBA编写自定义函数来计算个人所得税。

假设个人所得税的收缴标准如下：

下表为某公司某业务部门部分员工的工资情况。先将通过宏自定义函数的过程写出：

第一步，将现有的excel文件另存为“Excel启用宏的工作簿”。

由于关闭以.xlsx为后缀的工作簿后，再次打开该工作簿时，通过VisualBasic自定义的函数将会消失，因此首先将以.xlsx为后缀的工作簿另存为.xlsm为后缀的文件，以便之后在Visual Basic编辑的代码可以保存，并且保证文件关闭并重新打开时，仍保留有自定义函数。

第二步，打开Visual Basic窗口。

点击“开发工具——代码——Visual Basic”打开Visual Basic窗口，或用组合键“alt+f11”打开Visual Basic窗口，打开如下图所示的窗口。

第三步，在打开的Visual Basic窗口中，单击“插入”按钮，在弹出的下拉菜单中单击“模块”命令，在打开的窗口中输入代码。

Function tax(salary)

Select Case salary

Case Is <= 3500

tax = 0

Case 3500 To 5000

tax = 0.03 * (salary - 3500) - 0

Case 5000.01 To 8000

tax = 0.1 * (salary - 3500) - 105

Case 8000.01 To 12500

itax = 0.2 * (salary - 3500) - 555

Case 12500.01 To 38500

tax = 0.25 * (salary - 3500) - 1005

Case 38500.01 To 58500

tax = 0.3 * (salary - 3500) - 2755

Case 58500.01 To 83500

tax = 0.35 * (salary - 3500) - 5505

Case Else

tax = 0.45 * (salary - 3500) - 13505

End Select

End Function

 代码解释：

①Function函数的用法

Function 函数名称(参数1,参数2,…)

   代码

End Function

②SelectCase参数

     Case条件语句

     执行语句

     Case Else

     执行语句

   End Select

case条件语句的搭配：

1. 字符串（Case “x”），数值（Case 1），用to指定的数值范围（Case 1 to 3），用is指定的数值范围（Case is < 30）

2. Case Else表示不符合前面所有条件的情况。

第四步，输入完代码后，在菜单栏中单机“文件”按钮，在弹出的下拉菜单中单击“关闭并返回Microsoft Excel”菜单命令，关闭窗口。

第五步，调用自定义函数。

直接在C2单元格输入=tax(B2)，即可计算得到个人所得税，并采用下拉，将其余单元格填满，计算得出每位员工的个人所得税，结果如下表所示。

此外，还可以通过“插入函数”对话框调用自定义的函数，步骤主要是：点击“公式”选项卡，单击“函数库”选项组中“插入函数”命令，弹出“插入函数”对话框，在“选择类别”下拉菜单中选择“用户定义”，在“选择函数”中选择tax，点击“确定”，弹出“函数参数”对话框，输入“B2”，得到C2的结果，并采用下拉，将其余单元格填满，计算得出每位员工的个人所得税。