excel vba实现考试系统（VBA编程Excel制作学生成绩管理系统）

Excel制作一个成绩管理系统，本系统将是一个全功能性的学生成绩管理应用，可以根据不同班、考场、学号等关键字段进行学生成绩的添加、修改、删除、统计、打印等功能。

同时将在完整地应用这后有些成绩排序、比较等图示化输出结果。

给不同的教学目标起到一定的指导作用。

考试成绩管理，如下所示：

可以实现成绩录入，批量录入，修改，删除，打印，查询等基本功能。

效率很高，使用便捷，本示例通过操作验证，数据准确可靠，运行速度快。

实际上Excel对于成绩管理是最理想的一个应用，不仅可以有效地对于学生的信息进行有条理地管理，也可以方便地统计出学生的学习成绩状态。

课程管理

课程管理是一前提性操作，首先要对学生的课程进行一个编辑，以达到后续的成绩添加进行选择。

如下图所示，课程管理也进行了一个系统化编辑，操作十分简单。

学生信息管理

同理，学生信息是一个很重要的管理方面。

要准确完整地把学生信息收集完整，以适配相应的成绩。

学生信息管理可能比较麻烦，于是，此方面将以导入的方式进行操作，以方便已经有学生信息的操作，更便捷地初始化学生信息。

导入功能在下次更新完善操作。

添加信息

添加信息使用了一个统计的表单来进行，无论是成绩管理，还是学生信息管理或课程管理。

至于为什么统一成一个表单来制作，那就是为了更加精简程序代码，这个处理过程还是十分有用的。

经过一个选择语句，创建不同的输入表单，很有意思。

实际操作当中，并不会利用上面的成绩录入方法，似乎并不理想，没人愿意一个一个录入学生信息，然后单击添加一次。

所以，下面的批量录入就更加有用了。

可以根据班级和课程提取全部学生信息，然后输入成绩。

这样，每一个考试只需要在这里一次性输入即可。

以前也做过类似成绩管理应用，使用效果很好。本次作为升级版本，创新了一些编程思想，逻辑管理又有了新的理解，所以对于一个优秀的管理应用，是十分必要的。

Private Sub 遍历学生信息() '取出 数组 On Error Resume Next ClearLabels Dim xC As String xC = VBA.Trim(Me.ComboBox3.Value) If VBA.Len(xC) = 0 Then Exit Sub Dim s As Worksheet Set s = GetSheet(xSheetStudent) Dim xArr, xi As Long Dim cArr, ci As Long Dim ir As Long, ic As Long xArr = s.Range("A1").CurrentRegion ir = UBound(xArr, 1) ic = 7 ci = 1 ReDim cArr(ci To ci) For xi = LBound(xArr, 1) To ir If xArr(xi, ic) = xC Then ReDim Preserve cArr(1 To ci) cArr(ci) = xArr(xi, 2) & VBA.vbCrLf & xArr(xi, 3) ci = ci 1 End If Next xi If VBA.Len(cArr(LBound(cArr))) = 0 Then Exit Sub AddFrameLabels cArr '添加学生学号 Erase cArr Erase xArr Set s = Nothing End Sub

成绩管理将作为一个重点项目来进行，所以，在接下来的文章里，会努力体现出其应用的优点。

欢迎关注、收藏

---END---