運用EXCEL VBA語言構建融資租賃成本分析模型

楊洋+陳琦

摘要：由于缺乏有效的市場調研和論證分析，目前很多企業設備租賃活動沒有達到很好的經濟效益和社會效益。本文通過具體案例構建企業設備融資租賃成本分析的VBA模型，以期能更好地實現企業融資項目效益的最大化。

關鍵詞：融資租賃 VBA 成本分析

資租賃是企業資本運營的一種新途徑，它實質上是融通資金與設備購買為一體的復合型貿易方式。承租企業只須定期支付租金，就能從租賃公司獲得所需的機器設備，并在一定期限內享有專用權，租期結束時還可以選擇續租、留購等形式取得租賃物的所有權。融資租賃手續比較簡單，還款方式比較靈活，很多企業，尤其是中小型企業，一方面自有資金緊缺，外部融資渠道狹窄，另一方面又急需先進的生產設備，在這種困境中，融資租賃無疑是很好的選擇。

在進行設備融資租賃決策時，涉及的影響因素很多，租賃雙方一般在租賃合同中僅約定設備價款、租賃時間、手續費率、租金支付方式等，某一項或者幾項因素發生變動，都會給承租方決策帶來影響。實際的租賃成本需承租方自己測算，如果單純依靠手工進行計算，不但復雜和繁瑣，而且準確度也會受到影響，必將影響到企業融資決策的質量。筆者結合多年企業管理實踐經驗和理論研究，運用Excel VBA函數，設計出具有一定通用性的融資租賃成本分析模型，承租企業財務人員僅需要根據租賃合同的約定，錄入相關變動因素即可得出租賃方案是否可行的結論，對于企業進行融資租賃活動具有很強的現實意義。

一、等額年金法下運用EXCEL函數構建融資租賃成本計算模型

在目前的實務中，大多數情況下，租賃企業采用等額年金法核算租金。在這種方法下，企業每期支付的租金由融資費用和應付本金組成，且每期支付的租金金額相等。

例：甲公司計劃融資租入A大型設備，經與融資租賃公司協商后，雙方約定：租賃開始日租賃資產的公允價值是500 000元，年利率7%，年管理費率3%，租期為5年，租金每半年支付一次，每期期末等額支付。租期結束時甲公司按合同約定支付名義價款100元后，該設備產權轉移至甲公司名下。

（一）建立模型數據區

按照圖1所示建立融資租賃成本計算分析表的數據區。

其中：陰影部分標識的項目“租賃成本”、“租期”、“名義年利率”和“手續費率”可以隨著實際情況利用滾動條進行調整，滾動條的數據變動幅度從-80%到120%；“名義貨價”是固定值，可隨著租賃條件的變化，直接在B12單元格調整。其他項目均通過EXCEL函數公式來計算確定，租金支付方式下拉框分為“期初”和“期末”兩種支付形式；支付頻率下拉框分為“按年支付”、“按季支付”、“按半年支付”、“按月支付”四種情況。

（二）定義等額年金法下模型相關公式

1.每年付款次數。年付租金次數根據支付頻率的不同會有不同變化，比如每半年付款一次，一年付款兩次；每季度付款一次，一年付款四次，以此類推。在B7單元格輸入公式“=IF（$B$5="按年支付"，1，IF（$B$5="按半年支付"，2，IF（$B$5="按季支付"，4，12）））”。這里采用了EXCEL的IF嵌套語句，執行真假值判斷。根據邏輯計算的真假值，返回不同結果，對數值和公式進行條件檢測。

2.總支付期數。在B8單元格輸入“=$B$6*$B$7”；在C8單元格輸入“=C6*B7”，即為租期變化后總支付期數的變化情況。

3.計算年利率。是指根據支付頻率的不同，在運用公式進行相關運算時，為了函數設置公式能夠簡潔所使用的利率。在B10單元格輸入“=B9/B7”，即隨著支付頻率不同參與計算的名義利率的變化情況。在C10單元格輸入“=C9/B7”，即隨著其他條件變化后，參與計算的名義利率的變化情況。

