VBA编程，Excel 制作学生成绩管理系统，实践图解 01

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

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

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

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

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

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

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

课程管理

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

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

学生信息管理

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

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

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

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

添加信息

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

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

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

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

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

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

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

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

PrivateSub遍历学生信息()'取出数组OnErrorResumeNextClearLabelsDimxCAsStringxC=()(xC)=0ThenExitSubDimsAsWorksheetSets=GetSheet(xSheetStudent)DimxArr,xiAsLongDimcArr,ciAsLongDimirAsLong,icAsLongxArr=("A1").CurrentRegionir=UBound(xArr,1)ic=7ci=1ReDimcArr(ciToci)Forxi=LBound(xArr,1)ToirIfxArr(xi,ic)=xCThenReDimPreservecArr(1Toci)cArr(ci)=xArr(xi,2)(xi,3)ci=ci+1(cArr(LBound(cArr)))=0ThenExitSubAddFrameLabelscArr'添加学生学号ErasecArrErasexArrSets=NothingSub

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

---END---

很赞哦!（18）