如何用excel中的vba制作个人所得税计算器?让我们来看看。
1.首先我们打开一个工作样表作为例子。
2.打开vba编辑窗口,使用alt f11组合键,或者使用“开发工具”选项卡下的vb快捷按钮。并插入新模块。
3.在模块编辑窗口中输入功能代码。代码如下:
函数个人所得税()
CurP=curP-1600 '1600是免税金额。
如果curP为0,则
选择案例曲线
装箱数=500
suo=curP * 0.05
案例是=2000
suo=(curP - 500) * 0.1 25
装箱数=5000
索=(curP - 2000) * 0.15 125
案例是=20000
suo=(curP - 5000) * 0.2 375
箱=40000
索=(curP - 20000) * 0.25 1375
一箱是6万
索=(curP - 40000) * 0.3 3375
一箱80000
suo=(curP - 60000) * 0.35 6375
一箱是10万
索=(curP - 80000) * 0.4 10375
其他情况
索=(curP - 100000) * 0.45 15375
结束选择
个人所得税=1000元
其他
个人所得税=0
如果…就会结束
结束功能
4.分析一下,代码主要是每次征收的确定,但是工资收入越高,税率越高,所以我们需要确定工资额。如果使用If函数,条件处理会很繁琐,比如这样:
如果suo500那么shuie=curP * 0.05
elseif suo=2000和suo 500则shue=(curP-500)* 0.1 25
.
如果…就会结束
写起来会很麻烦。
5.接下来,我们将编写一个调用该函数的过程。代码如下:
Sub()
CurP=InputBox('薪金')
个人所得税
末端接头
6.点击F5运行“计算”过程调用所得税计算函数,可以得到正确的结果。这里没有写返回值的语句。可以考虑一下返回结果怎么写。