Ｅｘｃｅｌ ＶＢＡ在計(jì)算個(gè)人所得稅中的運(yùn)用

［摘 要］ Excel處理數(shù)據(jù)的缺點(diǎn)是每一步都需要人工操作和控制，對(duì)重復(fù)性的工作每次都要重復(fù)去做，所以用Excel來(lái)計(jì)算個(gè)人所得稅效率太低、太復(fù)雜。Excel VBA能夠?qū)⒅貜?fù)的工作編寫(xiě)成程序，不僅能夠提高效率，還能避免人為操作的錯(cuò)誤。本文主要闡述了如何運(yùn)用VBA編寫(xiě)計(jì)稅函數(shù)程序，由程序自動(dòng)完成計(jì)稅任務(wù)。

［關(guān)鍵詞］ 個(gè)人所得稅； VBA函數(shù)；計(jì)稅

［中圖分類(lèi)號(hào)］F232［文獻(xiàn)標(biāo)識(shí)碼］B［文章編號(hào)］1673-0194（2008）07-0018-03

一、ExcelVBA簡(jiǎn)介

宏語(yǔ)言（Visual Basic for Applications，VBA）是新一代Microsoft Windows應(yīng)用軟件通用的宏控制語(yǔ)言，是VB（Visual Basic）的一個(gè)子集，但不能像VB一樣用于創(chuàng)建獨(dú)立的應(yīng)用程序，需要在Excel等軟件的運(yùn)行環(huán)境下才能運(yùn)行，較之于VB它更強(qiáng)調(diào)對(duì)Office軟件各類(lèi)功能的控制，尤其是VBA可以創(chuàng)建自定義的解決方案，最適合用來(lái)定制已有的桌面應(yīng)用程序，通常意義上的VBA就是在Office中包含著的一種加強(qiáng)Office功能的Basic語(yǔ)言。

ExcelVBA就是將Excel作為開(kāi)發(fā)平臺(tái)來(lái)開(kāi)發(fā)應(yīng)用程序，通過(guò)記錄宏直接生成宏程序代碼來(lái)對(duì)Excel工作表進(jìn)行控制，從而實(shí)現(xiàn)對(duì)Excel工作表數(shù)據(jù)處理等的自動(dòng)化管理。

二、ExcelVBA 在計(jì)算個(gè)人所得稅中的優(yōu)勢(shì)

盡管大多數(shù)工資核算軟件已含有計(jì)稅功能，但還是不能滿足實(shí)際工作的需要，比如，許多單位除了工資之外還有一些不隨工資發(fā)放的、與效益掛鉤的績(jī)效工資、津貼等其他收入，工資軟件中計(jì)算扣繳的只是工資收入應(yīng)繳納的個(gè)人所得稅，而全員全額納稅管理要求每個(gè)人將所有收入合并申報(bào)納稅，因此，在實(shí)際工作中，大多數(shù)單位都是采用Excel工作表來(lái)計(jì)算每個(gè)人應(yīng)繳納的個(gè)人所得稅。

Excel處理數(shù)據(jù)的缺點(diǎn)是每一步都要人工操作和控制，對(duì)重復(fù)性的工作每次都要重復(fù)去做。由于我國(guó)工資、薪金個(gè)人所得稅計(jì)算采用的是九級(jí)超額累進(jìn)稅率，運(yùn)用Excel計(jì)算個(gè)人所得稅，需要對(duì)每一個(gè)人的收入進(jìn)行判別，判別是否應(yīng)繳納個(gè)稅，如應(yīng)納稅適用的稅率是多少，然后再套用適當(dāng)?shù)亩惵蕘?lái)進(jìn)行計(jì)算。由于不同檔次的收入套用的稅率不同，因此不能對(duì)所有人用同一個(gè)固定的公式來(lái)進(jìn)行計(jì)算，工作量大、效率低，而且每月都需如此重復(fù)操作，如果遇到單位職工人數(shù)在千人以上并且收入?yún)⒉畈积R適用稅率較多的情況，難免會(huì)發(fā)生人為操作錯(cuò)誤。

