开发案例 基于 Excel VBA 的成绩管理系统 * 廖丽嵘 韶关学院计算机科学学院 （ 韶关 ， 512005） 摘 要 ： 介绍 Excel VBA 在 高 校 教 师 成 绩 处 理 中 的 应 用 ，利 用 Excel VBA 设 计 成 绩 管 理 系 统 ，包 括 界面设计、成绩分类与统计、工作表的生成等功能。 该系统大大提高教师教 学 工作 的 效 率， 减轻教师日常工作的负担。 关键词 ： Excel VBA； 成绩管理系统； 统计函数 引 言 0 在高校教学工作中 考试是一个非常重要的环节 。 ， ， ， ， 可以获取较多 从而对教师的教学工作起到指导性的作 但是每次考试后对成绩的处理及分析是一个繁琐 成绩单和考试 这些工作都需要消耗教师较多 将重复的工作自动化 ， 提高教师 通过对考试结果及质量的监控与分析 的反馈信息 用 的过程 质量分析报告等材料 的时间和精力 使用 可以大大简化这些工作 的工作效率 同时教师还需要完成试卷分析 减轻教师的工作量 Excel VBA ， ， ， ， ， 、 。 简介 1 VBA ， ， VBA Windows 是寄生于 Visual Basic Microsoft Office 的应用程式功能 是微软公司开发出 来 的 应 用 程 序 所 共 享 的 应用程序 特 可以使用宏 程序 一种通用自动化语言 的版本 别是 ， 记录器记录用户的各种操作并将其转换为 代 码 主要能用来扩展 软件 因 此 能 很 容 易 地 把 需 要 处 理 的 工作 自 动 化 套装软件的各项强大功能 ， 可以直接应用 VBA ， 所以对于程序设计人员的程序设计和开发更加方便快 捷 的项目仅由使用 简单易学 。 VBA Office VBA 的 ， 。 。 VBA 等称为宿主的 Point VBA 应用程序 Excel、Word、Power- 来调 （Application） Office 用[1~2]。 系统主要设计 2 使用 开发程序是不能脱离 Excel 的 ， 在设计 本 身 的 菜 单 工 具 栏 另 外 在 This- 事件处理函数中添加需要启用 ， 2.1 系统主界面 VBA 时 可 以 保 留 Excel 对象的 Workbook 特定功能的界面 Open 先利用 。 成绩管理 Set tbar = Application.Com- 语 如 ", Temporary:=True) 然后添加工具栏上的命令按钮 ， mandBars.Add(Name:=" 句创建系统工具栏 下 ， ： With tbar.Controls.Add(Type:=msoControlButton) .Caption = " 考试成绩 " .Style = msoButtonCaption .OnAction = " 输入班级 " End With 执行该语句后 生成如图 ， 1 系统工具栏界面 ： 图 1 2.2 各功能模块设计 * 基金项目：国家自然科学基金资助（No.61101134) 收稿日期：2012-07-24 修稿日期：2012-08-12 作者简介：廖丽嵘（1977-），女，湖南衡阳人，硕士，研究方向为计算机应用技术 趩趲 现代计算机 2012.08 中 

开发案例 实验成绩模块 （1） 计算机教学中一般都会有较多的实验内容 每位 实验成绩是通过批改程 学生每个实验都有一个分数 序得来的 实验成绩模块部分的作用就是从全校实验 成绩表中将本班实验成绩提取出来并按照需要的格式 设计工作表以方便打印存档 ， ， ， 实验成绩总表如图 2。 。 总表中查询学生各实验成绩写入对应的位置 具体关 ， 键代码如下 ： For Each t In Sheets(" 实验总表 If Cells(j, 1).Text = t.Text Then ' ").Range("b4:b" & n) 比较姓名 sygs = Val(Right(t.Offset(0, -1).Text, 2)) 取实验名称的后两位 如 ， ：01 读取实验成绩 syz = t.Offset(0, 2).Value ' Cells(j, 1).Offset(0, sygs + 1) = syz 写入实验成绩 ' ' End If Next 其中 ， Offset ， 考试成绩模块 函数是以学生姓名为参照偏移找到 对应的学生实验成绩 写入新工作表对应位置 （2） 实验成绩处理好以后就可以处理考试成绩 。 考试 ， 成绩是由平时成绩和试卷成绩综合得出 平时成绩由 ， 考勤成绩和实验成绩综合计算出来 点击考试成绩按 ， 钮自动从实验成绩和试卷成绩表中查询读取相应数据 计算出总评成绩 ， 并生成对应的成绩表 其中课程平时 。 成绩与期末卷面成绩的比重是可以改变的 从学校学 ， 生名册表中拷贝班级名单工作表后 由程序通过循环 ， 写入学期平时成绩和总评成绩 : 成绩表 Sheets( “ ”) . Cells( i , K) . FormulaR1C1 = "= RC[ 图 2 提取成绩后生成实验表如图 3。 其中 ， 实验个数和教师名称可以由教师动态输入 确定 班级由程序从实验总成绩表获取 ， 实现方法是循环读取学生信息表中的学生姓名 。 ， 创建新的工作 并按班级信息分班 可使用 ， 使用 表 ， 断班级 ， class = Sheets(" 然后将学生学号 姓名 、 、 Sheets.Add 学生信息表 语句判 ").Cells(i, 4) 班级信息写入新工作 表中的相应位置 例如学号列 ， 生信息 表 ").Cells(i, 1)， ：Cells(j, 1) = Sheets(" 然后根据学生姓名在学生实验 - 2] * " &St r(n) & "+ RC[ - 1] * " & Str (1-n)) 成 绩 表 Sheets( “ ”) . Cells( i ,P) . FormulaR1C1 = "= RC[ - 2] * " &St r(m) & "+ RC[ - 1] * " & Str (1-m)) 其中 ，FormulaR1C1 行列 ） 写入公式 ，RC[-2] 考勤成绩和平时成绩 表示以 R1C1 样式 （ 数字表示 指同一行前两列的单元格 即 ， 指同一行前一列的单元 即实验成绩和总评成绩 为平时成绩所占比例 格 ， 学 为平时成绩所占比例 ， Inputbox 分班为平时成绩和总评成绩所在列号 ，m 函数从键盘 循环 。 ， RC[-1] ，n 可以通过 输入 ，K，P 图 3 现代计算机 2012.08 中 趩趶 

