使用VBA在Excel中创建个人所得税计算器

---

打开工作表和VBA编辑窗口

首先，打开一个Excel工作表作为示例。然后，通过按下Alt F11组合键或在“开发者”选项卡下找到VBA按钮，打开VBA编辑窗口并插入一个新模块。

编写个人所得税计算函数

在模块编辑窗口中输入以下函数代码：

```vba

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

Case Is < 5000

suo (curP - 2000) * 0.15

Case Is < 20000

suo (curP - 5000) * 0.2

Case Is < 40000

suo (curP - 20000) * 0.25

Case Is < 60000

suo (curP - 40000) * 0.3

Case Is < 80000

suo (curP - 60000) * 0.35

Case Is < 100000

suo (curP - 80000) * 0.4

Case Else

suo (curP - 100000) * 0.45

End Select

个人所得税 suo

Else

个人所得税 0

End If

End Function

```

优化代码逻辑

分析上述代码可知，主要是根据不同的工资额确定征税比例。为简化条件处理，可以使用`Select Case`语句代替繁琐的`If`语句嵌套，使代码更清晰易懂。

调用个人所得税计算函数

接下来，编写一个过程来调用上述函数。代码如下：

```vba

Sub 计算()

curP InputBox("请输入工资:")

个人所得税(curP)

End Sub

```

运行计算过程

最后，点击F5执行“计算”过程，调用个人所得税计算函数，即可得出正确结果。在这里没有显式写出返回值的语句，你可以思考如何返回计算结果并显示在工作表中。通过这个自制的个人所得税计算器，可以方便快捷地计算个人所得税，提高工作效率。

通过以上步骤，你可以在Excel中利用VBA功能定制个人所得税计算器，快速准确地计算个人所得税，为财务管理和税务规划提供便利。愿这篇文章对你有所帮助，欢迎继续探索更多Excel和VBA应用。