您的位置：网站首页> IT爱问> 当前文章

excel之vba代码计算个人所得税

老董2023-03-16171围观,129赞

　　本站站长擅长用python自动处理excel，请多关注本站。

　　邱荣燕excel-学习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条件语句的搭配：

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

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

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

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

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

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