使用Excel VBA制作成绩统计图----（嵌入模式）

最新推荐文章于 2024-06-05 17:38:41 发布

zxcvcva

最新推荐文章于 2024-06-05 17:38:41 发布

阅读量2.6k

点赞数

分类专栏： vba

本文链接：https://blog.csdn.net/zxcvcva/article/details/107990963

版权

本文介绍了如何使用Excel VBA来制作成绩统计图表，包括工作流程、具体步骤。首先，通过整理成绩单形成全校成绩统计表，然后利用VBA编程将数据转化为适合制作图表的格式。在代码中，先填充数据到‘成绩表’，再用Range类生成统计图。最后，展示了统计图的效果，并指出代码还有优化空间，如数组应用和错误处理。

摘要由CSDN通过智能技术生成

使用Excel VBA制作成绩统计图

一、工作流程：
全校成绩统计表—> VBA生成统计图用表 ------> VBA生成统计图（嵌入模式）
在这里插入图片描述

成绩统计：统计全部成绩信息
成绩表：用于统计图的数据信息：年级班级任教教师、学科成绩统计（平均分、及格率、优秀率）
注：因笔者初学，不能使用数组直接进行统计图的绘制，只能行将数组的数据先填充到电子表格中，再从表格中提出数据生成统计图
统计图：生成每个年级同科学的成绩统计图，大小为近似满屏，便于演示。

二、具体制作步骤：

整理成绩单，形成全校的成绩统计表:
2… 使用VBA编程，将全校成绩统计表转换成统计图用表–成绩表

代码：

Sub 成绩统计图()
Dim a, b, c As Integer        
a = 1       '标记统计次数

Rem 设置年级和学科数组变量

Dim Grade As String
Dim GradeId, kemu As Variant
GradeId = Array("一年级", "二年级", "三年级", "四年级", "五年级", "六年级")
kemu = Array("语文", "数学 ", "英语", "科学", "道德与法治")
kemus = Array(7, 8, 9)



With Sheets("成绩统计")
Sheets("统计图").ChartObjects.Delete    '删除统计图


Rem 查找年级值所在行（“班”列为空值）

Dim R, m As Integer
Dim GradeR(6) As Integer
R = .Cells(.Rows.Count, 1).End(xlUp).Row
m = 0
For i = 2 To R
  If .Cells(i, 2)