基于VBA和EXCEL的学生成绩排序

课程的教学工作。
参考文献
［１］ 赵智大．高电压技术．北京：中国电力
出版社，１９９９
表３
［２］ 第三届全国高等学校电气工程及其自
动化专业教学改革研讨会论文集
作者简介 孔 斌 （ １ ９ ６ ９ － ）， 男 ， 安 徽 寿 县 人 ， 郑
州大学讲师，硕士，主要从事电力系统运
行与控制方面的教学和研究
－２３２－
Ｓｕｂ ｆ＿ｓｏｒｔ（） Ｄｉｍ ｉ Ａｓ Ｉｎｔｅｇｅｒ ｎｕｍ ＝ ３０ Ｆｏｒ ｉ ＝ ０ Ｔｏ ｎｕｍ － ２ ‘判断上下总分两单元格数值 是否相等 Ｉｆ （Ｓｈｅｅｔ１．Ｃｅｌｌｓ（４ ＋ ｉ， ７）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔ１．Ｃｅｌｌｓ（３ ＋ ｉ， ７）．Ｖａｌｕｅ） Ｔｈｅｎ ‘相等则设置名次单元格数值相 等 Ｓｈｅｅｔ１．Ｃｅｌｌｓ（４ ＋ ｉ， ８）．Ｖａｌｕｅ ＝ Ｓｈｅｅｔ１．Ｃｅｌｌｓ（３ ＋ ｉ， ８）．Ｖａｌｕｅ Ｅｎｄ Ｉｆ Ｎｅｘｔ ｉ Ｅｎｄ Ｓｕｂ 宏运行完以后，相同成绩的学生的排 名就相同了，然后再按照学号从小到大排 序即可，见表 ３。 ２．４ 按照单科成绩排序 利用按照总分排序的方法，在宏中 更改一下进行排序的范围，就可以把单 科成绩的顺序求出来。最后排序出来的 表格中，每个学生在班里的总分的名次 及各单科成绩的名次就一目了然了。 在 ＥＸＣＥＬ 中使用 ＶＢＡ 进行数据的统
基于 Ｖ Ｂ Ａ 和 Ｅ Ｘ Ｃ Ｅ Ｌ 的学生成绩排序
马宁 １ 邓先瑞 ２ 杜瑞庆 ２ １、唐山师范学院计算机系应用教研室 ２、唐山师范学院计算机系网络教研室
摘 要 介绍了 ＶＢＡ 在 ＥＸＣＥＬ 中的应用：利用 ＶＢ 编辑 器缩写宏的代码，完成 ＥＸＣＥＬ 难以解决的问 题，可以提高数据计算的速度和工作的效 率。 关键词 Ｖ Ｂ Ａ ；Ｅ Ｘ Ｃ Ｅ Ｌ ；成绩；宏；编辑器
表１
计和计算，非常方便。使用小段的 Ｖ Ｂ Ａ 的代码和简单的语句就能解决用单纯的 Ｅ Ｘ Ｃ Ｅ Ｌ 难以解决的问题。充分利用 Ｖ Ｂ Ａ ，会大大增加工作的效率。
参考文献 ［１］韩泽坤，朱瑞亮．ＥＸＣＥＬＶＢＡ 高效办
公范例应用［Ｍ］．北京：中国青年出版社． ２００４ ［２］（美）沃肯巴赫．Ｅｘｃｅｌ２００３ 高级 ＶＢＡ 编程宝典［Ｍ］．北京：电子工业出版 社．２００５ 作者简介 马宁，女，１ ９ ７ ３ ． ４ － ，河北省唐山人， 汉族，唐山师范学院计算机系应用教研室 （ 主 任 ）， 讲 师 ， 工 学 学 士 ， 现 主 要 从 事计算机程序语言、计算机应用的教学与科 研工作。 邓先瑞，女，１９７３ －，唐山师范学院计算机 系网络教研室，讲师，工学硕士，现在中国 科学院攻读博士，主要从事现主要从事计算 机程序语言、自动化的教学与科研工作。 杜瑞庆，男，１９７４．９－，河北省赞皇县人， 汉族，唐山师范学院计算机系网络教研室， 讲师，工学硕士，现主要从事计算机程序语 言的教学与科研工作。
ｕｆ＿ｓｕｍ．Ｓｈｏｗ ＇激活输入学生信息的窗体 Ｅｎｄ Ｓｕｂ 调用此宏时会出现一个如下图的窗 体，要求用户输入学生的相应信息。
点击“开始计算”命令按钮就会在 Ｅ Ｘ Ｃ Ｅ Ｌ 的工作表中实现计算总分的功 能。
在编辑“开始计算”按钮的程序之
前，应当先在工作簿的通用部分声明 ４ 个 全局变量，用来存储用户输入的信息：
Ｏｐｔｉｏｎ Ｅｘｐｌｉｃｉｔ ＇ Ｄｉｍ ｆｉｒｓｔ＿ｃｏｕｒｓｅ Ａｓ Ｓｔｒｉｎｇ ＇ 存储第 一个学生第一门成绩所在的坐标 Ｄｉｍ ｌａｓｔ＿ｃｏｕｒｓｅ Ａｓ Ｓｔｒｉｎｇ ＇存储第 一个学生最后一门成绩所在的坐标 Ｄｉｍ ｓｕｍ Ａｓ Ｓｔｒｉｎｇ ＇ 存储第一个学 生总分所在的坐标 Ｄｉｍ ｎｕｍ Ａｓ Ｉｎｔｅｇｅｒ ＇存储班级里的 学生总数 “开始计算”命令按钮的程序，将 用户输入的信息转换成计算所需信息， 然后再根据坐标给相应的单元格赋值。 程序如下： Ｐｒｉｖａｔｅ Ｓｕｂ ＣｏｍｍａｎｄＢｕｔｔｏｎ１＿Ｃｌｉｃｋ （） Ｄｉｍ ｔｓ１， ｔｓ２ Ａｓ Ｓｔｒｉｎｇ ＇获取用户输入的信息 ｆｉｒｓｔ＿ｃｏｕｒｓｅ ＝ ＴｅｘｔＢｏｘ１．Ｔｅｘｔ ｌａｓｔ＿ｃｏｕｒｓｅ ＝ ＴｅｘｔＢｏｘ２．Ｔｅｘｔ ｎｕｍ ＝ Ｖａｌ（ＴｅｘｔＢｏｘ３．Ｔｅｘｔ） ｓｕｍ ＝ Ｔｒｉｍ（ＴｅｘｔＢｏｘ４．Ｔｅｘｔ） ＇ 将第一名学生的第一门成绩的 坐标的行和列的信息分别取出来 Ｄｉｍ ｒ＿ｆｉｒｓｔ Ａｓ Ｓｔｒｉｎｇ Ｄｉｍ ｃ＿ｆｉｒｓｔ Ａｓ Ｉｎｔｅｇｅｒ ｒ＿ｆｉｒｓｔ ＝ Ｌｅｆｔ（Ｔｒｉｍ（ｆｉｒｓｔ＿ｃｏｕｒｓｅ）， １） ｃ＿ｆｉｒｓｔ ＝ Ｖａｌ（Ｒｉｇｈｔ（Ｔｒｉｍ （ｆｉｒｓｔ＿ｃｏｕｒｓｅ）， Ｌｅｎ（ｆｉｒｓｔ＿ｃｏｕｒｓｅ） － １）） ＇将第一名学生的最后一门成绩 的坐标的行和列的信息分别取出来 Ｄｉｍ ｒ＿ｌａｓｔ Ａｓ Ｓｔｒｉｎｇ Ｄｉｍ ｃ＿ｌａｓｔ Ａｓ Ｉｎｔｅｇｅｒ ｒ＿ｌａｓｔ ＝ Ｌｅｆｔ（Ｔｒｉｍ（ｌａｓｔ＿ｃｏｕｒｓｅ）， １） ｃ＿ｌａｓｔ ＝ Ｖａｌ（Ｒｉｇｈｔ（Ｔｒｉｍ （ｌａｓｔ＿ｃｏｕｒｓｅ）， Ｌｅｎ（ｌａｓｔ＿ｃｏｕｒｓｅ） － １）） ＇将总分的坐标的行和列的信息
在微软办公软件中，ＥＸＣＥＬ 是第一 个绑定 ＶＢＡ 自动化语言的应用程序，自 从 ＥＸＣＥＬ ５．０ 版本出现 ＶＢＡ 后，它的强 大功能和巨大的潜能不断为用户所领悟并 认可。ＶＢＡ 是应用程序开发语言 Ｖｉｓｕａｌ Ｂａｓｉｃ（简称为 Ｖ Ｂ ）的子集，并继承于 Ｖ Ｂ 应用程序。
Ｖ Ｂ Ａ 有许多优势，主要体现在： Ｖ Ｂ Ａ 功能强大，能解决大多数用户的问 题，而且简单易学、操作简单快捷；利 用 Ｖ Ｂ Ａ 可方便地完成大量的重复操作， 也可使用快捷键、菜单命令或工具按钮 等快捷途径来执行 ＶＢＡ 程序，实现大量 复杂操作的自动化；Ｖ Ｂ Ａ 绑定在 Ｅ Ｘ Ｃ Ｅ Ｌ 中，ＥＸＣＥＬ 的各个功能都可用 ＶＢＡ 程序 来直接完成。
－ ６４ ｃ＿ｓｕｍ ＝ Ｖａｌ（Ｒｉｇｈｔ（Ｔｒｉｍ（ｓｕｍ），
Ｌｅｎ（ｓｕｍ） － １）） ＇计算学生总分 Ｆｏｒ ｉ ＝ ０ Ｔｏ ｎｕｍ － １ ｔｓ１ ＝ ｒ＿ｆｉｒｓｔ ＆ Ｔｒｉｍ（Ｓｔｒ
（ｃ＿ｆｉｒｓｔ ＋ ｉ）） ｔｓ２ ＝ ｒ＿ｌａｓｔ ＆ Ｔｒｉｍ（Ｓｔｒ
上接第 ２３０ 页 切转换容易造成教学思路混乱。所以在 教学过程中采取传统教学与多媒体教育技 术相结合。
６ 结束语
《高电压技术》课程面广量大，教
与学的难度都比较大，只有调动教与学
两方面的积极性，才能取得好的教学效
果。不断提高自身的素质，而且在整个
表２
教学过程中启发学生去思考问题，激化
学生的学习积极性，才能切实做好本门
ＥＸＣＥＬ 在统计学生成绩中起到非常 大的作用，加入一些 ＶＢＡ 的操作，会使 得操作更加方便简单，提高效率。本文 介绍了一种使用 ＶＢＡ 和 ＥＸＣＥＬ 对学生期 末考试成绩进行快速排序的高效方法。
１ ＶＢＡ 和 ＥＸＣＥＬ
ＶＢＡ是Ｖｉｓｕａｌ Ｂａｓｉｃ ｆｏｒ Ａｐｐｌｉｃａｔｉｏｎｓ 的缩写，是 Ｍｉｃｒｏｓｏｆｔ Ｏｆｆｉｃｅ执行后台处 理功能的编程语言，提供与 Ｖｉｓｕａｌ Ｂａｓｉｃ 相同的语言功能。ＥＸＣＥＬ 是微软办公套 装软件的一个重要的组成部分，它可以 进行各种数据的处理、统计分析和辅助 决策操作，广泛地应用于管理、统计财 经、金融等众多领域。
２．３ 按总分排序 通过 ＥＸＣＥＬ 菜单栏中的“数据”—— “排序”，按“总分”从大到小排序，并在 第一名学生的“总分排名”单元格中输入 １，将光标移动到此单元格右下方，按住 ＣＴＲＬ 键往下拖动到最后一名学生处，总 分排名完成。学生的总分排序如表 ２。 这张表看起来有些乱，因为学号已经
ቤተ መጻሕፍቲ ባይዱ
打乱，而且相同总分的学生获得的排名 却不同，要解决这些问题，可创建一个 宏来完成。宏的名字叫 ｆ＿ｓｏｒｔ，程序如 下：
－２３１－
科技教育创新 中国科技信息 ２００７ 年第 １ 期 ＣＨＩＮＡ ＳＣＩＥＮＣＥ ＡＮＤ ＴＥＣＨＮＯＬＯＧＹ ＩＮＦＯＲＭＡＴＩＯＮ Ｊａｎ．２００７
分别取出来 Ｄｉｍ ｒ＿ｓｕｍ， ｃ＿ｓｕｍ Ａｓ Ｉｎｔｅｇｅｒ ｒ＿ｓｕｍ ＝ Ａｓｃ（Ｌｅｆｔ（Ｔｒｉｍ（ｓｕｍ）， １））
（ｃ＿ｌａｓｔ ＋ ｉ）） Ｓｈｅｅｔ１．Ｃｅｌｌｓ（ｃ＿ｓｕｍ ＋ ｉ，
ｒ＿ｓｕｍ） ＝ ＂＝ｓｕｍ（＂ ＆ ｔｓ１ ＆ ＂：＂ ＆ ｔｓ２ ＆ ＂）＂
Ｎｅｘｔ ｉ ＭｓｇＢｏｘ （＂ 计算完毕！ ＂） Ｕｎｌｏａｄ ｕｆ＿ｓｕｍ Ｅｎｄ Ｓｕｂ
运行完此宏，学生的总分就可计 算出来。
２． 学生成绩排序
期末考试结束后，班主任往往需要 对学生的成绩进行统计和排序，使用 Ｖ Ｂ Ａ 进行处理，可以简化操作，提高效 率。另外，每年班级里都可能有不同的 学员加入，每年都要处理学员的成绩， 那么从长远的角度上看，使用 ＶＢＡ 是更 有效更方便的方法。
２．１ 按学号录入学生成绩 考试结束时，首先将学生成绩录入 Ｅ Ｘ Ｃ Ｅ Ｌ 文件中的一个工作表（本文以 Ｓ Ｈ Ｅ Ｅ Ｔ １ 为例）。 此班级有 ３０ 个学生，分别参加了英 语、Ｃ 语言、高数和法律 ４ 门课的考试，学 号前几位学生的成绩如表１。 ２．２ 利用 ＶＢＡ 计算总分 为了便于进行计算，创建一个宏， 利用 ＥＸＣＥＬ 提供的 Ｖｉｓｕａｌ Ｂａｓｉｃ 编辑 器，创建一个窗体，让用户输入学生信 息所在的地址，根据地址进行计算，可 适应多个表中不同班级不同人数的情况， 使用非常方便。 宏的内容为： Ｓｕｂ ｍ＿ｓｕｍ（）