- 相关推荐
财务分析中动态图表模型的设计与应用
一、引言财务是指以财务报表的有关数据资料为依据，对一定时期的财务状况和经营成果进行分析，以评价、判定企业在经营过程中的利弊得失、财务状况及猜测趋势，为改进企业未来财务治理工作提出整改举措的书面报告。其作用在于为企业治理者提供财务分析信息，促进企业内部治理；为企业外部投资者提供决策依据；为提供企业财务信息，促进证券市场的正常运行。这种治理活动量化分析的书面报告有文字、表格和图表等多种表现形式，其中图表是提供信息的一条有效途径。通过图表可以迅速、正确的获得大量的信息。与普通的数据表格相比，采用图表形式将使得枯燥乏味的数据资料变得有趣、形象、直观且易于理解，尤其适宜于各级治理者使用，并促使治理者发现数据间细微的差别，从而挖掘治理新思路。
在Microsoft Office 2000软件包的组件之一Excel 2000中，提供了功能强大的图表绘制工具，使得创建各式各样的图表变得快捷和轻易。但是，这一工具对于普通的用户来说存在两点不便之处：①用户必须学会使用Excel 2000中的图表绘制工具；②图表绘制工具是以插进的形式天生各种图表，若要对同一数据源的数据表格从不同的角度分析，还要以不同的图表类型（如柱型图、折线图等）表现时，必然导致天生众多的图表，不便于浏览，不便于在同一图表上观察和分析财务数据。动态图表可以克服上述两处缺点。所谓动态图表是指在同一图表中天生从某一数据源不同角度分析获得的不同类型的图表，而无需用户把握图表绘制工具的使用。显然，这会给财务分析带来极大的便利。本文旨在对动态图表模型的设计思想和实例作深进的探讨，供同行。
二、动态图表模型的设计思想
众所周知，构成Excel 2000中图表的两个主要元素是“绘图区域”（即来自工作表的“数据源”，下同）和“图表类型”。假如这两个主要元素能够在绘制一张单一的图表时动态地天生，那么，动态图表模型的设计就迎刃而解了。
因此，动态图表模型设计思想的核心是：充分利用Excel 2000中的“宏技术”和VBA（Vsiual Basic for Application）编程技术，使得对单一图表的“绘图区域”和“图表类型”可根据用户的选择动态地天生。
为此，应先在工作表中插进一张任意类型的基本图表，然后设计一个“确定图表选项”按钮，在此按钮弹出的“绘图选项”窗口中，可根据用户的选择动态地天生基本图表的“绘图区域”（即“数据源”）和“图表类型”。如图1和图2所示。图1表格中的阴影部分即“绘图区域”，是用户在图2中选择的绘图区域（“三季度”）。其中“销售地区”是用户“选择数据列”时的必然选项，若用户“选择数据行”，则“销售季度”是其必然选项，二者均在程序中予以确定。图1中的图表部分即动态图表。由于在图2中选择的“图表类型”是“圆饼图”，放在“选择数据行”或“选择数据列”中的“销售地区”或“销售季度”均以单选钮的形式出现，由于“圆饼图”只能描绘一个数据系列。若用户选择的“图表类型”是“折线图”或“柱型图”，则前述二者均以复选框的形式出现，同时，图表也将以用户复选确定的绘图区域被绘制。这些均在程序中加以控制。
三、动态图表模型的设计实例
为实现上述设计思想、建立动态图表模型，应完成以下设计步骤。
1．进进Excel 2000后，命名一个工作表为“动态图表”，并在该工作表中建立一个模拟的“销售情况表”，如图1中的表格部分。为增加程序的可读性和绘图区域的动态扩展，模型中将命名一些区域。如表所示。
2、在表格下面插进一张图表，如插进反映全部销售情况的“柱型图”，适当调整其大小并设置其格式为所需要的格式。以后天生的动态图表均以此格式为标准格式。
3、在图表右侧填加一以自选图形表示的“确定图表选项”的命令按钮，并为其指定宏代码如下：
Sub 确定绘图选项0
绘图选项窗口．Show
End Sub
4、在Visual Basic编辑器中，插进一用户窗体并命名为“绘图选项窗口”。
5、在“绘图选项窗口”中，从“视图”→“工具箱”填加所需控件，这些控件包括分组框、列表框、选项按钮、命令按钮等，并以汉字将它们分别标识（Caption）和命名（Name），以便识别和增强程序的可读性。如图2所承。
6、设置列表框“行选择”的Rowsource属性为A3：A7，参照图1。
7、设置列表框“列选择”的Rowsource 属性为A9：A13（其中存放的是利用数组公式{TRAMS-POSE（B2：F2）}返回的转秩矩阵，即“一季度”，……，“地区合计”）。
8、按 ALT＋F11键，在Visual Basic编辑器中，双击“窗体”的“绘图选项窗口”，为相应的控件建立以下8段程序代码。
Private Sub userform_Initialize()’用户窗口初始化
行选择．Enabled=False
列选择．Enabled=True
End Sub
Private Sub取消Click()’“取消”按钮的Click事件代码
绘图选项窗口.Hide’隐躲绘图选项窗口
End Sub
Private Sub确定_Click()’“确定”按钮的Click事件代码
Activesheet.ChartObjects(“图表56”).Activate’图表56”是系统自动为插进的图表所作的命名，该图表即为动态图表区域。
ActiveChart.ChartArea.Seect Dim选择季度（4)，选择地区（4)’定义两个存放区域名称的数组
If选择数据列.Value=True n条件语句用于判定用户点击的是“选择数据行”还是“选择数据列”，以便产生不同的绘图区域。
选择季度(0)=“一季度”：选择季度(1)=“二季度”
选择季度(2)=“三季度”：选择季度(3)=”四季度”
选择季度(4)=”地区合计”
绘图区域=“销售地区”
For I=0 To 4 ’循环语句用于动态产生“绘图区域”
If列选择.Selected(I)=True Then ’所应包含的区域名称字符串。
绘图区域=绘图区域＋“，”＋选择季度(I)’
Debug.Print绘图区域
End If
Next I
绘图选项窗口.Hide
ActiveChart.SetSourceData Source:=Sheets(“动态图表”).Range(绘图区域)，＿
PlotBy:=xlColumns’图表数据产生于列。
ElseIf选择数据行.Value=True Then
选择地区(0)=“东北”：选择地区(1)=“西北”
选择地区(2)=“华东”：选择地区(3)=“西南”
选择地区(4)=“季度合计”
绘图区域=“销售季度”
For I=0 To 4’循环语句用于动态产生“绘图区域”
If行选择.Selected(I)=True Then’所应包含的区域名称字符串。
绘图区域=绘图区域＋“，”＋选择地区(I)
‘Debug.Print绘图区域
End If
Next I
绘图选项窗口.Hide
Active Chart.SetSourceData Source:=Sheets(“动态图表”).Range(绘图区域)，-
PlotBy：=xlRows’图表数据产生于行
End If
ActiveChart.Locaation Where：=xlLocationAsObject,Name：=“动态图表”
With ActiveChart
If圆饼图.Value=True Then
.HasTitle=True
Else
.HasTitle=False
End If
.Axes(xlCategory,xlPrimary).HasTitle=False
.Axes(xlValue,xlPrimary).HasTitle=False
End With
Range(绘图区域)．Select
End Sub
Private Sub折线图_Click 0
行选择.MultiSelect=fmMultiSelectMulti
列选择.MultiSelect=fmMultiSelectMulti
ActiveSheet.ChartObjects(“图表56”).Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartType=xlLineMarkers
ActiveChart.ApplyDataLabels Type:=xlDataLa－belsShowNone
End Sub
Private Sub柱型图_Click()
行选择.MultiSelect=fmMultiSelectMulti
列选择.Multiselect=fmMultiSelectMulti
ActiveSheet.ChartObjects(“图表56”).Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartTye=xlColumnClustered
ActiveChart.ApplyDataLabels Type:=xlDatala－belsShowNone
End Sub
Private Sub圆饼图_Click ()
行选择.MultiSelect=fmMultiSelectSingle
列选择.MultiSelect=fmMultiSelectSingle
ActiveSheet.ChartObjects(“图表56”).Activate
ActiveChaft.ChartArea.Select
ActiveChart.ChartType=xl3DPie
ActiveChart.ApplyDataLabels Type:=xlDataLa-belsShowPercent
End Sub
Private Sub选择数据列_Click()
If圆饼图.Value=True n
列选择.MultiSelect=fmMultiSelectSingle
’设置列选择的MultiSelect属性为单选。
Else
列选择.MultiSelect=fmMultiSelectMulti
’设置列选择的Multiselect属性为复选。
End If
行选择.Enabled=False
列选择.Enabled=True
End Sub
Private Sub选择数据行_Click()
If圆饼图.Value=True Then
行选择.MultiSelect=fmMultiSelectSingle
’设置行选择的MultiSelect属性为单选。
Else
行选择.MultiSelect=fmMultiSelectMulti’设置行选择的MultiSelect属性为复选。
End If
行选择.Enabled=True
列选择.Enabled=False
End Sub
注释：上述代码段中，程序行末尾单引号后的为程序注释行。
四、结束语
上述模型的建立假定读者已把握Excel 2000的基本操纵和宏代码、事件代码的建立。实际上，若读者对VBA的编程不熟悉，则完全可以通过宏的定义和阅读来和把握VBA的程序结构和命令语句。甚至可以根据需要，通过复制定代码来建立和编辑上述代码段，从而减少代码的输进错误。在模型建立完成后，删除不需要的宏即可。需要说明的是，该模型的建立固然以一个示例为背景，但动态图表模型的设计思想具有普遍意义。读者可以按照本文的设计思想，根据财务中对动态图表的具体需求，扩展模型的设计结构，使其更具有一般性和通用性，更符合实际财务分析的需要。
【财务分析中动态图表模型的设计与应用】相关文章：
企业绩效管理综合模型及应用分析05-02
审计风险模型的演进及应用08-26
本量利分析在制造企业中的应用论文04-22
压缩递增年资的数量模型与分析06-07
教育论文：浅谈教学设计中的任务分析11-21
简析统计分析在中小企业中的应用05-13
分析企业财会核算中公允价值的影响及应用策略论文（精选5篇）04-20
浅谈财务软件在现代企业中的应用04-16