时间:2021-05-18
excel如何使用vba制作个人所得税计算器?下面一起来看看。
1、首先我们打开一个工作样表作为例子。
2、打开vba编辑窗口,使用 alt+f11组合快捷键 ,或是使用开发者工具标签下的 vb快捷按钮 。并插入一个新的模块。
3、在模块编辑窗口中输入一个函数代码,代码如下:
Function 个人所得税()
curP = curP - 1600 '1600为免征额
If curP > 0 Then
Select Case curP
Case Is <= 500
suo = curP * 0.05
Case Is <= 2000
suo = (curP - 500) * 0.1 + 25
Case Is <= 5000
suo = (curP - 2000) * 0.15 + 125
Case Is <= 20000
suo = (curP - 5000) * 0.2 + 375
Case Is <= 40000
suo = (curP - 20000) * 0.25 + 1375
Case Is < 60000
suo = (curP - 40000) * 0.3 + 3375
Case Is < 80000
suo = (curP - 60000) * 0.35 + 6375
Case Is < 100000
suo = (curP - 80000) * 0.4 + 10375
Case Else
suo = (curP - 100000) * 0.45 + 15375
End Select
个人所得税 = suo
Else
个人所得税 = 0
End If
End Function
4、分析一下代码是主要是每个随征额的确定, 是工资收入越大,则征税比例越高 ,所以我们需要对工资额进行判定。如果使用if函数则在条件处理上会写的很繁琐,比如这样:
if suo<500 then shuie =curP * 0.05
elseif suo <=2000 and suo > 500 then shuie =(curP - 500) * 0.1 + 25
....
end if
这样写就会很麻烦。
5、接下来我们要写个过程来调用这个函数。代码如下:
Sub 计算()
curP = InputBox("工资")
个人所得税 (curP)
End Sub
6、点击 F5运行“计算 ”过程调用所得税计算函数,就可以得出正确的结果。这里没有写出返回值的语句,大家可以思考一下,返回结果该怎么写。
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
excel中使用vba制作个人所得税计算器软件名称:MicroExcel(微表格)3.1.1.2中文免费安装版软件大小:5.16MB更新时间:2015-01-2
Excel的强大在于你如何利用它!下面将教你利用某些函数来计算个人所得税。 1、首先,我们先了解个人所得税的计算: 个人所得税=(工资-三险一金-个税起
本文实例讲述了PHP计算个人所得税。分享给大家供大家参考,具体如下:不使用速算扣除数计算个人所得税,PHP自定义函数实现个人所得税计算。使用速算扣除数计算个人所
根据个人所得税法规定,个人提供专利权的使用权取得的所得按照特许权使用费计算个人所得税,如果是转让专利的所有权,按照财产转让所得计算个人所得税,为转让收入扣除
个人所得税app多个账号想要实现切换登录,该怎么切换账号呢?下面我们就来看看个人所得税app登录账号更换的方法。软件名称:个人所得税(电子缴税退税)forAnd