4.等額年金法下租金的確定。等額年金法租金的計算主要有先付租金和后付租金兩種形式，若在每期期初支付租金，即可視為預付年金，公式為：

A=P/[（P/A，i，n-1）+1]

其中：A為每期租金，p為實際租賃成本，I為每期的利率，n為總支付期數。

若在每期期末支付租金，即可視為普通年金，公式為：

A=P/（P/A，i，n）

在B13單元格輸入“=IF（B4="期初"，B3*（1+B11）/（（1-1/（1+B10）^（B8-1））/B10）+1），B3*（1+B11）/（（1-1/（1+B10）^B8）/B10））”，在C13單元格輸入“=IF（B4="期初"，C3*（1+C11）/（（（1-1/（1+C10）^（C8-1））/C10）+1），C3*（1+C11）/（（1-1/（1+C10）^C8）/C10））”，即隨著相關條件變化，租金的變化情況；在D13單元格輸入“=（C13-B13）/B13”，即隨著其他條件變化，租金變動百分比。

5.最低租賃付款額的確定。最低租賃付款額=各期租金之和+行使優惠購買選擇權支付的金額，則在B13單元格輸入“=B13*B8+B12”。

6.最低租賃付款額現值的確定。最低租賃付款額的現值=每期租金×（P/A，I，n）+名義貨價×（P/F， I，n），即在B13單元格輸入“=B13*（（1-（1/（1+B10）^B8））/B10）+B12*（1/（1+B10）^B8）”。按租賃會計準則規定，固定資產的入賬價值按租賃開始日租賃資產的公允價值與最低租賃付款額的現值兩者中的較低者入賬。本例中，計算后最低租賃付款額的現值為515 070.89元，大于租賃開始日租賃資產的公允價值500 000元，所以租入資產入賬價值應為公允價值500 000元。

C13單元格輸入“=C13*（（1-（1/（1+B10）^B8））/B10）+B12*（1/（1+B10）^B8）”，即隨著其他條件變化，最低租賃付款額現值的變化情況。

7.未確認融資費用的確定。未確認融資費用=最低租賃付款額-租賃開始日租賃資產的入賬價值。在B16單元格輸入“=B14-B3”；在C16單元格輸入“=C14-C3”，即為隨著其他條件變化，未確認融資費用的變化情況。

8.實際資本成本的確定。承租人應當采用實際利率法計算確認當期的融資費用。實際資本成本，也稱為未確認融資費用分攤率，是分攤未確認融資費用的關鍵步驟。未確認融資費用應當在租賃期內各個期間進行分攤，我們采用內插法計算實際資本成本如下：

租賃開始日最低租賃付款額的現值=租賃開始日租賃資產公允價值

即：租金×（P/A，I，n）+名義貨價×（P/F，I，n）=500 000

當i=i1時，P=P1；當i=i2時，P=P2；則i=？，P=500 000，利用內插法可得：

（i-i1）/（i1-i2）=（500 000-P1）/（P1-P2）

在表格中分別輸入變換i值，通過函數計算可得P1和P2 ，解得i=8.1869%。

在B17單元格輸入“=IF（B4="期初"，RATE（B8，-B13，B3，-B12，1），RATE（B8，-B13，B3，-B12，0））*B7”，在C17單元格輸入“=IF（B4="期初"，RATE（C8，-C13，C3，-C12，1），RATE（C8，-C13，C3，-C12，0））*B7”，即隨著其他條件變化，實際資本成本的變化情況。此處用到了RATE函數，該函數用于計算復利利率，但是其參數年金要與終值或者現值的正負方向相反。

二、運用EXCEL VBA構建融資費用分攤模型

運用EXCEL VBA語言設計融資費用分攤計算表，先要如圖2所示建立融資費用分攤測算表格的基本數據區。

其中：

確認融資費用=每期期初應付本金余額×實際資本成本（未確認融資費用分攤率）

應付本金減少=每期租金-確認融資費用

