EXCEL VBA学生成绩管理系统教程.pdf

《EXCEL VBA学生成绩管理系统教程.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、学生成绩管理系统1.1学生成绩管理系统的总体设计1.2班级管理模块的设计1.3学生名单管理模块的设计1.4管理学生成绩模块的设计1.5查询学生成绩模块的设计1.6成绩统计分析模块的设计1.7打印成绩单模块的设计1.1学生成绩管理系统的总体设计对学生考试成绩的管理，是每个学校重要的日常管理工作之一。由于每个学校的考试面广，参加人数多，如果人工管理学生成绩，将会降低学校的运作效率。而利用ExcelVBA开发一个学生成绩管理系统，则可大大提高管理效率。1.1.1学生成绩管理系统的构成模块本章介绍的学生成绩管理系统的模块构成如图1-1所示。本系统由“班级管理”

2、、“学生名单管理”、“登记学生成绩”、“查询学生成绩”、“成绩统计分析”和“打印成绩单”6个模块构成。各个模块的功能介绍如下。学生成绩管理系统班级管理学生名单管理登记学生成绩查询学生成绩成绩统计分析打印成绩单图1-1学生成绩管理系统（1）班级管理：设置各个年级的班级名称。（2）学生名单管理：用于管理各班级的学生信息，包括学生的学号、姓名、性别等基本信息。（3）登记学生成绩：完成学生各学科考试成绩的登记、修改等功能。（4）查询学生成绩：根据设定的条件查询学生成绩。（5）成绩统计分析：对各班、各年级的学生考试成绩进行统计分析。（6）打印成绩单：将学生的考试

3、成绩按班级生成成绩单，并打印出来。1.1.2学生成绩管理系统的工作簿设计建立一个名称为“学生成绩管理系统”的工作簿，将此工作簿的一个工作表重命名为“首页”，在此工作表中插入一个自己喜欢的背景图片。插入一个艺术字“学生成绩管理系统”并设置其格式。插入6个自选图形（矩形），分别在这6个自选图形中添加文字，添加的文字分别为“管理学生名单”、“管理学生成绩”、“查询学生成绩”、“成绩统计分析”、“打印成绩单”和“班级管理”，设置自选图形和文字的格式。插入其他的用于修饰界面的自选图形，并设置其格式。最后的界面如图1-2所示。2数据列表管理与应用学生成绩管理系统图

4、1-2学生成绩管理系统界面1.1.3为自选图形按钮指定宏为了在单击首页工作表的6个自选图形时，能够执行相应的操作，为这6个自选图形指定如下的宏，并将它们保存在一个名称为“自定义按钮的指定宏”的标准模块中。Sub管理学生名单()'"管理学生名单"按钮学生管理窗口.ShowEndSubSub管理学生成绩()'"管理学生成绩"按钮学生成绩管理窗口.ShowEndSubSub查询学生成绩()'"查询学生成绩"按钮学生成绩查询窗口.ShowEndSubSub成绩统计分析()'"成绩统计分析"按钮成绩统计分析窗口.ShowEndSubSub打印成绩单()'"打印成

5、绩单"按钮打印成绩单窗口.ShowEndSubSub班级管理()'"班级管理"按钮Worksheets("班级管理").Visible=True'显示工作表"班级管理"Worksheets("班级管理").Activate'激活工作表"班级管理"EndSub1.1.4为工作簿对象编写有关的事件程序为了在打开系统工作簿时，自动激活“首页”工作表，并将该工作表进行保护。同时3将工作簿中除“首页”工作表外的所有工作表隐藏起来，以保护其中的数据（如果用户需要查看某工作表的数据，可以在相应窗体进行有关操作，使隐藏的工作表显示出来）。因此，为工作簿对象设置Open

6、事件，程序代码如下：PrivateSubWorkbook_Open()DimiAsIntegerWorksheets("首页").Activate'激活工作表"首页"Worksheets("首页").Protect'保护工作表"首页"Fori=1ToWorksheets.CountIfWorksheets(i).Name<>"首页"ThenWorksheets(i).Visible=False'保护除工作表"首页"外的所有工作表EndIfNextiEndSub由于在操作时，对学生考试成绩进行了录入、修改等操作，而学生成绩都保存在本系统工作簿的有关工作表

7、中，因此，在关闭系统工作簿之前，要先保存工作簿，为此，对工作簿对象设置BeforeClose事件，程序代码如下：PrivateSubWorkbook_BeforeClose(CancelAsBoolean)ThisWorkbook.CloseSaveChanges:=TrueEndSub此外，在操作时，我们会激活某些工作表并查看数据，这样，为了能够返回“首页”工作表，并隐藏其他的工作表，应该为工作簿的所有工作表都设置一个能够返回“首页”工作表的事件。为工作簿对象设置SheetBeforeRightClick事件，即单击鼠标右键激活“首页”工作表。工作簿

8、对象的SheetBeforeRightClick事件程序代码如下：PrivateSubWork