EXCEL下杜邦分析法实现.docVIP

EXCEL下杜邦分析法的实现 　　 【摘要】利用EXCEL VBA的强大功能不仅可以实现各种经常性、重复性工作的自动化处理，而且可以用它来实现财务分析，从而大大地提高工作效率，使决策者可以尽快做出决策。本文以杜邦分析法为例，探析了EXCEL VBA在财务分析中的应用。 　　【关键词】EXCEL VBA；杜邦分析法；杜邦财务分析体系；财务综合分析 　　 　　杜邦分析法，又称杜邦财务分析体系，简称杜邦体系（The Du Pont System），是利用各主要财务比率指标间的内在联系，对企业财务状况和经营成果进行综合系统分析评价的方法。 　　利用EXCEL VBA（Visual Basic Application）可以编写程序，制作窗体或sheet，进行财务分析，在系统中自己输入需要的信息或选择系统中已有信息，即可自动实现财务分析，从而大大提高工作效率，决策者可以尽快做出决策。综合财务分析中杜邦分析法便可以用EXCEL VBA来实现。本文主要探究了分析者自???输入所需要的信息来实现杜邦分析。 　　一、利用EXCEL VBA进行杜邦分析法的工作思路 　　1.完成资产负债表、利润表的格式编制及数据填写，作为财务分析的数据源； 　　2.设计杜邦财务分析体系界面，完成杜邦财务分析体系的编制及界面的设计，为下一步做好准备； 　　3.为杜邦财务分析体系中的各要素编写宏（EXCEL VBA）代码，以实现杜邦财务分析； 　　4.利用杜邦财务分析体系进行财务分析。 　　二、利用EXCEL VBA进行杜邦财务分析的主要工作步骤 　　1.完成资产负债表、利润表等财务报表的格式编制和数据填写 　　编制如图的报表，并根据账簿填写数据。 　　 2.设计杜邦财务分析体系界面，完成杜邦财务分析体系的编制及界面的设计，为下一步做好准备 　　如下图所示，此体系主要用到了userform，textbox，label，frame框，经过编写代码实现程序的运行。 　　 　　 3.为杜邦财务分析体系中的各要素编写宏（EXCEL VBA）代码，以实现杜邦财务分析 　　单击“工具”主菜单中的“宏”→“Visual Basic编辑器”，编写宏（EXCEL VBA）代码如下： 　　（1）计算成本费用的代码： 　　Private Sub TextBox13_Change() 　　TextBox28.Value =Val(TextBox13) + Val(TextBox15) + Val(TextBox17) 　　End Sub 　　 　　Private Sub TextBox15_Change() 　　TextBox28.Value = Val(TextBox13) + Val(TextBox15) + Val(TextBox17) 　　End Sub 　　 　　Private Sub TextBox17_Change() 　　TextBox28.Value = Val(TextBox13) + Val(TextBox15) + Val(TextBox17) 　　End Sub 　　（2）计算流动资产的代码： 　　Private Sub TextBox22_Change() 　　TextBox32.Value = Val(TextBox51) + Val(TextBox22) + Val(TextBox23) + Val(TextBox25) 　　End Sub 　　（3）计算非流动资产的代码： 　　Private Sub TextBox24_Change() 　　TextBox33.Value = Val(TextBox24) + Val(TextBox18) 　　End Sub 　　（4）计算税后净利的代码： 　　Private Sub TextBox27_Change() 　　TextBox30.Value = Val(TextBox27) - Val(TextBox28) - Val(TextBox29) 　　End Sub 　　Private Sub TextBox28_Change() 　　TextBox30.Value = Val(TextBox27) - Val(TextBox28) - Val(TextBox29) 　　End Sub 　　 　　Private Sub TextBox29_Change() 　　TextBox30.Value = Val(TextBox27) - Val(TextBox28) - Val(TextBox29) 　　End Sub 　　（5）计算销售净利率的代码： 　　Private Sub TextBox30_Change()