EXCEL下财务报表分析自动化处理实现.docVIP

EXCEL下财务报表分析自动化处理实现【摘要】会计人员可以利用EXCEL VBA的强大功能实现各种经常性、重复性工作的自动化处理，从而大大提高其工作效率。本文以财务报表分析的自动化处理中的资产负债表结构分析为例探究了EXCEL VBA在财务分析自动化处理中的应用。 【关键词】EXCEL VBA；财务报表；财务分析；自动化处理 利用EXCEL VBA（Visual Basic Application）可以实现复杂的财务工作的自动化处理，从而大大提高财务工作的效率。财务管理中的报表分析的自动化处理也可以利用EXCEL VBA得以实现。因篇幅所限以及制作方法类似，本文只探析其中的资产负债表结构分析。 一、利用EXCEL VBA进行资产负债表结构分析的自动化处理的工作思路 1.新建工作簿并进行财务指标分析（比率分析法）格式及其控制方面的设计； 2.将设计好的资产负债表进行适当保护； 3.利用vb编辑器，设计窗体1，并利用VBA在之前设计好的财务指标分析表sheet中编写弹出窗体的命令，编写计算命令； 4.设计窗体2，在窗体1中设置按钮用于弹出窗体2，编写窗体2中用于调出资产负债表等相关表格。 二、利用EXCEL VBA进行资产负债表结构分析的自动化处理的主要步骤 1.新建工作簿并进行财务指标分析（比率分析法）格式及其控制方面的设计 图1 财务指标分析图例 启动vb编辑器，在sheet1中输入以下命令用于弹出窗体1，同时指定窗体1弹出的位置。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) irow = Target.Row icol = Target.Column userform1.Show 0 End Sub 2.将设计好的资产负债表进行适当保护 点击菜单栏的工具，选择保护，单击其中的保护工作表。保护工作表的用意在于防止用户选取数值时因为错误操作更改或者删除掉原数值，对工作造成不必要的麻烦。 3.利用vb编辑器，设计窗体1，并利用VBA在之前设计好的财务指标分析表sheet中编写弹出窗体的命令 窗体1 用于选择需要计算分析的数值，同时将计算结果输入到需要输入数值的单元格。其命令如下： （1）“选择已有报表”按钮的命令 Private Sub CommandButton1_Click() UserForm2.Show 0 End Sub （2）两个“选择数值”按钮的命令（命令相似，只需更换按钮控件序号即可） Private Sub CommandButton2_Click() TextBox1.Value = ActiveCell.Value UserForm2.Hide Worksheets(Array(“资产负债表分析表”)).Select End Sub （3）“输入”按钮的命令 Private Sub CommandButton4_Click() ActiveWindow.RangeSelection.Value = TextBox3.Text Worksheets(Array(“资产负债表分析表”)).Select userform1.Hide UserForm2.Hide End Sub （4）文本框中数值的计算命令 Private Sub TextBox1_Change() If TextBox1.Value = ““ And TextBox2.Value = ““ Then TextBox3.Text = ““ ElseIf TextBox1.Value ““ And TextBox2.Value ““ Then TextBox3.Text = TextBox1.Value / TextBox2.Value End If End Sub Private Sub TextBox2_Change() If TextBox1.Value = ““ And TextBox2.Value = ““ Then TextBox3.Text = ““ ElseIf TextBox1.Value ““ And TextBox2.Value ““ Then TextBox3.Text = TextBox1.Value / TextBox2.Value End If End Sub （5）窗体1弹出时指定显示位置的命令 P