ExcelVBA的最大特點(diǎn)就是能夠?qū)⒅貜?fù)的工作編寫(xiě)成程序，不僅能夠提高效率，還能避免人為操作的錯(cuò)誤。采用ExcelVBA計(jì)算個(gè)人所得稅時(shí)，只需運(yùn)用VBA宏語(yǔ)言編寫(xiě)一個(gè)自定義計(jì)稅函數(shù)程序，并將此加載在Excel工作表中，即可對(duì)表中數(shù)據(jù)進(jìn)行批量處理，由程序控制自動(dòng)計(jì)算出每個(gè)人應(yīng)繳納的個(gè)人所得稅，最重要的是以后每個(gè)月也不需要再重新編寫(xiě)程序，只需更新表中數(shù)據(jù)即可，即使是稅法改變也只需要作簡(jiǎn)單的修改，真可謂是一次操作終身受用，尤其適用于職工人數(shù)逾千、收入檔次較多的單位。此方法簡(jiǎn)單易學(xué)，容易被會(huì)計(jì)人員和管理人員所掌握，易于大范圍推廣應(yīng)用。

三、建立ExcelVBA工作表的操作流程

在Excel下運(yùn)用VBA程序的前提條件是不僅要安裝Excel，而且安裝時(shí)必須安裝VBA環(huán)境才可執(zhí)行以下操作。

1. 新建一個(gè)命名為“個(gè)人所得稅計(jì)算表.xls” 的工作表（表1），工資軟件中已有的欄目如“姓名”、“應(yīng)發(fā)工資”、“三保一金”、“工資中已扣稅金”等可直接導(dǎo)入表中，再增加其他列，如“其他收入1”、“其他收入2”，將個(gè)人收入明細(xì)輸入相應(yīng)的表格中。

2. 工作表建好后即可編寫(xiě)計(jì)稅函數(shù)程序，具體步驟如下：

（1）打開(kāi)“個(gè)人所得稅計(jì)算表”工作表的主窗口，選擇菜單“工具→宏→ visual basic編輯器”命令（或按下鍵盤(pán)Alt + F11組合鍵），單擊“插入”—“模塊”菜單，新建“模塊1”，在右邊代碼窗口中編寫(xiě)運(yùn)用自定義函數(shù)wtax計(jì)算個(gè)人所得稅的程序代碼：

Function wtax（x As variant ，z，y As Integer）

Ify=1Then

If （x-z）<0Then

wtax =0

Else

Select Case （x-z）

Case Is<=500

wtax=（x-z）*0.05

Case Is<=2000

wtax=（x-z）*0.1-25

Case Is<=5000

wtax=（x-z）*0.15-125

Case Is<=20000

wtax=（x-z）*0.2-375

Case Is<=40000

wtax=（x-z）*0.25-1375

Case Is<=60000

wtax=（x-z）*0.3-3375

Case Is<=80000

wtax=（x-z）*0.35-6375

Case Is<=100000

wtax=（x-z）*0.40-10375

Case Is>100000

wtax=（x-z）*0.45-15375

End Select

End If

End If

End Function

（2）編寫(xiě)完程序后，單擊“視圖”—“對(duì)象瀏覽器”菜單，在“對(duì)象瀏覽器”窗口中最上邊的下拉式菜單（缺省顯示為<所有庫(kù)>）中選擇“VBA Project”，在名為“類(lèi)”的窗口里選擇“模塊1”，單擊“‘模塊1’的成員”右邊窗口中的“wtax”，在彈出的快捷菜單中選擇“屬性”命令，出現(xiàn)“成員選項(xiàng)”對(duì)話框，在“描述”欄目框中鍵入“返回個(gè)人所得稅計(jì)算表”，最后單擊“確定”按鈕，再單擊“保存”按鈕。

（3）按Alt+F11，切換到Excel主窗口，單擊“工具”—“選項(xiàng)”菜單，在選項(xiàng)卡中選擇“安全性”，將“個(gè)人信息選項(xiàng)”下的“保存時(shí)從此文件中刪除個(gè)人信息”前的“√”去掉，單擊“確定”按鈕，最后單擊“保存”按鈕。回到Excel主窗口，再單擊“工具”菜單，選擇“宏”—“安全性”，將 “安全級(jí)” 設(shè)置為“低”，然后單擊“確定”。

