Option Explicit

Function PerTax(FIncome As Double, FDeduct As Double)
'
'功能：计算个人所得税函数
'制作：救火
'日期：2007-03-15
'版本：msXL v 0.10
'修改：
'
'用法=pertax(申报收入总额,税前扣除数)
'如=pertax(2000,1600)
   
'1 不超过500元的 5 0
'2 超过500元至2000元的部分 10 25
'3 超过2000元至5000元的部分 15 125
'4 超过5000元至20000元的部分 20 375
'5 超过20000元至40000元的部分 25 1375
'6 超过40000元至60000元的部分 30 3375
'7 超过60000元至80000元的部分 35 6375
'8 超过80000元至100000元的部分 40 10375
'9 超过100000元的部分 45 15375
   
  Dim perIncome, PerTax1 As Double
  perIncome = FIncome - FDeduct
 
  If perIncome <= 0 Then
            PerTax = 0
    Else
 
 
            Select Case perIncome
                Case 0 To 500: PerTax = perIncome * 0.05
                Case 500.01 To 2000: PerTax1 = (perIncome * 0.1 - 25)
                Case 2000.01 To 5000: PerTax1 = (perIncome * 0.15 - 125)
                Case 5000.01 To 20000: PerTax1 = (perIncome * 0.2 - 375)
                Case 20000.01 To 40000: PerTax1 = (perIncome * 0.25 - 1375)
                Case 40000.01 To 60000: PerTax1 = (perIncome * 0.3 - 3375)
                Case 60000.01 To 80000: PerTax1 = (perIncome * 0.35 - 6375)
                Case 80000.01 To 100000: PerTax1 = (perIncome * 0.4 - 10375)
                Case Is >= 100000.01: PerTax1 = (perIncome * 0.45 - 15375)
            End Select
    PerTax = Round(PerTax1, 2)
  End If
End Function

 选择"加载宏"菜单

查找宏文件，前勾选引用它



宏安全中，对VBA，加载宏进行信任属性设置。

 

使用方法：如excel函数一样
=perTax(计税所得,法定扣除额)
如:
=pertax(2532,1600)即可自动计算出所税税额