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

2019年7月16日16:05:20 评论 1,984 views
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
微信公众号 【EXCEL880】 QQ群【273774246】

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

个人所得税税率表三

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

级数

应纳税所得额

税率(%)

速算扣除数

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

微信公众号 【EXCEL880】 QQ群【273774246】
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

发表评论

您必须才能发表评论!