吳強(qiáng)

（貴州商學(xué)院會計學(xué)院，貴州 貴陽 550014）

關(guān)健詞：Excel；VBA；新個人所得稅；稅率；自定義函數(shù)

隨著經(jīng)濟(jì)持續(xù)發(fā)展，居民的收入也逐漸增長，個人的基本消費逐漸提高，按原有的個稅方案，使普通老百姓負(fù)擔(dān)隱形增加。為平衡國家稅收收入和居民可支配收入，進(jìn)一步提高居民可支配收入，自2018 年9 月開始，我國推行個人所得稅稅制改革。此次個人所得稅有較大改進(jìn)，逐步減輕了居民的個人所得稅負(fù)擔(dān)。新個人所得稅的算法相對復(fù)雜，如何能便捷的使用有效的工具進(jìn)行計算，深刻理解新個稅計算原理，運用Excel 強(qiáng)大的表格及VBA 工具是一個比較好的解決方案。通常可用Excel 的內(nèi)置函數(shù)解決問題，但Excel 函數(shù)并不能簡單方便的解決問題，加載宏的運用可解決大部分具體問題，對于不斷變化企業(yè)個性化的需求，Excel 提供的加載宏不能完全解決財務(wù)工作中遇到復(fù)雜問題。Excel通過VBA的開發(fā)模式編制本企業(yè)需要的特定函數(shù)，讓用戶從固定的繁瑣公式解放出來，合理使用自制函數(shù)，發(fā)揮其創(chuàng)造性，體現(xiàn)其價值。本文將通過VBA 及Excel 的強(qiáng)大表格功能，合理運用相對引用達(dá)到解決新個稅的計算的解決方案。

一、新稅法個人所得稅規(guī)定

工資與薪金個稅：職工從企業(yè)獲取的工資、薪金所得時，適用3%至45%的超額累進(jìn)稅率進(jìn)行個人所得稅計算。某一納稅年度的收入額減去60000元費用和專項扣除、專項附加扣除及依法確定的其他扣除后的余額作為應(yīng)納稅所得額。一次性的全年獎金個稅：財政部、稅務(wù)總局頒發(fā)了《關(guān)于個人所得稅法修改后有關(guān)優(yōu)惠政策銜接問題的通知》，對于全年一次性獎金等明確規(guī)定了多項個稅優(yōu)惠政策。居民在2019 年1月1日至2021年12月31日期間取得的全年一次性獎金，可不必計入當(dāng)年綜合所得，以獎金收入全部金額平均到12 個月的所得數(shù)額，在綜合所得稅率表中查詢適用稅率和速算扣除數(shù)，獨立計算納稅；也可在當(dāng)年綜合所得中計算并入納稅。

二、編制新個人所得稅函數(shù)

怎么用VBA 來解決個人所得稅的計算，可按下列步驟進(jìn)行。在打開Excel 程序以后，點擊“開發(fā)工具”，然后進(jìn)入“Visual Basic 編輯器”。“插入”→“模塊”；“插入”→“過程”在名稱輸入框中輸入tax，類型框里選擇“函數(shù)”，范圍框里選擇“公共”。然后在函數(shù)體中，錄入代碼，如圖1 所示。

如一個員工的收入為25000，五險一金，專項附加扣除，其他扣除及費用基準(zhǔn)扣除的和為8600 元。轉(zhuǎn)換到Excel 工作表中，在某一單元格中錄入“=tax（25000，8600）”，其中8600 為扣除的所有費用，敲回車鍵后，單元格會計算出的個人所得稅稅額為492 元。

三、新個稅VBA 應(yīng)用

錄入相應(yīng)的表格，在本月收入中錄入每個月的具體收入，每月的扣除小計為當(dāng)月應(yīng)該扣除的五險一金，專項附加扣除及其他扣除，如圖2 所示。累計收入為本月加上本年前面月份所有收入合計；累計扣除小計為本月加上本年前面月份所有扣除小計的合計；費用基準(zhǔn)扣除合計為本月加上本年前面月份所有費用基準(zhǔn)扣除的合計；扣除合計=累計收入-累計扣除小計-累計費用基準(zhǔn)扣除；預(yù)交應(yīng)納稅所得額=累計收入合計-累計扣除合計；應(yīng)納稅額公式：I5=tax(D5，G5)，I6=tax(D6，G6)……已繳稅額為上月應(yīng)納已繳納的稅額；補(bǔ)退后最終稅額是應(yīng)納稅額減去已繳稅額。

通過上述表格的設(shè)置，并錄入公式進(jìn)行計算，運用已經(jīng)編制的tax 函數(shù)，錄入相應(yīng)的參數(shù)，就能得到應(yīng)納稅額，扣除已繳納的稅，就能得到當(dāng)月應(yīng)該補(bǔ)退的最終稅額?？鄱惣皯?yīng)交稅的金額一目了然，即可用此計算表格的計算數(shù)據(jù)規(guī)劃各個月的收入合計與年終獎進(jìn)行均衡，合理進(jìn)行個稅籌劃。

四、加載宏

編制VBA 函數(shù)后，如需其他Excel 文件調(diào)用此函數(shù)，則需進(jìn)行加載宏程序。

加載宏可在Excel 添加命令及功能。Excel 有三種類型的加載宏程序：自動化加載宏、自定義的組件對象模型加載宏和Excel加載宏。而這里說的是第三類加載宏，先安裝加載宏到 Excel 后再使用此宏?？蓪ls 文件，通過“文件”→“另存為”，將文件另存為xla 類型的加載宏文件，保存在默認(rèn)文件夾后再進(jìn)行安裝，即將加載宏裝入 Excel。在“開發(fā)工具”→“加載項”中，會彈出所有可以安裝的加載宏項，將自己要用的對應(yīng)項勾選上并確定即可加載加載宏。此時Excel 的內(nèi)部就擁有了一個tax 函數(shù)，而必再次編制此函數(shù)。如果要卸載此函數(shù)，操作如下：“開發(fā)工具”→“加載項”中，反選選擇框里加載宏項，即可卸載加載宏。