excel如何使用vba制作个人所得税计算器
网友投稿
·
2023-11-15 23:11
·
所有内容 ·
阅读 1461
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> 500 then shuie =(curP - 500) * 0.1 + 25 .... end if 这样写就会很麻烦。 5、接下来我们要写个过程来调用这个函数。代码如下: Sub 计算() curP = InputBox("工资") 个人所得税 (curP) End Sub 6、点击 F5运行“计算 ”过程调用所得税计算函数,就可以得出正确的结果。这里没有写出返回值的语句,大家可以思考一下,返回结果该怎么写。
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> 500 then shuie =(curP - 500) * 0.1 + 25 .... end if 这样写就会很麻烦。 5、接下来我们要写个过程来调用这个函数。代码如下: Sub 计算() curP = InputBox("工资") 个人所得税 (curP) End Sub 6、点击 F5运行“计算 ”过程调用所得税计算函数,就可以得出正确的结果。这里没有写出返回值的语句,大家可以思考一下,返回结果该怎么写。