开发案例 图 4 可以通过 成绩表 Sheets(" ").Range("a65535").End(xlUp). 返回最后一行成绩的行数 。 Row 试卷分析模块 （3） 试卷分析模块利用公式对数据进行动态的统计 包括 ： 考人数 分数段人数统计 各分数段百分比 应考人数 、 、 平均分 、 、 最低分等统计信息 。 、 、 最高分 ， 实 Cells(i, L).Formula = "=max(D3:D" & m & ")" Cells(i, L).Formula = "=min(D3:D" & m & ")" Cells(i, L).NumberFormatLocal = "0.00_ " Cells(i, L).Formula = "=average(D3:D" & m & ")" Cells(i, L).Formula = "=countif(D3:D" & m & ","">= 60"")" Cells(i, L).Formula = Format(Cells(16, 8)/n, "#.00%") 其 中 中 设 置 单 元 格 是 ，NumberFormatLocal VBA 自定义格式的属性 。 结 语 3 是一种面向用户的控制语言 它具有强大的 VBA 开发功能 ， 而且容易掌握和使用 成绩管理程序 ， 表的生成等功能 包括界面设计 、 质量 ， 减轻教师日常工作的负担 。 ， 利用 Excel VBA 。 成绩分类与统计 设计 工作 、 可大幅度提高教学工作效率和工作 ， 图 5 分数段人数统计可以利用 条件统计函数 分的人数为例 ： COUNTIF( ) 的多条件数组在 [1]V. K 2001 Excel 的用法实现 以统计 。 60~69 $ $ 3: D Sheets(tsheet).Cells (i, L).Formula = " =SUM (COUNTIF ( $ " & n & ",""<""&{70,60})*{1,-1})" 上 面 的 公 式 相 当于 公 式 <70")-COUNTIF(D3:D100,"<60")” 表示以 样式 字母数字表示行列 mula 列为统计信息所在列 A1 ( 。 “=COUNTIF (D3:D100," 的 变 体 其 中 。 写入公式 ，For- ，L ) 参考文献 工 作 室 . Excel 2000 VBA 入 门 北 京 : [M]. 科 学 出 版 社 , , 跟我学用 开发 VBA Excel 2002 应用 [M]. 安娜 . Excel 2000 VBA 开发实例指南 北京 电子 : [M]. [2]Jacobson R. 北京 译 晶辰工作室 : . 科学出版社 , 2002 $ D [3] [4] 工业出版社 ,2000 杜茂康 与数据处理 . Excel 北京 : [M]. 电子工业出版社 ,2002 （下转第 77 页） 统计其他信息的公式分别为 ： 趩趷 现代计算机 2012.08 中 

开发案例 质量的优势 。 和 NT 权限做相应设置 。 结 语 5 本系统的智能化管理程度达到一个较高的标准 先进性 、 系统在实际教 通过教师和 达到了 体现了运用网络技术提高教育教学 能够满足当今教学信息系统应具备的可用性 可扩展性和信息管理的简单性等要求 学中进行了应用 学生的使用 较为理想的效果 其可靠性和稳定性都得到了肯定 实现了预期的各项功能 。 。 ， 、 ， ， ， ， [1] [2] [3] 付明 柏 . 识与技术 宣 小 平 ， 北京 ，2009（9） 但 正 刚 张 文 毅 ， . ASP 人民邮电出版社 [M]. 李春葆 ： 曾平 ， ， 喻丹丹 . ASP 数据库 清华大学出版社 参考文献 一 个 高 校 在 线 教 学 系 统 的 设 计 与 实 现 电 脑 知 [J]. 数 据 库 系 统 开 发 实 例 导 航 ，2003.1：153~209 动 态 网 页设 计 基 于 Access ——— [M]. ，2009:232~299 Design and Implementation of Adult Education Grade Management System Based on ASP FU Ming-bai （Department of Computer Science, Zhaotong University, Zhaotong 657000） Abstract: Designs a management system of students' scores for colleges and universities. It adopts ASP+ Access which based on the B/S mode. This system consists of graphic user's interface module, administrator subsystem, teacher subsystem, students subsystem and system maintenance and other modules. And it can realize the functions such as online course selection, course manage- ment, the score records into, student result inquiry, and so on. Keywords: B/S Mode; Online Course Arrangement; Online Select-Course; Score Management 9999999999999999999999999999999999999999999999999 （上接第 66 页） Performance Management System Based on Excel VBA LIAO Li-rong (School of Computer Science, Shaoguan University, Shaoguan 512005) Abstract: Introduces the application of Excel VBA in the performance processing of university teachers. Designs performance management system by using Excel VBA, including the function of the in- terface design, performance classification, and statistics and worksheet gerenration. It can great- ly improve the efficiency of the teachers' work, and reduce the burden of the daily work of teachers. Keywords: Excel VBA; Performance Management System; Statistical Function 现代计算机 2012.08 中 趪趹