1、打开Excel工作表,开放工具-插入-表单控件-选择按钮(窗体按钮),鼠标点击需要放置的位置,然后按着左键,缩放到适合的大少再松开鼠标键。这时会弹出一个指定宏的窗口,我们直接确认就好了。
2、这时按钮键就生成了,我们选择中间的名字重新命名。我们也可以右键选择个税计算的按钮键,再次调整大少和位置的。
3、用Alt+F11,进入VBA编辑环境,选择插入-模块,弹出模块编辑窗口。选择过程,输入个税计算,然后确认。显示如下图所示代码
4、在两行代码之间插入下面代码Dim myvalue As Integermyvalue = InputBox(" 请输入工资总额")income = myvalue - 3500If income <= 1500 Thentaxdue = income * 0.05 - 0ElseIf income <= 4500 Thentaxdue = income * 0.1 - 105ElseIf income <= 9000 Thentaxdue = income * 0.2 - 555ElseIf income <= 35000 Thentaxdue = income * 0.25 - 1005ElseIf income <= 55000 Thentaxdue = income * 0.3 - 2755ElseIf income <= 80000 Thentaxdue = income * 0.35 - 5505Elsetaxdue = income * 0.45 - 13505End IfMsgBox "你应缴纳个人所得税" & taxdue
5、这时我们可以选择“F5”,运行一下上述代码,我们输入4000后选择确认,就能计算出个税金额了。
6、我们在右键点击个税计算按钮-选择指定宏-点击个税计算-确认。这时我们就建成了一个个税计算按钮了。我单击按钮,输入数据就可以计算出个税多少出来了。