从广义上讲，融资也叫金融，就是货币资金的融通，当事人通过各种方式到金融市场上筹措或贷放资金的行为。从现代经济发展的状况看，作为企业需要比以往任何时候都更加深刻，全面地了解金融知识、了解金融机构、了解金融市场，因为企业的发展离不开金融的支持，企业必须与之打交道。以下是小编为大家精心准备的：运用EXCEL VBA语言构建融资租赁成本分析模型相关论文。内容仅供参考阅读!

运用EXCEL 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，针对企业融资租赁设备的实际情况，构建了融资租赁成本的分析模型。在各项相关指标发生变化时，财务管理人员不再需要进行复杂的数据推演，就可以很容易地得出变化后的影响结果，据此作为与出租方谈判的依据，为决策提供可靠的数据支持。

在目前融资租赁活动日趋频繁的各个行业，此模型具有较为广阔的应用环境，能够提高企业管理决策水平，使企业增加在投融资活动中的经济效益。