应用VBA轻松编排考试试场
【摘要】为了防止学生考试时作弊，有利于班级的管理和教学，本文结合自己的工作经验总结出了一种科学合理地安排考试试场的方法，每次考试编排试场时考生单人单桌，考生座位随机编排，而且前后座位不是同班的同学，同时打印出贴在试场桌子的考生标签。
【关键词】随机函数；四舍五入函数；VBA代码；主要关键字；排序
为了尽量防止考生考试时作弊，得到考生比较的真实的成绩，每次考试学校都要求编排试场时学生单人单桌，而且前后座位不能是同班的同学，同时打印出贴在试场桌子的考生标签。为此笔者在Excel中用VBA代码轻松实现了学校的要求。
一、试场安排表的设置
试场安排表设有“班别”、“人数”、“桌子数”、“试场”、“考生人数”共五列，由于我校是俩学生同坐一张课桌，可以利用四舍五入函数取得桌子数：ROUND（B2/2，0），根据桌子数安排考生人数。
二、贴班级教室表的设置
1、思路：分别以随机数和班级为关键字段进行排序，确保每次考生座位随机编排，为了防止前后座位是同班的同学，以人数最多的班级为准先给“贴班级教室”表中的考号赋临时值，按照先排奇数考号再排偶数考号，然后按“考号”字段排序，即可实现同一个班的考生的考号不连续。最后根据“试场安排表”的顺序给考生赋连续的考号和对应的试场教室。
2、代码：
（1）右击工作表标签，在出现的快捷菜单中单击“查看代码”，打开代码设计窗口。
（2）在代码窗口中执行命令“插入/模块”，插入模块1。
（vba排序函数sort用法3）录入代码如下：
Sub Macro1（）
Application.ScreenUpdating = False
Dim i As Integer ’定义整型变量用于循环操作
Dim j As Integer ’定义整型变量给“贴班级教室”表中的考号赋临时值
Dim n As Integer ’定义整型变量给“贴班级教室”表中的考号赋值
Dim k As Integer ’定义整型变量定位写入的单元格

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。