應付本金（余額=每期期初應付本金余額-應付本金減少，運用EXCEL函數也可實現融資費用分攤的測算，但是當租金支付期數發生變化后，此表格需要調整公式重新測算，比較繁瑣。如果采用VBA語言來定義，即可大大簡化每次因數據變動帶來的公式調整的麻煩，而且能夠比較準確地自動測算出每期費用分攤情況，不受支付期數等因素變化的限制，極大地提高了效率。

通過運用VBA語言定義融資費用分攤測算表，在租賃條件“租賃成本”、“租期”、“支付方式”、“支付頻率”、“名義年利率”、“手續費率”、“名義貨價”等任一項或者幾項發生變動后，點擊費用分攤表的“執行分攤測算”按鈕，很直觀地看到每期融資費用、本金減少及應付本金的變化情況，即可完成對費用分攤的測算工作。

三、結語

本文借助EXCEL VBA，針對企業融資租賃設備的實際情況，構建了融資租賃成本的分析模型。在各項相關指標發生變化時，財務管理人員不再需要進行復雜的數據推演，就可以很容易地得出變化后的影響結果，據此作為與出租方談判的依據，為決策提供可靠的數據支持。

在目前融資租賃活動日趨頻繁的各個行業，此模型具有較為廣闊的應用環境，能夠提高企業管理決策水平，使企業增加在投融資活動中的經濟效益。

參考文獻：

中國注冊會計師協會.財務成本管理（第1版）[M].北京：中國財政經濟出版社，2013.

7.未確認融資費用的確定。未確認融資費用=最低租賃付款額-租賃開始日租賃資產的入賬價值。在B16單元格輸入“=B14-B3”；在C16單元格輸入“=C14-C3”，即為隨著其他條件變化，未確認融資費用的變化情況。

8.實際資本成本的確定。承租人應當采用實際利率法計算確認當期的融資費用。實際資本成本，也稱為未確認融資費用分攤率，是分攤未確認融資費用的關鍵步驟。未確認融資費用應當在租賃期內各個期間進行分攤，我們采用內插法計算實際資本成本如下：

租賃開始日最低租賃付款額的現值=租賃開始日租賃資產公允價值

即：租金×（P/A，I，n）+名義貨價×（P/F，I，n）=500 000

當i=i1時，P=P1；當i=i2時，P=P2；則i=？，P=500 000，利用內插法可得：

（i-i1）/（i1-i2）=（500 000-P1）/（P1-P2）

在表格中分別輸入變換i值，通過函數計算可得P1和P2 ，解得i=8.1869%。

在B17單元格輸入“=IF（B4="期初"，RATE（B8，-B13，B3，-B12，1），RATE（B8，-B13，B3，-B12，0））*B7”，在C17單元格輸入“=IF（B4="期初"，RATE（C8，-C13，C3，-C12，1），RATE（C8，-C13，C3，-C12，0））*B7”，即隨著其他條件變化，實際資本成本的變化情況。此處用到了RATE函數，該函數用于計算復利利率，但是其參數年金要與終值或者現值的正負方向相反。

二、運用EXCEL VBA構建融資費用分攤模型

運用EXCEL VBA語言設計融資費用分攤計算表，先要如圖2所示建立融資費用分攤測算表格的基本數據區。

其中：

確認融資費用=每期期初應付本金余額×實際資本成本（未確認融資費用分攤率）

應付本金減少=每期租金-確認融資費用

應付本金（余額=每期期初應付本金余額-應付本金減少，運用EXCEL函數也可實現融資費用分攤的測算，但是當租金支付期數發生變化后，此表格需要調整公式重新測算，比較繁瑣。如果采用VBA語言來定義，即可大大簡化每次因數據變動帶來的公式調整的麻煩，而且能夠比較準確地自動測算出每期費用分攤情況，不受支付期數等因素變化的限制，極大地提高了效率。

通過運用VBA語言定義融資費用分攤測算表，在租賃條件“租賃成本”、“租期”、“支付方式”、“支付頻率”、“名義年利率”、“手續費率”、“名義貨價”等任一項或者幾項發生變動后，點擊費用分攤表的“執行分攤測算”按鈕，很直觀地看到每期融資費用、本金減少及應付本金的變化情況，即可完成對費用分攤的測算工作。

