excel中使用vba批量計算個人所得稅的方法
工具/原料
excel2013
更多經驗請關注，如果幫到了你，請在上方給個投票謝謝支援。
好人一生平安。 先頂後看年薪百萬，如果幫到了你，幫忙給個好評，這對小編很重要，萬分感謝。
方法/步驟
首先我們開啟一個工作樣表，這是一份工資表。
開啟vba編輯器，在程式碼框中，輸入以下程式碼。
Function 個人所得稅(curP As Currency)
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
新建一個過程sub，程式碼如下。
Sub 計算()
For i = 6 To 13
Sheets(1).Cells(i, 15).Value = 個人所得稅(Sheets(1).Cells(i, 14).Value)
Next
End Sub
程式碼是呼叫個人所得稅函式，計算N6-N13單元格工資的所得稅額，並將結果寫入O6-O13單元格中。
我們在5月工資也就是sheet1工作薄中插入一個控制元件按鈕，並將其關聯到“計算”過程。如果你是其他格式的表格，只需要修改步驟三中的表格資料位置即可正常使用。
以後有需要的時候，只要將資料輸入對應的單元格內，然後點選按鈕就可以正確的得到了個人所得稅的結果了。當然，你也可以自行呼叫vba執行函式，效果是一樣的。
注意事項
謝謝你的投票。
如果你有部分資料蒐集不到，可以私信我幫你尋找。謝謝。