excel中使用vba制作個人所得稅計算器

1、首先我們打開一個工作樣表作為例子。

2、打開vba編輯窗口，使用alt+f11組合快捷鍵，或是使用開發者工具標簽下的vb快捷按鈕。并插入一個新的模塊。

3、在模塊編輯窗口中輸入一個函數代碼，代碼如下：

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

4、分析一下代碼是主要是每個隨征額的確定，是工資收入越大，則征稅比例越高，所以我們需要對工資額進行判定。如果使用if函數則在條件處理上會寫的很繁瑣，比如這樣：

if suo<500 then shuie =curP * 0.05

elseif suo <=2000 and suo > 500 then   shuie =(curP - 500) * 0.1 + 25

....

end if

這樣寫就會很麻煩。

5、接下來我們要寫個過程來調用這個函數。代碼如下：

Sub 計算()

 curP = InputBox("工資")

 個人所得稅 (curP)

End Sub

6、點擊F5運行“計算”過程調用所得稅計算函數，就可以得出正確的結果。我這里沒有寫出返回值的語句，大家可以思考一下，返回結果該怎么寫。

相關推薦：

excel中怎么利用VBA制作一個登錄數據驗證窗口?

excel怎么利用vba實現批量套打快遞單批量打印單據?

excel怎么計算提成和個稅? execel分段/階梯式計算的方法