ExcelVBA在成绩管理中的应用.doc

ExcelVBA在成绩管理中的应用ExcelVBA在成绩管理中的应用.txt如果我穷得还剩下一碗饭 我也会让你先吃饱全天下最好的东西都应该归我所有，包括你！先说喜欢我能死啊?别闹，听话。有本事你就照顾好自己，不然就老老实实地让我来照顾你！ 本文由xlrnh贡献 pdf文档可能在WAP端浏览体验不佳。建议您优先选择TXT，或下载源文件到本机查看。 2010 年 9 月 第9期 （总第 142 期 ） 广西轻工业 GUANGXI JOURNAL OF LIGHT INDUSTRY 计算机与信息技术 在成绩管理中的应用 朱庆东 （广西百色农业学校信息教研部， 广西 百色 ） 【摘 包括自动生成班级成绩表、 班级补考名单、 分数条、 评优参考和 要】 利用 Excel VBA 实现学生成绩的自动化处理， 学生手册的填写等， 提高了工作效率和数据处理结果的准确性。文章主要就实现自动生成班级补考名单的过程进行了设计。 补考名单； Excel； VBA 【关键词】 学生成绩； 【中图分类号】 G424 【文献标识码】 A 【文章编号】 1003- 2673(2010)098803 学生成绩管理是学校教学管理的一个重要组成部分。 目前 大多数中职学校一般是采用 Excel 电子表格进行学生成绩管 理， 但若方法应用不当， 会给管理人员增加大量的重复劳动， 浪 费大量的时间和精力。在 Excel 平台上利用 VBA 开发一个学 生成绩管理系统， 充分利用 Excel 中的数据处理、 VBA 程序设 计功能， 实现学生成绩管理的自动化， 可以方便的进行各种数 据处理，从而减少管理人员的工作失误和大量的重复劳动， 缓 解了工作压力。 由于生源质量下滑， 学生学习自觉性不高， 补考 就成了各中职学校教学管理中的一个重要环节。 准确生成补考 名单， 及时进行补考是抓好补考环节的前提。 系统设计 1.1 系统分析 我校历史上班级人数最多为 60 人，在以前成绩管理的基 础上， 以每班最多 62 人为限进行系统设计。以 Excel 2003 为 平台利用 VBA 进行学生成绩管理系统的开发，此系统不需要 安装， 直接在 Excel 环境下使用， 为了使开发的系统能很好地 得到运用， 该系统实现根据学生成绩库自动生成成绩表、 成绩 班级补考名单、 分数条、 评优参考和学生手册的填写等功 分析、 能。在此主要就实现学生补考名单的生成过程进行设计。 1.2 系统实现 1.2.1 建立学生成绩库 针对中职学校存在不同专业、不同专业课程安排不一样、 同专业不同年级课程安排也不一样的问题， 建立学生成绩库如 图 1 所示。每个班级的学生成绩都在成绩库中， 一个班级的第 一条学生成绩记录的前两行分别是编号、 班主任、 任课教师信 息行和序号、 班别、 学期、 学号、 姓名、 课程信息行。在做实现各 项系统功能的操作之前要求将学生的成绩按班级分别输入到 指定的 Excel 表格中，学生的成绩为 0 至 100 之间的数或填 “缺考” 违纪” 免考” 补及”也可不填写 、 “ “ 、 “ 、 ， （按缺考处理 。 ） 1.2.2 自动生成班级学生补考名单设计 当原始成绩信息输入结束后， 便可利用程序自动实现生成 各班学生补考名单。在成绩库的第二行右侧单击 “生成班级补 考名单”利用窗体的 show 方法， ， 便会出现如图 2 所示的窗体 界面。 图2 图1 “生成班级补考名单” 功能通过窗体的 “确定” 按钮的 Click 事件来实现， 窗体名称为 “生成补考名单提示”CommandBut， ton1、 CommandButton2 和 CommandButton3 分别为 “确定 （教 务用 ” 确定 ）、 “ （班级用 ”和 ） 、“退出” 三个按钮。下面省略了 “确 定 （教务用） 按钮的 Click 事件及其调用的模块代码， ” 而只给 出 “确定 （班级用 ”和 ） 、“退出” 两个按钮的 Click 事件及其调用 【作者简介】 朱庆东 （1965- ） 男， ， 百色农业学校教师， 研究方向： 计算机应用基础。 88 的模块代码： Private Sub CommandButton2_Click() 1 If TextBox1.Text = Or TextBox2.Text = Then 请检查后重新输 2 MsgBox ( 你输入的班别和学期有误， 入 ) 3 Unload 生成补考名单提示 4 生成补考名单提示.Show 5 Else 6 生成补考名单班级用 7 End If End Sub Private Sub CommandButton3_Click() Unload 生成补考名单提示 End Sub Sub 生成补考名单班级用() 1 Dim row, row1 As Single 2 For row = 3 To 65536 从 B,C 两列第 3 行起, 直至第 65536 行里查找符合条件的第 1 位学生所在的行号 3 If Cells(row, 2) = 生成补考名单提示 _ .TextBox1.Text _ And Cells(row, 3) = 生成补考名单提示 _ .TextBox2.Text Then 4 row1 = row 5 GoTo 11 6 Else 7 End If 8 Next 请检查后重新输入 ) 9 MsgBox ( 你输入的信息有误， 10 Exit Sub 11 Dim row2 As Single 12 For row = row1 To row1 + 61 获取从 B,C 两列第 row1 行起,直至第 row1+61 行的连续区域里查找符合条件的最后 1 位学生所在的行号 13 If Cells(row, 2) = 生成补考名单提示 _ .TextBox1.Text And Cells(row, 3) = _ 生成补考名单提示.TextBox2.Text Then 14 row2 = row 15 Else: GoTo 18 16 End If 17 Next 18 Dim wh As Worksheet 19 For Each wh In ActiveWorkbook.Sheets 20 Application.DisplayAlerts = False 取消提示窗口 21 If wh.Name = 补考名单 Then wh.Delete 22 Next 23 Dim ASN, bm As String 24 ASN = ActiveSheet.Name 将当前工作表名赋给变量 ASN 25 Sheets.Add.Name = 补考名单 制 26 Sheets(ASN).Range(A1:P1).Copy 27 Sheets( 补考名单 ).Range(A1).Select 28 ActiveSheet.Paste 29 Sheets(ASN).Range(A & row1 - 2 & _ : & P & row2).Copy 将查找到的班级数据进行复 30 Sheets( 补考名单 ).Range(A2).Select 31 ActiveSheet.Paste 粘贴 32 Cells.EntireColumn.AutoFit 设置最适合列宽 33 bkrc = 0 定义补考人次变量 （初始化变量 ） 34 For i = 4 To row2 - row1 + 4 35 If Cells (i, 5) = Then GoTo 54 若姓名为空则转向 语句行 54,将同行后的十个单元格的内容全部清除,否则执行 下面语句 36 For j = 6 To 15 下面将特定的内容、不合格分数等转 为补考,其余单元格的内容全部清除 37 If Cells(i, j) 60 Then 38 Cells(i, j) = Cells(i, 5) 39 bkrc = bkrc + 1 40 ElseIf Cells(i, j) = 违纪 Then 41 Cells(i, j) = Cells(i, 5) 42 bkrc = bkrc + 1 43 ElseIf Cells(i, j) = 缺考 Then 44 Cells(i, j) = Cells(i, 5) 45 bkrc = bkrc + 1 46 ElseIf Cells(i, j) = Then 47 Cells(i, j) = Cells(i, 5) 48 bkrc = bkrc + 1 49 Else 50 Cells(i, j) = 51 End If 52 Next 53 GoTo 57 转向语句行 57 54 For j = 6 To 15 55 Cells(i, j) = 56 Next 57 Next i 的下一次循环 58 For j = 6 To 15 下面判断无科目名称的,清除相应分数 区单元格的内容,不讨论补考 59 If Cells(3, j) = Then 第 3 行第 j 个单元格为空 60 For row = 4 To row2 - row1 + 4 61 Cells(row, j) = 62 Next 63 End If 64 Next 65 If bkrc = 0 Then 66 Sheets( 补考名单 ).Delete 67 Sheets(ASN).Select 68 MsgBox (生成补考名单提示.TextBox2 _ 89 .Text & 生成补考名单提示 _ .TextBox1.Text & 班无人补考 ) 69 GoTo 88 70 End If 71 Dim bkkms As Single 72 For i = - (row2 - row1 + 4) To - 4 下面剔除无补的学生行 73 bkkms = 0 74 For lie = 6 To 15 75 If Cells(- i, lie) = Cells(- i, 5) Then 76 bkkms = bkkms + 1 77 End If 78 Next 79 If bkkms 1 Then 80 Rows(- i & : & - i).Delete 81 End If 82 Next 83 Range(B2).Select 84 Cells.EntireColumn.AutoFit 设置最适合列宽 85 Sheets( 补考名单 ).Cells(1, 1) = _ Sheets(ASN).Cells(row1, 3) & Sheets _ (ASN).Cells(row1, 2) & 班补考名单 86 Unload 生成补考名单提示 87 Exit Sub 88 Unload 生成补考名单提示 89 生成补考名单提示.Show End Sub 1.3.3 系统运行效果 单击确定 （班级用） 即 ， 在窗体中输入相应信息后， 如图 3， 自动生成机电 09- 1 班 2009 秋学期的学生补考名单， 如图 4。 图5 图4 若单击确定 （教务用） 即自动生成机电 09- 1 班 2009 秋 ， 学期的学生补考名单， 如图 5。 结束语 总之， 应用 Excel 中的数据处理、 VBA 程序设计功能， 在学 生成绩管理中能有效地减少了管理人员大量的重复劳动， 节约 大量的时间， 提高了