excel如何使用vba制作個人所得稅計算器?下面一起來看看。　　

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

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

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

　　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、分析一下代碼是主要是每個隨征額的確定， 是工資收入越大，則征稅比例越高 ，所以我們需要對工資額進(jìn)行判定。如果使用if函數(shù)則在條件處理上會寫的很繁瑣，比如這樣：

　　if suo<500 then shuie =curP * 0.05

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

　　....

　　end if

　　這樣寫就會很麻煩。　　

　　5、接下來我們要寫個過程來調(diào)用這個函數(shù)。代碼如下：

　　Sub 計算()

　　curP = InputBox("工資")

　　個人所得稅 (curP)

　　End Sub　　

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

總結(jié)

以上是生活随笔為你收集整理的excel如何使用vba制作个人所得税计算器(数据处理之计算个人所得税)的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。