ExcelVBA开发之学生成绩管理系统设计与实现.docVIP

ExcelVBA开发之学生成绩管理系统设计与实现 　　摘 要 Excel 2007是office应用程序其中一款功能强大的办公软件，具有数据计算、数据统计分析和信息保存等功能；同时，它还是一个开放的平台，用户可以使用其内嵌的VBA程序进行二次开发。本文就如何利用Excel2007和VBA编程平台进行二次开发，设计与实现一个学生成绩管理系统进行简单地阐述。 　　关键词 VBA EXCEL 学生成绩 　　中图分类号：TP311.52 文献标识码：A 　　1 VBA简介 　　VBA是Visual Basic For Application的简称， VB的子集，是Office应用程序内嵌的一种开发工具，使用VBA编程可以有效地自定义和扩展Excel等office应用程序的功能。 　　2 系统的设计思想 　　学生成绩管理，是一项繁琐且耗时的工作，大多数成绩管理员统计成绩时都是利用Excel公式进行重复地操作，工作效率不高。本系统主要是想通过VBA编程对Excel2007进行二次开发，采用VBA按钮控件创建一个学生成绩管理系统，以便成绩管理员更有效地管理成绩。 　　3 系统的分析与设计 　　3.1 系统分析 　　该系统的使用者是教务成绩管理员，要求系统方便实用，能简化某些重复的操作，对系统功能分析需求如下： 　　（1）能完成各班学生基本信息的录入、删除及修改，完成各科成绩的登记； 　　（2）能方便有效地查询成绩； 　　（3）能自动进行成绩的分析和统计； 　　（4）能生成各班级成绩汇总表。 　　3.2 模块设计 　　根据系统分析需求，设置“学生信息管理”、“学生成绩登记”、“学生成绩查询”、“成绩统计分析”、“打印成绩单”和“退出系统”6个模块。下面简单介绍一下这6个模块各自的功能设计： 　　（1）学生信息管理：运行系统进入主界面，单击该模块按钮则激活一个“学生信息管理”的窗体，再通过“学生信息管理”窗体选择相应班级及信息后，激活各个班级工作表。 　　（2）学生成绩登记：完成学生各学科成绩的登记、修改等功能。单击该模块按钮时激活一个“学生成绩登记”工作表，工作表中显示有各班级按钮，单击相应按钮便可在相应的班级成绩信息表中直接录入成绩。（成绩信息表显示有“学生班级”、“学号”、“姓名”、“性别”和各学科名称等）。 　　（3）学生成绩查询：根据设定的条件进行查询，可以按班级名称或学生姓名学号查询个人成绩，也可以按学期进行查询各班级所有学生成绩汇总等等。单击该模块时激活 “学生成绩查询”工作表，单击工作表中不同的查询条件按钮则会弹出相应的查询选择窗体，根据窗体提示选择好后，相关成绩信息便能直接显示在“学生成绩查询”工作表中。 　　（4）成绩统计分析：根据录入的成绩，统计出各科目的平均分、及格率、最高分数、最低分数和各分数段的分布情况。 　　（5）打印成绩单：生成班级成绩单报表，并打印出来。 　　（6）退出系统：学生成绩都保存在本系统工作簿的相关工作表中，当对学生成绩进行了录入、删除和修改等操作时必须保存。因此，该模块的功能则是单击按钮时，系统会先对工作簿进行保存，然后再退出系统。 　　表格是Excel的基础，要完成各模块的编辑与实施，需使用Excel2007创建相关工作表并将可共享使用的信息先录入及编辑，将表格框架搭建好，再使用内嵌的VBA编辑宏，对表格进行处理。 　　3.3 主界面的设计 　　创建一个名为“学生成绩管理系统”的工作簿，将第一个工作表设置为主界面，重命名为“封面”，利用插入艺术字和自选图形等功能添加美化主界面的背景及按钮模块，再分别为各模块按钮指定相应的VBA宏代码。主界面效果图如下图1： 　　封面是对整个系统的控制，在打开系统工作簿时，会自动激活“封面”工作表。所以必须将该工作表进行保护，同时将工作簿中除“封面”工作表外的所有工作表隐藏起来，以保护其中的数据。因此，需要为工作簿对象设置Open事件。 　　4 VBA程序编写 　　由于代码量较多，本文只对部分代码进行摘录。 　　4.1为工作簿对象设置Open事件的代码 　　Private Sub Workbook_Open（） 　　Dim i As Integer 　　Worksheets（封面）.Activate，激活工作表封面 　　Worksheets（封面）.Protect，保护工作表封面 　　For i = 1 To Worksheets.Count 　　If Worksheets（i）.Name 封面 Then Worksheets（i）.Visible = False 保护除工作表封面外的所有工作表 　　End If 　　Next i 　　End Sub 　　4.2为模块按钮指定宏的代码