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

单月个税预扣计算表格最新版如下个人所得税税率表三（非居民个人工资、薪金所得，劳务报酬所得，稿酬所得，特许权使用费所得适用）级数应纳税所得额税率（%）速算扣除数1不超过3000元的302超过3000元至12000元的部分102103超过12000元至25000元的部分2014104超过25000元至35000元的部分2526605超过35000元至55000元的部分3044106超过55000元至80000元的部分3571607超过80000元的部分4515160起征点2019年已新改为5000，那么代码如下12345678910111213141516171819202122Function 个税单次(工资, Optional 扣除 = 0)Dim 应税工资, 税率, 扣除数应税工资 = 工资 - 扣除 - 5000If 应税工资 <= 0 Then Exit FunctionSelect Case 应税工资Case Is <= 3000税率 = 3: 扣除数 = 0Case Is <= 12000税率 = 10: 扣除数 = 210Case Is <= 25000税率 = 20: 扣除数 = 1410Case Is <= 35000税率 = 25: 扣除数 = 2660Case Is <= 55000税率 = 30: 扣除数 = 4410Case Is <= 80000税率 = 35: 扣除数 = 7160Case Else税率 = 45: 扣除数 = 15160End Select个税单次 = 应税工资 * 税率 / 100 - 扣除数End Function视频讲解请看我的培训课程 百度搜索 Excel880 VBA 175Excel VBA常用代码175个实例解析 全程手写代码教学