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

学习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的结果,并采用下拉,将其余单元格填满,计算得出每位员工的个人所得税。

(0)

相关推荐