【作者】
陳國棟（博士）
【作者單位】
（華北水利水電大學(xué)管理與經(jīng)濟(jì)學(xué)院 鄭州 450046）
【摘要】
【摘要】在遵守國家稅法的條件下，當(dāng)?shù)?2個月工資和年終獎之和一定時，可以對第12個月工資和年終獎組合進(jìn)行優(yōu)化從而使員工納稅總額最小。本文用Excel規(guī)劃求解的演化計算方法來優(yōu)化第12個月工資和年終獎組合，并且給出了用Excel VBA進(jìn)行批量納稅籌劃的計算方法，然后結(jié)合實例驗證了這個方法的可行性與準(zhǔn)確性。
【關(guān)鍵詞】年終獎 優(yōu)化 Excel VBA 納稅籌劃
由于年終獎納稅籌劃問題具有極強(qiáng)的現(xiàn)實意義，關(guān)系到廣大工薪階層的切身利益，所以這個問題引起了廣大學(xué)者的關(guān)注。筆者以“年終獎”為關(guān)鍵字在《財會月刊》歷年期刊中搜索，有十篇論文探討這個問題。這些論文的研究方向大致可以分為兩類：①理論分析，如任力發(fā)表在《財會月刊》2013年4月上旬刊的《發(fā)放年終獎當(dāng)月工資薪金所得怎樣節(jié)稅》一文主要從理論上進(jìn)行分析，給出了納稅籌劃方案。②用軟件進(jìn)行優(yōu)化。如張明、陳勇明發(fā)表在《財會月刊》2013年6月下旬刊的《全年一次性獎金納稅籌劃模型的R數(shù)據(jù)框求解》一文用R統(tǒng)計軟件對納稅籌劃方案進(jìn)行優(yōu)化。
但是筆者并未查到一篇用Excel批量進(jìn)行年終獎納稅籌劃的文章，而Excel是廣大財務(wù)人員很熟悉的軟件，Excel規(guī)劃求解具有很強(qiáng)的優(yōu)化功能，特別是Excel2010規(guī)劃求解中的演化計算方法可以解決非常復(fù)雜的優(yōu)化問題，同時Excel VBA可以批量優(yōu)化年終獎納稅籌劃問題，所以用Excel來進(jìn)行批量納稅籌劃對財務(wù)人員具有特別重要的現(xiàn)實意義。
一、個人所得稅和年終獎需要進(jìn)行納稅籌劃
個人所得稅是對個人取得的各項應(yīng)稅所得征收的一種稅，是社會財富的二次分配，是國家運(yùn)用稅收這一經(jīng)濟(jì)杠桿調(diào)節(jié)收入分配的工具。根據(jù)2011年《個人所得稅法》的計算方法，發(fā)放年終獎當(dāng)月工資不足3 500元的，從年終獎中扣除月工資不足3 500元的部分得到應(yīng)納稅的年終獎，然后按照應(yīng)納稅的年終獎數(shù)額計算年終獎的個人所得稅。比如，發(fā)放年終獎當(dāng)月雇員工薪為3 000元、年終獎為30 000元，則在計算個人所得稅時，先用年終獎的500元補(bǔ)足工薪，按年終獎29 500元計稅。
但是，按照《個人所得稅法》的計算方法，會出現(xiàn)一個奇怪的現(xiàn)象，就是年終獎比別人多，但領(lǐng)到的錢卻比別人少。例如，某單位給員工發(fā)放年終獎，其中一個員工是54 000元，另一個是54 001元，兩人當(dāng)月工資均超過3 500元。按照稅法的規(guī)定來計算，前者繳稅5 295元，后者卻要繳10 245.2元的稅。這樣算下來，后者的年終獎名義上比前者高出1元，但要多繳稅4 950.2元，到頭來實際拿到手的錢比前者少了4 949.2元。
發(fā)生這種情況是因為兩人的個稅所得對應(yīng)的稅率不同。按照稅法的相關(guān)規(guī)定，雇員年終獎適用于哪一級的稅率是根據(jù)年終獎除以12個月的商來確定的。例如，54 000元除以12剛好是4 500，從屬10%的稅率，而54 001元除以12已經(jīng)超出4 500，對應(yīng)的是20%的稅率。這就是所謂的年終獎的“陷阱”問題，即在一個區(qū)間內(nèi)多發(fā)獎金反倒是得不償失的。
假設(shè)年終獎發(fā)放當(dāng)月員工工薪達(dá)到3 500元以上，那么按照稅法的計算方法，年終獎“陷阱”有6個獎金區(qū)間，分別是：［18 000，19 283.33］、［54 001，60 187.50］、［108 001，114 600］、［420 001，447 500］、［660 001，706 538.47］、［960 001，1120 000］。在以上區(qū)間內(nèi)會出現(xiàn)年終獎比別人多但領(lǐng)到的錢卻比別人少的問題。
在實際工作中，工資和年終獎的發(fā)放具體數(shù)額是由員工所在單位財務(wù)部門安排的。因此在全年一次性獎金與第12個月工資總額一定的情況下，可以對全年一次性獎金與第12個月工資總額進(jìn)行優(yōu)化組合，從而既滿足《個人所得稅法》的規(guī)定，又使員工的納稅總額最小。
二、年終獎納稅籌劃問題的數(shù)學(xué)模型及求解
年終獎納稅籌劃問題本質(zhì)上是一個數(shù)學(xué)優(yōu)化問題。用x1表示第12個月工資數(shù)額年終獎的稅務(wù)籌劃，用x2表示年終獎數(shù)額，納稅總額用Z表示。第12個月工資與年終獎之和為常數(shù)，用K表示。
則年終獎納稅籌劃問題的數(shù)學(xué)模型為：minZ=f（x1）+g（x2）
x1+x2=K
0≤x1≤K
0≤x2≤K
令t=x1-3 500，則有：
f（x1）=
g（x2）=
因為Excel有強(qiáng)大的建模和優(yōu)化能力，所以上面的模型可以很方便地在Excel中建模和求解，下面舉例說明。
例：甲的第12個月工資與年終獎之和為33 500元。其納稅籌劃Excel模型如表1所示。
其中：C2單元格內(nèi)的公式為“=D2-B2”，E2單元格內(nèi)的公式為“=ROUND（MAX（（$B2-3500）?｛0.03，0.1，0.2，0.25，0.3，0.35，0.45｝-｛0，105，555，1005，2755，5505，13505｝，0），2）”，F(xiàn)2單元格內(nèi)的公式為“=（$C2+MIN（3500，$B2）-3500）?LOOKUP（（$C2+MIN（3500，$B2）-3500）/12，｛0，1500.01，4500.01，9000.01，35000.01，55000.01，80000.01｝，｛0.03，0.1，0.2，0.25，0.3，0.35，0.45｝）-LOOKUP（（$C2+MIN（3500，$B2）-3500）/12，｛0，1500.01，4500.01，9000.01，35000.01，55000.01，80000.01｝，｛0，105，555，1005，2755，5505，13505｝）”年終獎的稅務(wù)籌劃，G2單元格內(nèi)的公式為“=E2+F2”。
因為該優(yōu)化問題的目標(biāo)函數(shù)是非平滑的，所以需要選擇Excel規(guī)劃求解中演化求解方法，優(yōu)化后的第12個月工資為15 499.90元，年終獎為18 000.10元，納稅總額為2 534.97元。該模型的Excel規(guī)劃求解對話框如圖1所示。
三、Excel VBA在年終獎納稅籌劃問題批量求解中的應(yīng)用實例
假設(shè)某單位有1 000名員工，這1 000名員工的納稅籌劃模型如表2所示。表2中第一行的數(shù)據(jù)和公式與表1一樣，表2中第2行到第1 000行的公式是通過Excel的復(fù)制公式功能實現(xiàn)設(shè)定的。
在Excel中利用VBA進(jìn)行批量納稅籌劃的步驟如下：
步驟一：在Excel VBA中插入模塊，然后復(fù)制下面的VBA代碼到模塊中。
Sub opttax（）
Dim IncomeRange As Range
Dim TotalTax As Range
Dim Totalincome As Range
Dim i As Double
Set IncomeRange=Application.InputBox（prompt:="請選擇一列第12個月工資單元格區(qū)域，單元格內(nèi)不包含公式！"， Type:=8）
Set TotalTax=Application.InputBox（prompt:="請選擇一列納稅總額區(qū)域！"，Type:=8）
Set Totalincome = Application.InputBox（prompt:="請選擇一列第12月工資與年終獎之和的區(qū)域！"， Type:=8）
Application.ScreenUpdating = False
For i = 1 To IncomeRange.Count
SolverOk SetCell:=TotalTax.Item（i）.Address， MaxMinVal:=2， ValueOf:=0， ByChange:=IncomeRange.Item（i）.Address， Engine:=3 _
， EngineDesc:="Evolutionary"
SolverAdd CellRef:=IncomeRange.Item（i）.Address， Relation:=1， FormulaText:=Totalincome.Item（i）.Address
SolverSolve UserFinish:=True
Solver.SolverReset
Next i
Application.ScreenUpdating = False
End Sub
%以下代碼位于插入的模塊代碼窗口中
Option Explicit
Sub CreateMenuItem（）
Dim ToolsMenu As CommandBarPopup
Dim NewMenuItem As CommandBarButton
Call DeleteMenuItem
Set ToolsMenu = CommandBars（1）.FindControl（ID:=30007）
If ToolsMenu Is Nothing Then
MsgBox "不能添加按鈕！"
Exit Sub
Else
Set NewMenuItem = ToolsMenu.Controls.Add _
（Type:=msoControlButton）
With NewMenuItem
.Caption = "批量納稅籌劃"
.OnAction = " opttax "
End With
End If
End Sub
Sub DeleteMenuItem（）
On Error Resume Next
CommandBars（1）.FindControl（ID:=30007）. _
Controls（"批量納稅籌劃"）.Delete
End Sub
步驟二：為了在Excel界面中出現(xiàn)“批量納稅籌劃”按鈕，在VBA 編輯器中添加以下代碼。
%位于ThisWorkbook代碼窗口
Private Sub Workbook_Open（）
Call CreateMenuItem
End Sub
Private Sub Workbook_BeforeClose（Cancel As Boolean）
Call DeleteMenuItem
End Sub
步驟三：從加載項選項卡中點擊“批量納稅籌劃”按鈕，即出現(xiàn)圖2的對話框。選擇B2:B1001，然后會出現(xiàn)“請選擇一列納稅總額區(qū)域！”對話框，選擇G2:G1001，最后會出現(xiàn)“請選擇一列第12月工資與年終獎之和的區(qū)域！”，選擇E2:E1001，點擊確定后計算結(jié)果如表3所示。
四、小結(jié)
本文先用Excel的演化功能優(yōu)化第12個月工資和年終獎組合，然后用Excel VBA給出了批量進(jìn)行納稅籌劃的計算方法，最后結(jié)合實例驗證了這個方法具有很好的可行性與準(zhǔn)確性，從而為廣大企業(yè)合理安排年終獎的發(fā)放提供了一個可供參考的方法。
主要參考文獻(xiàn)
1. 張明，陳勇明.全年一次性獎金納稅籌劃模型的R數(shù)據(jù)框求解.財會月刊，2013；12
2. 任力.發(fā)放年終獎當(dāng)月工資薪金所得怎樣節(jié)稅. 財會月刊，2013；7
3. 賈華芳.年終獎金發(fā)放方式的納稅籌劃.財會月刊，2007；5
更多財稅咨詢、上市輔導(dǎo)、財務(wù)培訓(xùn)請關(guān)注理臣咨詢官網(wǎng) 素材來源：部分文字/圖片來自互聯(lián)網(wǎng)，無法核實真實出處。由理臣咨詢整理發(fā)布，如有侵權(quán)請聯(lián)系刪除處理。
400-835-0088
