Excel制作一个人所得税计算器，实现的效果是输入工资总额，自动计算出您需要缴纳的个人所得税金额。

步骤如下

1.新建Excel工作簿

2.打开VBA编辑器界面：开发工具—Visual Basic（快捷键Alt+F11）

3.插入—模块—输入以下的VBA代码

4.按F5运行

VBA代码

Sub tax()
Dim MyValue As Integer '定义MyValue为整型变量
MyValue = InputBox("请输入您的工资总额") '输入工资总额
Income = MyValue - 3500
If Income <= 1500 Then '根据不同工资按照不同税率计算应纳所得税
 '3%税段
 TaxDue = Income * 0.05 - 0
ElseIf Income <= 4500 Then
 '10%税段
 TaxDue = Income * 0.1 - 105
ElseIf Income <= 9000 Then
 '20%税段
 TaxDue = Income * 0.2 - 555
ElseIf Income <= 35000 Then
 '25%税段
 TaxDue = Income * 0.25 - 1005
ElseIf Income <= 55000 Then
 '30%税段
 TaxDue = Income * 0.3 - 2755
ElseIf Income <= 80000 Then
 '35%税段
 TaxDue = Income * 0.35 - 5505
Else
 '45%税段
 TaxDue = Income * 0.45 - 13505
End If
MsgBox "您应缴的个税是：" & TaxDue & "元" '输出所得税
End Sub

效果