评价网 > 科教论文 > 经济学毕业论文 > 金融论文 > 正文

财务分析中动态图表模型的设计与应用(3)

2017-11-24 01:23
　　　　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的程序结构和命令语句。甚至可以根据需要，通过复制定代码来建立和编辑上述代码段，从而减少代码的输进错误。在模型建立完成后，删除不需要的宏即可。需要说明的是，该模型的建立固然以一个示例为背景，但动态图表模型的设计思想具有普遍意义。读者可以按照本文的设计思想，根据财务中对动态图表的具体需求，扩展模型的设计结构，使其更具有一般性和通用性，更符合实际财务分析的需要。

您可以访问中国科教评价网（www.NsEac.com）查看更多相关的文章。