三、結語

本文借助EXCEL VBA，針對企業融資租賃設備的實際情況，構建了融資租賃成本的分析模型。在各項相關指標發生變化時，財務管理人員不再需要進行復雜的數據推演，就可以很容易地得出變化后的影響結果，據此作為與出租方談判的依據，為決策提供可靠的數據支持。

在目前融資租賃活動日趨頻繁的各個行業，此模型具有較為廣闊的應用環境，能夠提高企業管理決策水平，使企業增加在投融資活動中的經濟效益。

參考文獻：

中國注冊會計師協會.財務成本管理（第1版）[M].北京：中國財政經濟出版社，2013.

7.未確認融資費用的確定。未確認融資費用=最低租賃付款額-租賃開始日租賃資產的入賬價值。在B16單元格輸入“=B14-B3”；在C16單元格輸入“=C14-C3”，即為隨著其他條件變化，未確認融資費用的變化情況。

8.實際資本成本的確定。承租人應當采用實際利率法計算確認當期的融資費用。實際資本成本，也稱為未確認融資費用分攤率，是分攤未確認融資費用的關鍵步驟。未確認融資費用應當在租賃期內各個期間進行分攤，我們采用內插法計算實際資本成本如下：

租賃開始日最低租賃付款額的現值=租賃開始日租賃資產公允價值

即：租金×（P/A，I，n）+名義貨價×（P/F，I，n）=500 000

當i=i1時，P=P1；當i=i2時，P=P2；則i=？，P=500 000，利用內插法可得：

（i-i1）/（i1-i2）=（500 000-P1）/（P1-P2）

在表格中分別輸入變換i值，通過函數計算可得P1和P2 ，解得i=8.1869%。

在B17單元格輸入“=IF（B4="期初"，RATE（B8，-B13，B3，-B12，1），RATE（B8，-B13，B3，-B12，0））*B7”，在C17單元格輸入“=IF（B4="期初"，RATE（C8，-C13，C3，-C12，1），RATE（C8，-C13，C3，-C12，0））*B7”，即隨著其他條件變化，實際資本成本的變化情況。此處用到了RATE函數，該函數用于計算復利利率，但是其參數年金要與終值或者現值的正負方向相反。

二、運用EXCEL VBA構建融資費用分攤模型

運用EXCEL VBA語言設計融資費用分攤計算表，先要如圖2所示建立融資費用分攤測算表格的基本數據區。

其中：

確認融資費用=每期期初應付本金余額×實際資本成本（未確認融資費用分攤率）

應付本金減少=每期租金-確認融資費用

應付本金（余額=每期期初應付本金余額-應付本金減少，運用EXCEL函數也可實現融資費用分攤的測算，但是當租金支付期數發生變化后，此表格需要調整公式重新測算，比較繁瑣。如果采用VBA語言來定義，即可大大簡化每次因數據變動帶來的公式調整的麻煩，而且能夠比較準確地自動測算出每期費用分攤情況，不受支付期數等因素變化的限制，極大地提高了效率。

通過運用VBA語言定義融資費用分攤測算表，在租賃條件“租賃成本”、“租期”、“支付方式”、“支付頻率”、“名義年利率”、“手續費率”、“名義貨價”等任一項或者幾項發生變動后，點擊費用分攤表的“執行分攤測算”按鈕，很直觀地看到每期融資費用、本金減少及應付本金的變化情況，即可完成對費用分攤的測算工作。

三、結語

本文借助EXCEL VBA，針對企業融資租賃設備的實際情況，構建了融資租賃成本的分析模型。在各項相關指標發生變化時，財務管理人員不再需要進行復雜的數據推演，就可以很容易地得出變化后的影響結果，據此作為與出租方談判的依據，為決策提供可靠的數據支持。

在目前融資租賃活動日趨頻繁的各個行業，此模型具有較為廣闊的應用環境，能夠提高企業管理決策水平，使企業增加在投融資活動中的經濟效益。

參考文獻：

中國注冊會計師協會.財務成本管理（第1版）[M].北京：中國財政經濟出版社，2013.