Excel VBA 2019年最新版单月个税计算自定义函数 图文

2019年7月16日16:05:20Excel VBA 2019年最新版单月个税计算自定义函数 图文已关闭评论 3,470 views
微信公众号 【EXCEL880】
说出需求一键生成VBA代码 VBA中文编程助手VBAYYDS.COM

单月个税预扣计算表格最新版如下

个人所得税税率表三

(非居民个人工资、薪金所得,劳务报酬所得,稿酬所得,特许权使用费所得适用)

级数

应纳税所得额

税率(%)

速算扣除数

1

不超过3000元的

3

0

2

超过3000元至12000元的部分

10

210

3

超过12000元至25000元的部分

20

1410

4

超过25000元至35000元的部分

25

2660

5

超过35000元至55000元的部分

30

4410

6

超过55000元至80000元的部分

35

7160

7

超过80000元的部分

45

15160

 

起征点2019年已新改为5000,那么代码如下

Function 个税单次(工资, Optional 扣除 = 0)
    Dim 应税工资, 税率, 扣除数
    应税工资 = 工资 - 扣除 - 5000
    If 应税工资 <= 0 Then Exit Function
    Select Case 应税工资
        Case Is <= 3000
            税率 = 3: 扣除数 = 0
        Case Is <= 12000
            税率 = 10: 扣除数 = 210
        Case Is <= 25000
            税率 = 20: 扣除数 = 1410
        Case Is <= 35000
            税率 = 25: 扣除数 = 2660
        Case Is <= 55000
            税率 = 30: 扣除数 = 4410
        Case Is <= 80000
            税率 = 35: 扣除数 = 7160
        Case Else
            税率 = 45: 扣除数 = 15160
    End Select
    个税单次 = 应税工资 * 税率 / 100 - 扣除数
End Function

完整视频讲解请看我的培训课程

Excel VBA常用代码175个实例解析 全程手写代码教学 Excel880出品

http://excel880.com/dwz/3

说出需求一键生成VBA代码 VBA中文编程助手VBAYYDS.COM