个人所得税筹划vab代码

yaoxuhuijsz

表中，
1.月工资错误，应该取最小税合计时的月工资数据，
2.当不同年薪行数比较多的时候，计算量大，速度慢，一两小时出不来数据
请帮忙改一下代码，谢谢！

[ 本帖最后由 yaoxuhuijsz 于 2011-7-3 09:06 编辑 ]

wangtx218

税不是最小：

发50万，月37166.67，年54000，税计：94235

个税计算筹划2011060.rar (55.99 KB, 下载次数: 163)

2011-7-2 17:28 上传

点击文件名下载附件

[ 本帖最后由 wangtx218 于 2011-7-2 17:28 编辑 ]

yaoxuhuijsz

个人所得税筹划vab代码
表中，
1.月工资错误，应该取最小税合计时的月工资数据，
2.当不同年薪行数比较多的时候，计算量大，速度慢，一两小时出不来数据
请帮忙改一下代码，谢谢！
Option Explicit
Public Sub 最小税合计()
Dim 年薪(), 月工资#, 税合计#, arr(), 最小税合计#, k#, 奖金#, 税合计1#, 税合计2#, 最小工资#, arr1(), i#, j#
年薪() = Range("a2:a" & Cells(Rows.Count, 1).End(3).Row)
For j = 1 To UBound(年薪())
    For 月工资 = 3501 To 年薪(j, 1) * 10000 / 12 - 1
        奖金 = 年薪(j, 1) * 10000 - 月工资 * 12
        税合计1 = Evaluate("(VLOOKUP(" & 奖金 & "/12,{0,0.03,0;1500,0.1,105;4500,0.2,555;9000,0.25,1005;35000,0.3,2755;55000,0.35,5505;80000,0.45,13505},2,1)*" & 奖金 & "-VLOOKUP(" & 奖金 & "/12,{0,0.03,0;1500,0.1,105;4500,0.2,555;9000,0.25,1005;35000,0.3,2755;55000,0.35,5505;80000,0.45,13505},3,1))")
        税合计2 = Evaluate("(ROUND(MAX((" & 月工资 & "-3500)*0.05*{0.6;2;4;5;6;7;9}-5*{0;21;111;201;551;1101;2701},0),2))*12")
        税合计 = 税合计1 + 税合计2
        k = k + 1
        ReDim Preserve arr(1 To 1, 1 To k)
        arr(1, k) = 月工资
        ReDim Preserve arr1(1 To 1, 1 To k)
        arr1(1, k) = 税合计
    Next 月工资

        最小税合计 = WorksheetFunction.Min(arr1())
    i = 1
    Do While arr1(1, i) = 最小税合计
        i = i + 1
    Loop
        最小工资 = arr(1, i)
        Cells(j + 1, 7) = 最小税合计
        Cells(j + 1, 2) = 月工资
        Erase arr1
        Erase arr
        k = 0
Next j
MsgBox "已完成"
End Sub

[ 本帖最后由 yaoxuhuijsz 于 2011-7-3 09:16 编辑 ]

wangtx218

我改不好，给一个灰袍法师 写的：

收入最大计算表_110702B.rar (19.08 KB, 下载次数: 401)

2011-7-3 10:03 上传

点击文件名下载附件

yaoxuhuijsz

还是要谢谢

灰袍法师

要想快，就最好直接查表，根本不用算，1万笔也就1秒钟搞定

本回帖的附件必须先计算出一个年薪100万以内的个人所得税最优化表格(附件已完成此计算，除非税制变化否则无需再算)

然后所有数据都直接查表

查表的取巧之处在于，如果年薪2大于年薪1，那么最优个人收入2也大于等于最优个人收入1

因此，考虑 年薪2 - 年薪1 的增量部分即可，即 :   最优个人收入2 = 最优个人收入1 + (年薪2 - 年薪1)造成的收入

而计算个人所得税是分区间的，在区间内，税率不变，因此假设 年薪1 = 10万，年薪2 = 10万零301

那么这个301肯定是全部分配到年终奖，或者全部分配到月收入

我们只要查表看一下10万零500的最优收入的分配结构，就知道这301应该分到哪里了，完全不需要计算！

好的计算方法是速度之王

[ 本帖最后由 灰袍法师 于 2011-7-4 01:10 编辑 ]

yaoxuhuijsz

灰袍法师，半夜上传的，太辛苦了，谢谢
大力推广给财务人员。

yaoxuhuijsz

还有个问题，不知道提出来是不是合理
因为年薪固定，税负最低情况下，月收入是有多种解，能否把月收入的最高解和最低解，即解的范围区间显示出来。
考虑实际情况，一个公司员工，比如年薪5万，公司不可能把5万都作为月工资的方式进行发放，而要把5万中的一部分留到年终发放，比如月工资3500，年终奖金8000，税负是240，也是最低税负，这样，一来可以调节企业资金，二来提高员工积极性，三来降低员工离职率等因素考虑

minjiwei

算是算出来了，怎么实施呢？要是每个人单独一种发放方法，那不是乱套啦？

abing3

3楼真牛. 学习.