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
效果
閱讀更多 恆說Office 的文章