excel中使用vba製作個人所得稅計算器
工具/原料
excel2013
更多經驗請關注，如果幫到了你，請在上方給個投票謝謝支援。好人一生平安。
先頂後看年薪百萬，如果幫到了你，幫忙給個好評，這對小編很重要，萬分感謝。
方法/步驟
首先我們開啟一個工作樣表作為例子。
開啟vba編輯視窗，使用alt+f11組合快捷鍵，或是使用開發者工具標籤下的vb快捷按鈕。並插入一個新的模組。
在模組編輯視窗中輸入一個函式程式碼，程式碼如下：
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 + 25
Case Is <= 5000
suo = (curP - 2000) * 0.15 + 125
Case Is <= 20000
suo = (curP - 5000) * 0.2 + 375
Case Is <= 40000
suo = (curP - 20000) * 0.25 + 1375
Case Is < 60000
suo = (curP - 40000) * 0.3 + 3375
Case Is < 80000
suo = (curP - 60000) * 0.35 + 6375
Case Is < 100000
suo = (curP - 80000) * 0.4 + 10375
Case Else
suo = (curP - 100000) * 0.45 + 15375
End Select
個人所得稅 = suo
Else
個人所得稅 = 0
End If
End Function
分析一下程式碼是主要是每個隨徵額的確定，是工資收入越大，則徵稅比例越高，所以我們需要對工資額進行判定。如果使用if函式則在條件處理上會寫的很繁瑣，比如這樣：
if suo<500 then shuie =curP * 0.05
elseif suo <=2000 and suo > 500 then shuie =(curP - 500) * 0.1 + 25
....
end if
這樣寫就會很麻煩。
接下來我們要寫個過程來呼叫這個函式。程式碼如下：
Sub 計算()
curP = InputBox("工資")
個人所得稅 (curP)
End Sub
點選F5執行“計算”過程呼叫所得稅計算函式，就可以得出正確的結果。我這裡沒有寫出返回值的語句，大家可以思考一下，返回結果該怎麼寫。
注意事項
謝謝你的投票。
接收各種網路任務，幫你節約時間，請私信聯絡。謝謝你。