（4）在Excel主窗口，單擊“文件”—“另存為”菜單，打開(kāi)“另存為”對(duì)話框，在“保存位置”下拉式菜單中點(diǎn)擊希望保存的路徑位置，在“文件名”框中鍵入“個(gè)人所得稅計(jì)算表”，然后從“保存類(lèi)型”下拉式菜單中選擇“Microsoft Excel 加載宏”，單擊“保存”，則可生成一個(gè)名為“個(gè)人所得稅計(jì)算表.xla”的工作表文件。

（5）在Excel主窗口，單擊“工具”—“加載宏”菜單，單擊“加載宏”對(duì)話框中的“瀏覽”按鈕，找到“個(gè)人所得稅計(jì)算表.xla”，選定后單擊“確定”按鈕。

至此，個(gè)人所得稅計(jì)稅函數(shù)wtax（x，z，y）的編程工作完成，其中參數(shù)x表示本月應(yīng)納稅所得額，參數(shù)z表示個(gè)稅起征點(diǎn)1 600，參數(shù)y ＝1時(shí)表示由收入求應(yīng)納稅，y ＝2時(shí)表示由應(yīng)納稅求收入，本文要求的是每月收入的應(yīng)納稅，所以指定y ＝1。

四、運(yùn)用ExcelVBA計(jì)算個(gè)人所得稅

完成上述操作后一個(gè)加載宏文件——“個(gè)人所得稅計(jì)算表.xla”（表2）就建立起來(lái)了，通過(guò)“個(gè)人所得稅計(jì)算表.xla”再來(lái)計(jì)算個(gè)人所得稅也就是一件輕而易舉的事情了，計(jì)算結(jié)果見(jiàn)表2。

表2中的斜體數(shù)字計(jì)算過(guò)程如下：

（1）首先計(jì)算“本月應(yīng)納稅所得”，在F2單元格鍵入公式：＝B2+C2+E2-D2-E2，確定后就可得出張?jiān)碌摹氨驹聭?yīng)納稅所得”，然后按住鼠標(biāo)左鍵向下拖動(dòng)F2單元格右下角的填充柄，將本公式自動(dòng)填充到本列以下單元格，其他人員的“本月應(yīng)納稅所得”也就自然計(jì)算出來(lái)了。或者用“復(fù)制”、“粘貼”將F2單元格的公式復(fù)制到其他人員的單元格中。

（2）第二步就是計(jì)算“本月應(yīng)繳納稅金”，在G2單元格鍵入公式：=wtax（G2，1 600，1），這里 x= G2表示應(yīng)納稅所得額單元格，z＝1 600表示起征點(diǎn)，y＝1表示由收入求應(yīng)納稅，這樣張?jiān)碌摹氨驹聭?yīng)繳稅金”就計(jì)算出來(lái)了，同樣利用填充柄將本公式自動(dòng)填充到本列以下單元格，再計(jì)算出其他人員的“本月應(yīng)繳稅金”。在人數(shù)較多的情況下，用“復(fù)制”、“粘貼”效率更高、更方便。

（3）最后一步就是計(jì)算“應(yīng)補(bǔ)扣稅金”。“應(yīng)補(bǔ)扣稅金”＝“本月應(yīng)繳稅金”－“工資中已扣稅金”，即在I2單元格鍵入公式：＝G2－H2，再用填充柄計(jì)算出其他人員的“應(yīng)補(bǔ)扣稅金”，同樣也可使用“復(fù)制”、“粘貼”。

總之，ExcelVBA不僅具備Excel現(xiàn)有的所有功能，而且還具有許多自定義函數(shù)，操作靈活、實(shí)用性強(qiáng)，是對(duì)現(xiàn)有會(huì)計(jì)軟件的一種很好的補(bǔ)充。作為一名財(cái)會(huì)人員，學(xué)會(huì)如何操作使用VBA可以幫助我們對(duì)數(shù)據(jù)進(jìn)行復(fù)雜的操作和分析，這不僅對(duì)提高工作效率將大有益處，而且還可以提升整個(gè)財(cái)務(wù)工作水平。

主要參考文獻(xiàn)

［1］ 趙志東. ExcelVBA基礎(chǔ)入門(mén)［M］. 北京：人民郵電出版社，2006.