【作者】

陳國棟（博士）

【作者單位】

（華北水利水電大學(xué)管理與經(jīng)濟(jì)學(xué)院鄭州 450046）

【摘要】

【摘要】在遵守國家稅法的條件下，當(dāng)?shù)?2個月工資和年終獎之和一定時，可以對第12個月工資和年終獎組合進(jìn)行優(yōu)化從而使員工納稅總額最小。本文用Excel規(guī)劃求解的演化計(jì)算方法來優(yōu)化第12個月工資和年終獎組合，并且給出了用Excel VBA進(jìn)行批量納稅籌劃的計(jì)算方法，然后結(jié)合實(shí)例驗(yàn)證了這個方法的可行性與準(zhǔn)確性。

【關(guān)鍵詞】年終獎優(yōu)化 Excel VBA 納稅籌劃

由于年終獎納稅籌劃問題具有極強(qiáng)的現(xiàn)實(shí)意義，關(guān)系到廣大工薪階層的切身利益，所以這個問題引起了廣大學(xué)者的關(guān)注。筆者以“年終獎”為關(guān)鍵字在《財(cái)會月刊》歷年期刊中搜索，有十篇論文探討這個問題。這些論文的研究方向大致可以分為兩類：①理論分析，如任力發(fā)表在《財(cái)會月刊》2013年4月上旬刊的《發(fā)放年終獎當(dāng)月工資薪金所得怎樣節(jié)稅》一文主要從理論上進(jìn)行分析，給出了納稅籌劃方案。②用軟件進(jìn)行優(yōu)化。如張明、陳勇明發(fā)表在《財(cái)會月刊》2013年6月下旬刊的《全年一次性獎金納稅籌劃模型的R數(shù)據(jù)框求解》一文用R統(tǒng)計(jì)軟件對納稅籌劃方案進(jìn)行優(yōu)化。

但是筆者并未查到一篇用Excel批量進(jìn)行年終獎納稅籌劃的文章，而Excel是廣大財(cái)務(wù)人員很熟悉的軟件，Excel規(guī)劃求解具有很強(qiáng)的優(yōu)化功能，特別是Excel2010規(guī)劃求解中的演化計(jì)算方法可以解決非常復(fù)雜的優(yōu)化問題，同時Excel VBA可以批量優(yōu)化年終獎納稅籌劃問題，所以用Excel來進(jìn)行批量納稅籌劃對財(cái)務(wù)人員具有特別重要的現(xiàn)實(shí)意義。

一、個人所得稅和年終獎需要進(jìn)行納稅籌劃

個人所得稅是對個人取得的各項(xiàng)應(yīng)稅所得征收的一種稅，是社會財(cái)富的二次分配，是國家運(yùn)用稅收這一經(jīng)濟(jì)杠桿調(diào)節(jié)收入分配的工具。根據(jù)2011年《個人所得稅法》的計(jì)算方法，發(fā)放年終獎當(dāng)月工資不足3 500元的，從年終獎中扣除月工資不足3 500元的部分得到應(yīng)納稅的年終獎，然后按照應(yīng)納稅的年終獎數(shù)額計(jì)算年終獎的個人所得稅。比如，發(fā)放年終獎當(dāng)月雇員工薪為3 000元、年終獎為30 000元，則在計(jì)算個人所得稅時，先用年終獎的500元補(bǔ)足工薪，按年終獎29 500元計(jì)稅。

但是，按照《個人所得稅法》的計(jì)算方法，會出現(xiàn)一個奇怪的現(xiàn)象，就是年終獎比別人多，但領(lǐng)到的錢卻比別人少。例如，某單位給員工發(fā)放年終獎，其中一個員工是54 000元，另一個是54 001元，兩人當(dāng)月工資均超過3 500元。按照稅法的規(guī)定來計(jì)算，前者繳稅5 295元，后者卻要繳10 245.2元的稅。這樣算下來，后者的年終獎名義上比前者高出1元，但要多繳稅4 950.2元，到頭來實(shí)際拿到手的錢比前者少了4 949.2元。

發(fā)生這種情況是因?yàn)閮扇说膫€稅所得對應(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元以上，那么按照稅法的計(jì)算方法，年終獎“陷阱”有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)到的錢卻比別人少的問題。

在實(shí)際工作中，工資和年終獎的發(fā)放具體數(shù)額是由員工所在單位財(cái)務(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）=

因?yàn)镋xcel有強(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àn)樵搩?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í)例

假設(shè)某單位有1 000名員工，這1 000名員工的納稅籌劃模型如表2所示。表2中第一行的數(shù)據(jù)和公式與表1一樣，表2中第2行到第1 000行的公式是通過Excel的復(fù)制公式功能實(shí)現(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àng)選項(xiàng)卡中點(diǎn)擊“批量納稅籌劃”按鈕，即出現(xiàn)圖2的對話框。選擇B2:B1001，然后會出現(xiàn)“請選擇一列納稅總額區(qū)域！”對話框，選擇G2:G1001，最后會出現(xiàn)“請選擇一列第12月工資與年終獎之和的區(qū)域！”，選擇E2:E1001，點(diǎn)擊確定后計(jì)算結(jié)果如表3所示。

四、小結(jié)

本文先用Excel的演化功能優(yōu)化第12個月工資和年終獎組合，然后用Excel VBA給出了批量進(jìn)行納稅籌劃的計(jì)算方法，最后結(jié)合實(shí)例驗(yàn)證了這個方法具有很好的可行性與準(zhǔn)確性，從而為廣大企業(yè)合理安排年終獎的發(fā)放提供了一個可供參考的方法。

主要參考文獻(xiàn)

1. 張明，陳勇明.全年一次性獎金納稅籌劃模型的R數(shù)據(jù)框求解.財(cái)會月刊，2013；12

2. 任力.發(fā)放年終獎當(dāng)月工資薪金所得怎樣節(jié)稅. 財(cái)會月刊，2013；7

3. 賈華芳.年終獎金發(fā)放方式的納稅籌劃.財(cái)會月刊，2007；5

更多財(cái)稅咨詢、上市輔導(dǎo)、財(cái)務(wù)培訓(xùn)請關(guān)注理臣咨詢官網(wǎng) 素材來源：部分文字/圖片來自互聯(lián)網(wǎng)，無法核實(shí)真實(shí)出處。由理臣咨詢整理發(fā)布，如有侵權(quán)請聯(lián)系刪除處理。