欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

excel怎么使用vba制作個人所得稅計算器?

  發(fā)布時間:2016-07-25 11:49:30   作者:佚名   我要評論
excel怎么使用vba制作個人所得稅計算器?想知道每次自己交了多少稅,該怎么計算呢?下面我們就來看看excel表格計算個人所得稅的敬愛哦從,很簡單,需要的朋友可以參考下

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、點(diǎn)擊F5運(yùn)行“計算”過程調(diào)用所得稅計算函數(shù),就可以得出正確的結(jié)果。我這里沒有寫出返回值的語句,大家可以思考一下,返回結(jié)果該怎么寫。

相關(guān)推薦:

excel中怎么利用VBA制作一個登錄數(shù)據(jù)驗(yàn)證窗口?

excel怎么利用vba實(shí)現(xiàn)批量套打快遞單批量打印單據(jù)?

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

相關(guān)文章

  • excel vba在身份證中怎么提取數(shù)字來判別男女?

    在EXCEL的應(yīng)用中,我們經(jīng)常會用到身份證號,那么身份證號碼怎么導(dǎo)出性別信息呢?我們可以用函數(shù)嵌套來實(shí)現(xiàn)這個功能,那么excel vba在身份證中怎么提取數(shù)字來判別男女?下面
    2016-07-22
  • excel怎么使用vba解決猴子吃桃的問題?

    excel怎么使用vba解決猴子吃桃的問題?想要計算excel中猴子吃桃的問題,可以設(shè)置讓excel自己算,該怎么設(shè)置呢?我們需要使用vba來完成,下面我們就來看看詳細(xì)的教程,需要
    2016-07-15
  • excel怎么使用vba解決百錢買百雞的問題?

    excel怎么使用vba解決百錢買百雞的問題?excel中想解決百錢買百雞的問題,這時候就需要使用vba宏來解決,詳細(xì)的教程如下文,需要的朋友可以參考下
    2016-07-13
  • excel vba編程在窗體上畫一個八邊形

    這篇教程是向腳本之家的朋友分享excel vba編程在窗體上畫一個八邊形方法,教程很不錯,很基礎(chǔ),適合新手來學(xué)習(xí),來學(xué)習(xí)吧
    2016-07-10
  • 利用excel vba編程在窗體上畫直角三角形

    下面小編就為大家詳細(xì)介紹利用excel vba編程在窗體上畫直角三角形方法,教程真的很不錯,對于感興趣的朋友可以參考本文,希望能對大家有所幫助
    2016-07-08
  • excel怎么使用vba窗體繪制長方體?

    excel怎么使用vba窗體繪制長方體?3excel不想word可以隨意的繪制圖形,今天我們就來看看excel中繪制長方體的詳細(xì)教程,很簡單,需要的朋友可以參考下
    2016-07-07
  • 利用excel vba編程在窗體上畫一個六邊形

    這篇教程是向腳本之家的朋友分享利用excel vba編程在窗體上畫一個六邊形方法,教程很不錯,適合新手來學(xué)習(xí),推薦到腳本之家,來看看吧
    2016-07-04
  • 利用excel vba編程在窗體上畫一座房子

    這篇教程是向腳本之家介紹利用excel vba編程在窗體上畫一座房子方法,教程比較基礎(chǔ),制作出來的效果非常不錯,推薦到腳本之家,來看看吧
    2016-07-04
  • excel中怎么使用Vba批量刪除指定文件夾下的所有文件?

    excel中怎么使用Vba批量刪除指定文件夾下的所有文件?想刪除某個文件夾下的文件,一個一個刪除很麻煩,該怎么使用excel中的vba設(shè)置批量刪除,下面我們就來看看詳細(xì)的教程,
    2016-06-30
  • excel vba編程繪制一副簡筆畫犀牛?

    今天小編就為大家介紹excel vba編程繪制一副簡筆畫犀牛方法,教程很不錯,繪制出來的效果非常不錯,很值得大家學(xué)習(xí),推薦到腳本之家,來看看吧
    2016-06-27

最新評論