在教育统计分析中运用ExcelVBA自动生成个性化图表

69 The Chinese Journal of ICT in Education
应 用 技术应用
《中国教育信息化》编辑部：mis@
1.通过 VBA 程序统
计考试成绩，如图 3 上方
表格数据所示
2. 生成个性化图表
时，有关“基本元素”的实
现方法
（1）画线段
通 过 VBA 程 序 ， 画
管理中，有时我们还希望用独特的方式解读数据，让个性化图表突显数据中的重要信息。为此，文章
首先介绍通过手动操作的方法制作 Excel 图表，继而通过 VBA 编程，生成系统中具有固定格式的图
表，最后重点介绍运用 Excel VBA 自动生成个性化图表，为教育管理、研究服务。
关键词：统计分析；自动生成；个性化图表
自动生成下方的图
表。 ）
‘本示列，变量
图2
n 首 行 、n 首 列 、n
尾行、n 尾列，分别表示表格 存 放 的 起 始 、终 止 位 置 ；
变量 c 区域,表示选择区域。
n 首行 = 1
n 首列 = 1
n 尾列 = 2
n 尾行 = 1
Do While ActiveSheet.Cells (n 尾 行 , 1).Value <>
出表示“分数段”的虚线、
上下两短线、 垂直线段
等。
可 通 过 Shapes.Ad-
图3
dLine 方法来实现， 用它
来画线条。
语 法 ： 表 达 式.AddLine (BeginX, BeginY, EndX,
EndY)
其中参数分别表示线条的起点、终点坐标。
线条的间距和分数值大小的关系是：1 分数的值
Do While ActiveSheet.Cells(m, 1).Value <> ""
If n95 最 值 < ActiveSheet.Cells (m, 4).Value
Then
n95 最值 = ActiveSheet.Cells(m, 4).Value
End If
If n 后 5 > ActiveSheet.Cells(m, 6).Value Then
(1, 5, t 顶 - 30, w 宽 + 80, h 高 + 20).Line .DashStyle = msoLineSolid ' 直线。 .Weight = 1 .ForeColor.RGB = RGB(255, 255, 255) .BackColor.RGB = RGB(255, 255, 255) End With With ActiveSheet.Shapes.AddTextbox _ (1, l 左, t 顶, w 宽, h 高).Line ' 背景矩形 2 .DashStyle = msoLineSolid ' 直线。 .Weight = 0.5 .ForeColor.RGB = RGB(100, 100, 25) End With With ActiveSheet.Shapes.AddTextbox (1, l 左 + 5, t 顶 + 5, w 宽 - 40, 22) .TextFrame.Characters.Text = c 学科名 & " ( 试 卷满分： " & Trim(Str(n 满分)) & " )" .TextFrame.Characters(1, 200).Font.Bold = True .TextFrame.Characters(1, 200).Font.Color = RGB (0, 0, 255) .TextFrame.AutoSize = True .Line.ForeColor.RGB = RGB(255, 255, 255) .Line.BackColor.RGB = RGB(255, 255, 255) End With
n 后 5 = ActiveSheet.Cells(m, 6).Value
End If
m=m+1
Loop
n 尾行 = m - 1
n95 最值 = (Int(n95 最值 / 10) + 1) * 10
n 倍 = 3 ' 可根据需要设定盒式图高度的倍数
n 间 距 = n 倍 * 10 ' 数 据 标 志 线 的 上 下 间 隔 间
表上创建图表
ActiveChart.SetSourceData Source:=Range(c 区域),
PlotBy:=2
'PlotBy 值为 1 、2 时， 数据系列分别表 示 在 列 、
行。
ActiveChart.ChartType = xlColumnClustered ' 图表 类型为簇状柱形图
据)， 并拖拉选取要
生成图表的数据区。
（2） 单 击 “ 插 入 ”
菜单,在选项卡上选
择“柱形图”，在柱形
图系列中选择“二维
柱形图”， 这时出现
图表，菜单条中出现
“设计”、“布局”、“格
式”菜单。
（3） 在 “ 设 计 ” 菜
图1
单下，单击“切换行/列”，根据需要选择系列产生行或
列。 通过“图表样式”可选择柱形图的样式（本示例选
相对于文档左上角、顶部的位置，以及宽度、高度。
（3）画椭圆
可通过 Shapes.AddShape 方法,画一个“椭圆”，表
示均分。
语法： 表达式.AddShape (Type, Left, Top, Width,
Height)
其中参数分别表示自选图形（椭圆）的形状、左上
角相对于文档左上角、顶部的位置，以及宽度、高度。
目前，Excel 已被广泛运用到教育管理、教育研究 中，掌握图表制作方法已成为必修内容。 然而，在教育 统计管理中，有时我们还希望用自己独特的方式解读 数据，让个性化图表呈现变化趋势，从而突显数据中 的重要信息。 本文首先介绍通过手动操作的方法制作 Excel 图表，继而通过 VBA 编程生成系统中固定格式 图表，最后重点介绍运用 Excel VBA 自动生成个性化 图表，为教育管理、研究服务。
3.程序框图(见图 4)
运行结果见图 3。
4.源程序代码
‘将下列代码放入“宏”或程序中，执行代码后可
自动生成“盒式图”
‘首先通过 VBA 程 序，统计成绩 的分数（因字 数
限制，此处略去）
n 首 行 = 3’ 统
计数据存在表格的
第三行，编程时可根
据需要设定，下同
c 学科名 = "语
文" ‘本示例中，学科
三、运用 Excel VBA 自动生成个性化图表 Excel 虽 然 可 以 生 成 多 种 类 型 的 图 表 ， 但 这 些 图 表 的 格 式 在 Excel 系 统 中 是 固 定 的 。 在 教 育 管 理、研究中，有时我们还希望用自己独特的方式解 读数据，让个性化图表突显数据中的重要信息。 那 么，怎样才能实现这样的功能呢？ 下面以制作“盒式图”为例，介绍如何制作个 性化图表。 在教育测量中， 我们常用盒式图简洁反映成 绩离散程度。 将所有学生的总分从低到高排列，最 下面的短线则表示约有 5%的学生得分低于此线 对应的分数，最上面的短线表示约有 5%的学生得 分高于此线对应的分数。 方框上边线、中间线和下 边 线 对 应 的 分 数 分 别 表 示 约 有 25% 、50% 、75% 的 学生得分高于此线对应的分数。 盒式图的中间线 描述了学生平均成绩的水平高低， 盒式图中矩形 盒子的高度从一定程度上很直观地描述了学生成 绩离散程度的大小， 为教育管理提供了便捷的观 察手段。 我们从图 3 可以很直观地看出，学校甲的成 绩较好。 学校丙的总均分（图中“圆点”）虽然比 学校乙高一些，但学校丙的学生两极分化（上下 短线） 比较严重。 图表提示我们要尽快采取措 施，防止两极分化。 不难看出， 图 3 中的主要组成元素是 “点”、 “线段”。 下面介绍制作这样个性化图表的设计思 路及程序代码。
中图分类号：TP319
文献标识码：A
文章编号：1673-8454（2012）18-0068-05
由于科技的发展和生活节奏的加快，我们已经进 入读图时代。 我们有这样的体会，也许无法记住一连 串的数字，以及它们之间的关系和趋势，但是可以很 轻松地记住一幅图画或者一条曲线。 在教育统计研究 中，我们需要尽快从大量的数据中发现新的现象或规 律，以便优化管理、指导工作。 在“江苏省中小学生学 业质量测试”分析中，通过“盒式图”简洁地反映出测 试成绩离散程度，为教育评价提供直观的方法，就是 很好的实例。
""
n 尾行= n 尾行+ 1
Loop
n 尾行 = n 尾行- 1
c 区域 = Chr(96 + n 首列) & Trim(Str(n 首行)) &
":" & Chr(96 + n 尾列) & Trim(Str(n 尾行))
Range(c 区域).Select ' 选择数据区域
ActiveSheet.Shapes.AddChart.Select ' 在活动工作
差等等，减少了大量的重复操作。 然而，我们能否在
此基础上通过添加有关程序，自动生成相关图表呢？
下面以生成 “分数
段”图表为例，介绍
实现方法。
（1） 通 过 VBA
编程， 统计考试成
绩的 “分数段”，生
成表格 (如图 2 上
方数据)。
（2） 插 入 以 下
代码。 （将下列代码
放入 “宏” 或程序
中， 执行代码后可
应 用 技术应用
《中国教育信息化》编辑部：mis@
在教育统计分析中运用 Excel VBA 自动生成个性化图表