excel怎么使用vba制作个人所得税计算器?

excel中使用vba制作个人所得税计算器

MicroExcel(微表格) 3.1.1.2 中文免费安装版

• 类型：办公软件
• 大小：5.16MB
• 语言：简体中文
• 时间：2015-01-21

查看详情

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运行“计算”过程调用所得税计算函数，就可以得出正确的结果。我这里没有写出返回值的语句，大家可以思考一下，返回结果该怎么写。

相关推荐：

excel中怎么利用VBA制作一个登录数据验证窗口?

excel怎么利用vba实现批量套打快递单批量打印单据?

excel怎么计算提成和个税? execel分段/阶梯式计算的方法

最新评论