基于Excel VBA融资租赁自动计算程序设计.docVIP

基于Excel VBA融资租赁自动计算程序设计 　　［摘 要］ 在融资租赁承租人的会计处理中,租赁开始日最低租赁付款额现值、租赁资产入账价值、未确认融资费用、重新计算的实际分摊率及未确认融资费用在各期应确认的分摊额在手工方式下计算非常复杂。本文结合实际采用Excel VBA程序设计功能建立其计算模型，以简化计算工作。 　　［关键词］ Excel；融资租赁；计算；程序设计 　　［中图分类号］F232［文献标识码］A［文章编号］1673-0194（2008）10-0007-04 　　 　　2006年财政部新发布了《企业会计准则第21号――租赁》（以下简称新租赁准则），根据该准则第十一条的规定，在租赁期开始日，承租人应当将租赁开始日租赁资产公允价值与最低租金付款额现值两者中较低者作为租入资产的入账价值，其差额作为未确认融资费用。第十五条规定，未确认融资费用应当在租赁期内各个期间采用实际利率法进行分摊。承租人应当采用实际利率法计算确认当期的融资费用，且应当根据租赁期开始日租入资产入账价值的不同情况，对未确认融资费用采用不同的分摊率。由此可知，承租人要计算租赁开始日最低租赁付款额现值、租赁资产入账价值、未确认融资费用分摊的实际分摊率及其各期应确认的分摊额，这在手工方式下计算非常复杂。为此，本文结合实例，采用Excel VBA程序设计功能建立其计算模型，以简化计算工作。 　　例：2006年12月1日，甲公司与乙公司签订了一份租赁合同，从2007年1月1日到2009年12月31日三年期间内，甲公司从乙公司租入塑钢机一台，每半年付租金150 000元，租入日该机器的公允价值为700 000元，合同规定半年利率为7%，甲公司在租赁谈判过程发生的相关手续费等为1 000元，租期届满时，甲公司享有优惠购买权，买价100元，估计该日此塑钢机的公允价值为800 000元。 　　根据实例，利用Excel VBA程序设计功能，建立融资租赁中承租人的计算模型，步骤如下。 　　 　　一、设计最低租赁付款额现值计算模型 　　 　　如图1所示，在Excel工作簿的sheet 1工作表的1~9行中建立基本数据，其中基本数据区中的数据是根据实际情况录入，但“每期期末支付的租金”一栏不直接输入数据，而是通过“租金录入及现值计算表”录入每期应支付的租金。这是考虑到模型的通用性，在实际工作中有可能每期支付的租金不同，且租赁期限也不固定。此处采用了设计“计算现值”按钮调用自定义宏的方式，根据租赁期限自动产生如图1所示的“租金录入及现值计算表”，录入各期应支付的租金后，该宏可自动计算出最低租赁付款额现值。定义“计算现值”宏的程序如下： 　　 　　Sub 计算现值（） 　　 hexuewu 记录的宏 2007-11-5 　　清空工作表指定区域 　　Sheets（sheet1）. Select 　　Rows（11：65536）. Select 　　Selection.Delete 　　 给计算范围画边框线 　　nx = Cells（3，2） 　　For i = 1 To nx + 2 　　For m = 1 To 3 　　With Cells（10 + i，m） 　　.Borders. LineStyle = xlContinuous 　　End With 　　Next 　　If i nx Then 　　 Cells（10 + i，1） = i 　　ElseIf i = nx Then 　　 Cells（10 + i，1） = i 　　 Cells（10 + i，3） = =B8 　　ElseIf i = nx + 1 Then 　　 Cells（10 + i，1） = 合同规定的利率计算的现值 　　 Cells（10 + i，2） = =NPV（B6，B11：B + Trim（Str（Val（10 + nx））） + ） 　　 Cells（10 + i，3） = =NPV（B6，C11：C + Trim（Str（Val（10 + nx））） + ） 　　Else 　　 Cells（10 + i，1） = 现值合计 　　 Cells（10 + i，2） = =sheet1!B + Trim（Str（Val（11 + nx））） + +sheet1!C + Trim（Str（Val（11 + nx））） 　　End If 　　Next 　　End Sub 　　 　　二、设计实际利率计算程序 　　 　　新租赁准则规定，以租赁资产公允价值为入账价值的，应当重新计算分摊率。此处采用了设计“计算实际利率”按钮调用自定义宏的方式，根据前面计算出的最低租赁付款额现值与资产公允价值相比较，如果大于公允价值