Excel报表再处理（三）：图表 / 四六文摘

不同的学校有不同的统计需求在通用软件无法实现所需功能的时候，我们还可以对一键输出后的数据报表进行二次数据加工或图表生成。本文将介绍Excel图表的创建，在这之前我们先准备好图表的数据源。如图所示我们直接建立一个Excel数据表或者接复制易点成绩统计软件演示文件夹的“一键输出.xls”后打开《全科目考试质量分析表》进行操作。为了了解VBA代码，在创建图表的过程中我们先开启Excel的宏录制功能。

Excel图表创建步骤：

1、插入二维柱形图（你也可以尝试其他图形）；
    2、在生成的空白图表上右键后选择“选择数据”菜单；
    3、图表数据区域从B2拖拉到D10；
    4、依次编辑图例项为：低分率、及格率、优秀率；
    5、水平坐标签区域从A2拖拉到A10；
    6、点击确定后完成图表创建并拖动图表到指定位置。

停止录制后打开VBA编辑器，在模块里找到我们保存的宏：

Sub Macro1()
    ActiveSheet.Shapes.AddChart.Select                                                    '选定工作表并创建新图表
    ActiveChart.ChartType = xlColumnClustered                                         '图表为二维柱形图
    ActiveChart.SetSourceData Source:=Range("B2:D10")                        '数据源为：B2:D10
    ActiveChart.SeriesCollection(1).Name = "=Sheet1!$B$1"                     '设置图例项名称，这里我直接点选了单元格文本
    ActiveChart.SeriesCollection(2).Name = "=Sheet1!$C$1"
    ActiveChart.SeriesCollection(3).Name = "=Sheet1!$D$1"
    ActiveChart.SeriesCollection(3).XValues = "=Sheet1!$A$2:$A$10"       '水平坐标签数据区域：A2:A10
End Sub

根据图表创建步骤对比代码，我们可以发现刚才在数据表上的实际操作都转化成了代码。也就是说在具有上面数据结构的数据表中我们可以不再实际操作而是复制代码新建宏并运行就可以自动生成同样的图表。在以后的工作中你只需要把平时重复的操作创建为各种宏应用在对应需求的报表上就可以节省大量的时间，进一步你还可以修改宏加入自己的程序逻辑对各种数据进行更深层次的整理和挖掘。

通过宏录制分析代码这很重要！因为软件中输出Excel表格实际上也是调用了相同的函数，只是不同开发语言调用的语法有所差异而已但数据表创建过程实质是一样的，这是我们精通Excel的捷径。

L.Q.R 210620

Excel报表再处理（三）：图表

相关推荐