Excel製作的個稅計算器(附VBA代碼!)

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

效果

Excel製作的個稅計算器(附VBA代碼!)


分享到:


相關文章: