excel编排考场前后不能有同班同学

用Excel 2000 给考生排考号排考号是各级各类学校学生考核工作中最重要的一个环节，尤其是考生较多，且对排号又有特殊要求时，其难度之大，工作量之多是可想而知的。

不用愁，用Excel 2000排考号方便快捷，准确无误，数分钟就可以搞定。

以我校为例，对一年级6个班的考生排号，要求各班考生间隔排列，30人为一个考场，考号8位数字，一二位是班号，三四位是学生序号、五六位是考场号、七八位是考场座位号，具体操作如下：1、新建一工作薄命名为“编排考号.xls”，分别在6个工作表中输入各班学生的姓名，如果有学生花名直接复制过来就可以了。

（见图一）（图一）2、编排前四位考号。

以1班为例，先将B列单元格格式设为“文本”类型，在B1单元格中输入0101，0101代表1班1号，然后拖动填充柄给B 列其它单元格输入数据。

（见图二）图二3、将前四位考号与姓名存入到一个单元格中。

在C1单元格中输入公式“=B1&A1”确认，拖动填充柄复制C列其它单元格数据。

选中C列，执行编辑菜单下的复制，再执行编辑菜单下的选择性粘贴，从对话框中选择“数值”选项，目的是将C列的公式转换为数值。

（见图三）图三4、利用剪贴板分别将6个班的C列复制并粘贴到新工作表“排号”中。

（见图四）图四5、将“排号”工作表的行列位置互换。

选中整个数据区域，执行复制，再新建一工作表“排号2”，选中A1单元格，执行编辑菜单下的选择性粘贴命令，从对话框中选中可选项“转置”确认。

（见图五）图五6、将各列的数据都统一移动到A列（见图六）图67、将考号的前四位与姓名分开存放在不同的单元格中。

在B1单元格中输入公式“=midb(A1,1,4)”确认，然后拖动填充柄输入B列的其它数据，同理在C1单元格中输入公式“=midb(A1,5,6)”然后拖动填充柄输入C列的其它数据。

这样就将前四位考号与姓名分开了。

（见图七）图七8、编排后四位考号。

打开“排号2”工作表，先将D列设置为“文本”格式，在B1单元格中输入0101后确认，0101代表1考场1号座位。

巧用Excel排考生座位号每年的上半年，都是学校特别是高中大考小考不断的时候，高三的月考、周考简直就是家常便饭。

对于像我们学校这样一个年级动辄十几二十个班（年级人数超过1000）的学校来说，组织一次正规的大型考试是不件很不容易的事。

为了端正考风、保证考试的严肃性，学校要对学生实行班级交叉混合、单人单桌考试，首先遇到的问题就是怎么把这么多班级里的这么多人比较均匀地分散到各个考场去。

如果使用人工来编排的话，这将耗费大量的人力物力，还容易出错。

笔者借助Excel，参照高考随机编排座位的方法，较为轻松地解决了这个问题。

过程如下：一、分班录入名单新建一个工作表，把Sheet1设置成标题依次是“班级”、“姓名”、“随机数”、“考号”的工作表，按班级顺序录入学生名单。

如果已经有了带班级编号的学生名单，那就再好不过了，复制、粘贴过来就行了。

注意各班名单之间不能有空行。

二、用随机数排序把光标框定位到“随机数”下的单元格，输入函数“=RAND()”（默认是返回一个大于零小于1的随机数，函数不加引号），回车。

然后把光标框定位到这个单元格，双击光标框右下角的黑色方块，Excel就会自动填充随机数，直到名单的最后（如图1）。

把光标框定位到随机数所在列的任一单元格，单击工具栏上的“升序”或“降序”按钮，原先分班排列的名单就按随机数的大小排列了，班级的顺序被完全打乱。

如果怕不够乱，可以多点几次“升序”或“降序”（如图2）。

三、编制考生座位号为了便于学生找到考试所在的教室，在编制考生座位号时，可以采用5位数来编号，前三位是教室的编号，假定有203、206、305、401等15个教室；后两位是考生序号，如一个考场40人，可编为01-40。

现在把光标框定位到“考号”下的第一个单元格，输入20301，回车，在下一个单元格输入20302，然后选定这两个单元格，向下拖动光标框右下角的十字手柄，手柄旁会动态显示光标框到达的单元格的编号，当显示20340时停止，这样203考场的座位号就编好了（如图3）。

应用VBA轻松编排考试试场【摘要】为了防止学生考试时作弊，有利于班级的管理和教学，本文结合自己的工作经验总结出了一种科学合理地安排考试试场的方法，每次考试编排试场时考生单人单桌，考生座位随机编排，而且前后座位不是同班的同学，同时打印出贴在试场桌子的考生标签。

【关键词】随机函数；四舍五入函数；VBA代码；主要关键字；排序为了尽量防止考生考试时作弊，得到考生比较的真实的成绩，每次考试学校都要求编排试场时学生单人单桌，而且前后座位不能是同班的同学，同时打印出贴在试场桌子的考生标签。

为此笔者在Excel中用VBA代码轻松实现了学校的要求。

一、试场安排表的设置试场安排表设有“班别”、“人数”、“桌子数”、“试场”、“考生人数”共五列，由于我校是俩学生同坐一张课桌，可以利用四舍五入函数取得桌子数：ROUND （B2/2，0），根据桌子数安排考生人数。

二、贴班级教室表的设置1、思路：分别以随机数和班级为关键字段进行排序，确保每次考生座位随机编排，为了防止前后座位是同班的同学，以人数最多的班级为准先给“贴班级教室”表中的考号赋临时值，按照先排奇数考号再排偶数考号，然后按“考号”字段排序，即可实现同一个班的考生的考号不连续。

最后根据“试场安排表”的顺序给考生赋连续的考号和对应的试场教室。

2、代码：（1）右击工作表标签，在出现的快捷菜单中单击“查看代码”，打开代码设计窗口。

（2）在代码窗口中执行命令“插入/模块”，插入模块1。

（3）录入代码如下：Sub Macro1（）Application.ScreenUpdating = FalseDim i As Integer ’定义整型变量用于循环操作Dim j As Integer ’定义整型变量给“贴班级教室”表中的考号赋临时值Dim n As Integer ’定义整型变量给“贴班级教室”表中的考号赋值Dim k As Integer ’定义整型变量定位写入的单元格Dim mj As Integer ’定义整型变量输入人数最多的班级的人数Dim row1 As Integer ’定义整型变量存放“试场安排”表的行数Dim row2 As Integer ’定义整型变量存放“贴班级教室”表的行数Dim y As Integer ’定义整型变量存放“试场安排”表中考生人数Dim c As String ’定义字符串变量存放“试场安排”表中试场教室Dim s As String ’定义字符串变量存放按考号进行排序时的右下角单元格标记’以下代码分别以随机数和班级为关键字段进行排序Sheets（”贴班级教室”）.Selectrow2 = Sheets（”贴班级教室”）.[a1].CurrentRegion.Rows.Counts = “F” + Trim（Str（row2））Range（”A1”）.SelectRange（”A2：” + s）.Sort Key1：=Range（”F2”），Order1：=xlAscending，Header：= _xlGuess，OrderCustom：=1，MatchCase：=False，Orientation：=xlTopToBottom，_SortMethod：=xlPinYin，DataOption1：=xlSortNormals = “E” + Trim（Str（row2））Range（”A1”）.SelectRange（”A2：” + s）.Sort Key1：=Range（”C2”），Order1：=xlAscending，Header：= _xlGuess，OrderCustom：=1，MatchCase：=False，Orientation：=xlTopToBottom，_SortMethod：=xlPinYin，DataOption1：=xlSortNormal’以下代码用于在“贴班级教室”表中给各班级考生的考号赋临时值mj = InputBox（”请输入人数：”，”人数最多的班级”）1、思路：把前面生成的“贴班级教室”表复制两份，分别改名为“贴试场门外”表和“贴试场桌”表，贴试场的桌子的标签要求要有栏头和分割线，首先在“贴试场桌”表第一行插入一空行，再此设计好分割线，然后从第一个考生记录开始在后面插入两个空行，并把第一行的“分割线”和第二行的“栏头”复制到插入的两个空行中，删除最后一行多余的栏头和第一行的“分割线”以便方便排版打印2、代码：（1）右击工作表标签，在出现的快捷菜单中单击“查看代码”，打开代码设计窗口。

如何利用excel来排考场座次表排考场座次表对于一个学校来说是一件再简单不过的事情啦，对于一般的小考什么的，要排一个座次表那是一件很容易办成的事，因为所排的座次表不要求排成蛇形，但每所学校每年都面临着许多的大考，如：中考、会考、联考、高考，这些考的座次表主要是要排成蛇形，这样就面临着如何将部分学生的顺序倒过来排的问题，以及如何来提高工作效率和所排座次表的准确性呢？本人就有一种方法（用excel来排考场座次表）已经用了几年，总觉得还可以，因此特向大家推荐。

一、准备工作
首先要准备好用来排座次表的学生的名单，并将他放入电子表格中的一工作表中如下图：
二、在一张新的工作表中排好一个考室的座次表：
三、在sheet2中作好与sheet1的链接，在其中的学号下面的第一个格子中输入所需的函数INDIRECT（此函数为返回指定单元格中的值），并将函数的格式设置为=INDIRECT("Sheet1!A2")，并将sheet2中的座次表设置为如下格式：
然后用同样的方法将整个座次表全部排好并设置好，如下图：
四、在完成以上工作以后，我们就可以打印座次表啦，接下来我们打印第一
考室的座次表，当打印完第一考室的座次表后，我们只要直接将sheet1中的前1至30号的学生名单册除掉，那么在sheet2中就会很自然的出现第二考室的学生的名单，如图所示：
用同样的方法打印一张就册除一张，我们可以将整个学校本次考试的所有学生名单全部排出来并打印好。

这样排座次表的话，一来可以节省不少的时间，二来可以保证排座次表的过程中不会出现差错。

以上是本人的一点点经验以共大家参考，有不足之处还请同行们加以指正。

Excel实际应用2例：学生分班和编排考场在学校里经常会遇到给学生编班、安排考场这样的工作，这些事看似简单，可实际操作的时候非常繁琐：编班的时候要充分考虑分配的平均、合理，考试安排既要利用好每一个考场，还要让不同年级的学生穿叉编排，有的考试还要打印考条。

如果学生多的话，手工搞极为艰苦。

当然有这方面专门的软件，像“科利华学校管理套件”、“黑马学校办公系统”等等。

不过这些软件虽然功能强大、专业对口，可身价昂贵，动辄几千上万元，非一般普通中小学所能承受（没办法，中国的教育总是和贫困联系紧密）。

好在我们还有Excel和Access（本文中使用的是Office 2003），再加上你读到了这篇文章，问题就变得不那么可怕了。

（一）分班准备：建立一个Excel数据表，注意一定是两维的表格，中间不要插入其他信息破坏数据结构。

这里我们假设要分六个班，分班依据是入学考试的成绩。

为了力求平均分配学生到六个班里去，我们采用“之”字形的分配原则，也就是说总成绩第1—6名分别对应到1—6班中去，然后7—12名反过来对应6—1班。

这样的分配的目的是使最终分配到各班学生的总分数最接近。

具体操作如下：Step1 选定全部数据单元格，用“排序”、“按总分”，选择“升序”，在“名次”单元格中拖动填充编号（如图1），这里不使用“RANK（）”函数的原因是因为“RANK（）”函数会产生并列的名次，使下一步操作出现错误。

Step2 在“班级”一列中输入公式：“IF(MOD(L2-1,12)<6,MOD(L2+1,12)-1,12-MOD(L2-1,12))”。

说明：使用“MOD （）”求余函数，产生1—12的序列，然后利用IF函数将7—12名逆序排列。

-1、+1都是为了绕开余数为0的情况（“序号”列为2列）。

（二）考场安排准备：建立Excel数据表，输入需要编排考场的学生信息，同样注意数据的结构。

（注：如果已经建立了学生档案数据库，那就更方便了，可以直接向Excel 中导入数据，一般纯文本文件.TXT或用FoxPro、Access建立的.mdb数据库文件都可直接导入到Excel中。

Excel函数公式：含金量超高的用Excel自动化分考场、分班实用技巧随机数，在我们的日常生活中也有其广泛的应用，例如，考场的分配，班级的分配等等。

一、利用随机数技巧自动化分考场。

1、准备考生信息表，并添加辅助列。

播放GIF2、生成随机不重复序号并排序。

播放GIF方法：1、在辅助列1 中输入公式：=RAND并双击填充柄，填充其他目标单元格。

2、Ctrl+C快捷键复制辅助列1中的随机数单元格，以【值】的形式粘贴到辅助列2中的目标单元格。

3、在【随机不重复序号】列中输入公式：=RANK(H3,H:H)并双击填充柄，填充其他目标单元格。

4、以【随机不重复序号】对数据进行【升序】排序。

3、生成考场号。

播放GIF方法：1、在目标单元格中输入公式：=IF(I3<><><><><>2、双击填充柄填充其它列。

解读：1、此公式以25人的标准考场为计算数据。

如果随机生成序号小于等于25，返回1，否则重新判断，如果小于等于50，返回2，以此类推，有多少个考场，循环多少次。

每循环一次，判断的值增加25。

2、如果结余人数不够一个考场人数，自动分配到下一考场。

如52人分为1、2个标准考场，一个第3考场。

二、利用随机数技巧自动化分班级。

其实分班和分考场的道理类似，只是班级和考场的人数不同而已。

播放GIF方法：在目标单元格中输入公式：=IF(I3<><><><><>解读：示例中以45人为标准进行分班。

可以根据自己的实际情况进行调整哦！结束语：本文主要讲解了关于分考场和班级的实用性操作技巧，你Get到了吗？学习过程中如果有任何问题或疑问，欢迎大家在留言区留言讨论哦！。

对于一名班主任来说，给学生排座位是常常要做的事。

但一个班三四十个学生，排位时得照顾到方方面面，如果按照常规手工编制排位表的方法，不但工作量大，而且缺乏科学性。

其实利用Excel只要轻点鼠标就能完成学生的排位工作，下边笔者就给大家介绍一下如何来实现第一步启动Excel 2003（其他版本操作类似），新建一个名为“排座位”的工作簿，在这个工作簿中主要包括两个工作表——“学生名单”和“座位表”，先在“学生名单”工作表中输入学生的一些基本信息，最后再添加一个“排位”按钮（如图1）。

（图1）第二步“排座位”工作簿“学生名单”工作表中的学生数据输入完毕后，以“身高”或者“视力”为标准对输入的学生数据进行升序排序。

具体方法是：先选中“身高”或者“视力”所在的某列单元格，然后单击工具栏中的“升序排序”按钮，在弹出的“排序警告”窗口中单击“排序”按钮即可。

第三步按下“Alt+F11”快捷键，调出“Visual Basic 编辑器”，在“Visual Basic 编辑器”窗口中，右击“ThisWorkBook”，选择“插入→模块”命令，插入一个模块，并在右边的代码窗口中输入以下代码：复制代码代码如下:Sub paizuo()Sheets("座位表").Select '激活“座位表”工作表Dim Group As Integer '定义表示组数的变量GroupGroup = Val(InputBox("本班学生分为几组?")) '将输入的数字赋给变量GroupZuoci (Group) '调用Zuoci函数对学生进行排座Sheets("座位表").SelectEnd SubSub Zuoci(gro As Integer)Dim i As Integer, j As Integer ' 定义循环变量Sheets("学生名单").Select '激活“学生名单”工作表Dim Irows As Integer, Icols As Integer, Ixs As Integer '定义“座位表”行变量，列变量，及"学生名单"学生行变量Irows = 60 / gro '初始化行变量Icols = gro '初始化列变量Ixs = 1 '初始化“学生名单”学生行变量For i = 1 To Icols '第一位学生自第2行开始Ixs = i + 1For j = 2 To Irows + 2Sheets("座位表").Cells(j, i) = Sheets("学生名单").Cells(Ixs, 1) '给座位表赋值Ixs = Ixs + gro '下一个学生为当前第gro个学生Next jNext iEnd Sub代码输入完毕后，退出Visual Basic 编辑器。

Excel助力学生随机考场安排作者：闫智飞来源：《电脑爱好者》2018年第13期开始之前做一些准备工作：先创建一个Excel电子表格（本例为“四年级花名册.xls”（图1），然后为每个班都创建一个工作簿，并以班级来进行重命名，再将每个班所有学生的“学生班级”、“学生姓名”和“学号”等信息，复制到对应的工作簿中备用即可。

接下来生成各不相同的随机自然数。

创建一个名为“随机不重名.xls”的电子表格（图2），在C1单元格中输入函数“=RAND（）”（不包括最外侧引号，下同），将该单元格的字体颜色设置为白色。

再选中C1单元格，并拖动填充手柄至C69单元格，最后在A1单元格输入函数“=RANK（C1，$C$1：$C$69）”，拖动填充手柄至A69单元格，以获取69个各不相同的自然数。

现在对学生进行排序。

选中图2所示的A1～A63单元格中的所有数据（假设一班有63人），然后复制下来。

再将其粘贴到图3所示的D2～D64单元格，再选中D列单元格，单击菜单“数据→排序”。

这样一来，就把四年级一班的所有学生名单给随机打乱了（图3）。

关闭“随机不重名.xls”并保存对其所做的修改，然后重新打开它，大家可以发现A1～A69这69个单元格的数据又重新随机生成了一次且各不相同。

然后根据二班人数的多少（如62人），复制A1～A62相应单元格中的数据，粘贴到图3所示的工作簿“二班”中D2～D63单元格，将二班的学生进行排序，以实现随机打乱的目的。

再按照这个方法，将“三班”、“四班”、“五班”和“六班”这四个班级的学生名单随机打乱，最后保存对“随机不重名.xls”所做的修改即可。

从h t t p s ： // p a n . b a i d u . com/s/1JHnPMFHRxSALK1C6TPUcA下载笔者所提供的“考场安排.xls”，然后打开它。

再分别复制图3所示的各个工作簿中与所有学生有关的“学生班级”、“学生姓名”、“学号”这三类信息，粘贴到“考场安排.xls”电子表格“学生信息”下面的空白单元格内（A列、B列和C列中的学生信息）（图4），再在图4所示的S2单元格内设置好每个班分配考生的人數（如64人）。

Excel智能安排考试座位和考场座签方法期末考试临近了，又到了我们教师忙碌的时候，例如安排考试座位，经过多次实践我找到了一种智能安排考试座位的方法，来跟大家分享一下。

收集全体学生资料在编辑考试座位表之前，必须先收集学生基本资料，一般来说每个班主任都有这样的资料，然后新建一个工作簿，命名为“2010年南开中学三年级期末考试座位表.xls”，在其中新建一个工作表“参考学生资料”，将三年级所有参加期末考试的学生资料复制到这个工作表中，再在D2、E2中输入考场号、座位号(图1)。

一般来说，中小学考试用不到准考证号，但各种会考、升级考试、四六级英语考试等用得到，因此大家要根据自己的实际情况设置选项。

图1接下来根据考试要求(我们这里是同一个班的学生不能相邻)，将学生的次序打乱。

在F2中输入随机数值，在下面的F3中输入公式“=RAND()”，并将此公式复制到下面的单元格中，这样每个学生的F单元格中都有一个随机数值，例如0.5522446。

再选定F列，执行“数据”?“排序”命令，按照升序或者降序排列，将学生原有的按照班级排列的次序彻底打乱。

如果一次排序后，还有同班相邻的情况，可以再进行一次排序，一般来说，两次排序后就不会出现同班学生相邻的情况了。

编辑座位表模板在将学生次序打乱之后，就可以给每个学生安排考场以及座位号了。

这个步骤需要根据不同学校的考场情况而定，例如我们学校每个考场安排的是30名学生，所以我在第一个学生考场号D3中输入公式“=INT((ROW()-3)/30)+1”，座位号E3中输入- 1 -“=MOD((ROW()-3)，30)+1”，再将这些公式复制到下面单元格中，自动为每个学生分配对应的考场号以及座位号。

然后新建一个工作表“考试座位表”，在其中输入座位表标题，按照学校教室的布局，编辑30个学生个人座位小表格，例如考场分3排、每排10人，其中每个小表格包括准考证号、姓名、班级、考场号、座位号等内容。

怎么在excel中给座位号编排
每当考试给学生编排考场最好用的工具EXCEL，当然要充分利用EXCEL的函数功能了，简单实用，无论多少考场，座位号有这一招就行，下面小编教你怎么在excel中给座位号编排。

excel中给座位号编排的步骤：
打开EXCEL，可以直接打开一个排考场用的名单表!
在第一行输入依次输入专业、班级、姓名、考场号、座位号，然后把考场号填充一下，我随便输入的!
选中E2单元格，准备输入公式“ = IF(D2<>D1,1,E1+1) ”;
公式含义就是如果E2左侧的考场号D2与D1不等，那么这个考生的座位号就是1号，反之他的座位号等与他上一个考生的座位号+1。

输入完成按 ENTER。

再次选中E2单元格，把输标放在E2单元格右下黑点，按住鼠标向下拉!
OK，座位号就全部输入完成，是不是很简单呢!
考场号是不是也可以这样做呢，且看EXCEL函数公式自动排考场之二：考场号的编排。

Excel实现考场编排的几种方法作者：张久庆来源：《中国教育信息化·基础教育》2010年第12期摘要：实现考务管理的信息化、现代化是当今各类招生考试机构及学校教务部门面临的共同课题，文章在总结了几种计算机编排考场算法的基础上，充分利用Excel的易操作性及内置的VBA编程特性，提供了三种利用Excel工作表数据进行考场自动编排的实现方法。

关键词：考场编排；排考场中图分类号：G202文献标识码：B文章编号：1673-8454（2010）24-0051-04利用计算机程序进行考场编排，快捷、方便、高效、公平，是很多考务人员进行考场编排首选的通行办法。

但由于绝大多数编排程序都是一些专用软件，或者需依托数据库管理系统平台才能运行，对考务人员的计算机应用水平提出了更高的要求，同时也将一部分计算机基础比较差的同志拒之门外。

在对当前比较流行的考场编排算法进行分析研究的基础上，考虑到Excel电子表格软件应用普及率较高，许多办公人员都能熟练操作，笔者认为运用Excel内置的VBA（Visual Basic For Application程序设计语言）进行简单编程、实现考场编排不失为一种值得推荐的做法。

使用VBA操作Excel中的数据，可以将其工作簿中的多个工作表作为关系型数据库中的数据表来操作，甚至不需要打开工作簿也可以读取工作表中的数据。

要实现上述操作，就要用到微软提供的访问数据库的ADO（ActiveX）数据对象模型，透过OLE-DB编程接口对数据表进行存取查询等操作。

要在VBA中使用ADO，首先需要在Excel的VBA编程环境中设置对ADO的引用，在VBA项目窗口中单击工具菜单中的“引用”，在弹出的窗口中选择Microsoft ActiveX Data Objects 2.8，点击确定。

如果本应用程序可能要在低版本的Excel中运行，则要考虑使用低版本的ADO library，以提高兼容性。

一、考场编排前期数据准备工作编程环境使用Excel2007，文件存贮格式采用2007启用宏的工作薄文件（XLSM扩展名）或者Excel97-2003（XLS扩展名）工作薄文件。

考试座位编排vba考试座位编排vba程序开发的准备在开发⼩程序前，⾸先要了解“缅茄杯”对座位编排的具体要求。

“缅茄杯”的考⽣来⾃⾼州市61所初级中学（每所中学的考⽣⼈数由3到400不等，总⼈数1848）。

每个试室⼈数限额是30⼈，按5组6⾏编排。

考⽣的座位是随机的并且来⾃同⼀个学校的考⽣的座位前后左右都不能相邻。

其次选⽤⼀个好⽤的开发软件，本⼈就⽤⾃⼰⽐较常⽤的“VB”。

程序的开发程序的开发，是最重要的，⽽且⼜是最艰难的⼀环⼯作，主要⼯作是代码的编写，它要求“算法”精简优化，操作简单，通⽤好⽤，这⾥我按以下⼏部分进⾏设计。

⼀、数据的导⼊“缅茄杯”的考⽣在报名时，是由学校统⼀上送的。

上送的名单是⽤“EXCELL”格式的⽂件上送的，考⽣的详细信息如下图所⽰：为此程序的第⼀部⼯作是完成考⽣基本数据的导⼊。

其代码编写为：Dim ap As Excel.ApplicationDim bk As Excel.WorkbookDim st1 As Excel.WorksheetSet ap = CreateObject("Excel.Application")cd.DialogTitle = "打开EXCEL⽂件"cd.Filter = "*.xls|*.xls"cd.ShowOpenIf cd.FileName = "" Then MsgBox ("⽂件不能为空"): Exit SubSet bk = ap.Workbooks.Open(cd.FileName)Set st1 = bk.Worksheets(1)cols = 1rows = 1'cells(⾏，列)With st1Do Until .Cells(rows, 1).Value = ""'表格⾏数rows = rows + 1LoopEnd Withrenshu = rows - 2For i = 1 To renshub(i) = Trim(st1.Cells((i + 1), 1).Value)c(i) = Trim(st1.Cells((i + 1), 3).Value)xb(i) = Trim(st1.Cells((i + 1), 4).Value)Next ibk.Closeap.QuitSet ap = Nothing⼆、座位的编排这是程序开发的中⼼环节，我设计的思路简单描述是这样的：先为每个学⽣添加⼀个各不相同的随机数字（⼀⾄考⽣总⼈数，这⾥就是1～1848），再把考⽣按这些随机数按升序的顺序排列，依次编排到第⼀个试室⾄最后⼀个试室的1～30的座位中，然后按试室和座位的顺序对每⼀个考⽣进⾏检查，检查他的前后左右是否有同学校的考⽣，如果有则对他进⾏调整。

利用EXCEL进行考务管理江苏省灌南县第三中学陆仕军（222500）众所周知，“教学是学校的主要职能，而教学质量是学校的生命线”。

在目前的学校中，教务处是最忙的部门。

而在初中学校中，考试是每个学校每学期都要进行的大事，每次考试，尤其是到了大考，班主任和教务处总是非常繁忙。

从考试的组织、考场的安排、到考试成绩的录入、各科考试成绩管理以及质量分析的问题，而后，在考务这块，还要处理许多后续的问题。

比如，各年级第一学期的分班问题，要力求做到班级与班级之间学生的各科平均分基本一样，好生和落后生的比例也基本一样；对每个课任教师进行教学质量评估；对各个班级总体成绩的评价……在以往的考试中，从学生考场的安排到成绩的分析，基本都是手工操作，费时费力，而且容易出错。

在此，笔者结合十多年的考务管理经验，引用EXCEL在考务管理上作出一点尝试：一、考场安排我们学校学生考试的考场与座位号都是动态的：从新生入学考试开始，我们先通过摸底考试，按其考试成绩从高到低进行排序，分班就采用循环排，因此在下次考试中就按其顺序编排考试考场与座位号，这样保证了在同一考场学生成绩差不多，而且相邻前后不出现同一班级学生，从而保证考试的公平性。

而每次考试结束后，我们就会根据前次考试成绩对学生考场座位进行调整，原则是：既保证同场考生学习水平基本一致，又能使每个考生前后左右都不是同一班级的考生，通过这样不断调整，基本上克服考试过程中的诸多作弊现象。

而在此过程中，利用EXCEL很容易实现这种效果。

只要把每次考试成绩从高到低排序，再根据现有考场数确定每场考生数，然后直接从1号编到尾号，当然对每场考生也要作微调，避免同一班学生相邻，这样就生成了考生来源表，而只要再按班级排序就又生成了考生去向表，每次考试前把去向表发给各班级，学生就清楚自己的考场与座位了。

二、监考表编排在监考表编排过程中，一般要注意三点：一是要回避自己所任教学科，二是要回避自已所任教班级，三是各位老师监考场次要相对合理。

Excel 公式和函数 典型案例－随机分配考场和考号每个学校在进行考试之前，必然要将各班的学生分配到不同的考场当中，以避免熟识的同学之间存在作弊行为。

利用Excel 中的随机函数，不仅可以将学生随机分配到不同的考场当中，还可以得出每位学生的座位号码。

1．练习要点● 使用RAND 函数 ● 排序● 使用INT 函数 ● 使用MOD 函数 2．操作步骤：（1）合并B2至H2单元格区域，输入标题文字，并设置字体格式。

然后，在B3至H3单元格中分别输入各字段名，并输入学生的学号、姓名和班级，创建“考场分配表”的基本信息，如图13-57所示。

图13-57 创建基本信息表提 示 本例是要求将124名学生随机分配到多个考场当中，并分配各学生的座号。

（2）选择B4单元格，在【编辑栏】中输入“=RAND()”公式，并按Enter 键。

然后，向下拖动B4单元格中的填充柄，将公式复制到B127单元格区域，如图13-58所示。

图13-58 生成随机数创建数据表输入效果显示提示利用RAND函数，为每位学生创建一个随机数，这样即可利用该随机数将学生的班级打乱。

（3）选择B4至B127单元格区域，单击【编辑】组中的【排序和筛选】下拉按钮，执行【升序】命令，即可将学生的班级打乱，如图13-59所示。

图13-59 排序注意执行【升序】命令后，将弹出【排序提醒】对话框，在该对话框中，保持默认选项。

（4）分别在F4至F127单元格中，输入0、1、2、3……数字，直到最后一名学生为止。

然后，选择G4单元格，在【编辑栏】中输入“=INT(F4/25)+1”公式，并按Enter键，即可得出第一名学生的考场号，如图13-60所示。

图13-60 第一名学生考场号提示该公式表示每个班级将随机分配25名学生，其中INT函数是取整函数。

将该公式向下填充，即可产生各学生的考场号。

（5）选择H4单元格，在【编辑栏】中输入“=MOD(F4,25)+1”公式，并按Enter键，即可得出第一名学生的座号。

Excel在学校中的应用21-考场座位安排表——随机安排考场座位号3.9 考场座位安排表——随机安排考场座位号案例背景无论是中小学还是大学在组织考试时，布置考场都要安排单行独座（随堂测验除外），考试座位号S型排列，并且每个学生的考试座位号是随机抽取确定的，监考教师拿着随机安排考场座位安排表，提前进入考场后将“考场座位安排表”贴在教室门上以便学生查看，学生根据随机安排的座位号在制定位置参加考试。

考场座位安排表的考试座位号是如何随机抽取的呢？安排考试座位号有什么要求呢？首先要根据考场中准备实际安排的考生数抽取座位号，要求不重不漏，第二是由计算机随机抽取。

本案例就以某个班级的30名学生为例，为每个学生随机安排考试座位号，通过学习本案例后您就可以自己制作考场座位安排表为您的学生随机安排考试座位号了。

关键技术点要实现本案例中的功能，学员应该掌握以下EXCEL技术点。

●基础知识选择性粘贴的“转置”功能●函数应用 RAND，CEILING函数的应用 LARGE，ROUND ，COUNTIF，ROW函数的应用●综合应用函数嵌套数组公式公式审核——公式求值最终效果展示3.9.1创建考试座位表Step 1创建工作簿、重命名工作表创建工作簿“考试座位表.xls“，然后将工作表重命名为”座位表“，并删除多余工作表。

Step 2输入“考试座位表”表格表格标题和字段名在单元格A1输入表格标题“考试座位安排表”，选中单元格区域A1:C1，并单击“合并及居中”按钮。

字体、字型、字号设置为黑体加粗16号，并适当调整列宽。

在单元格区域A2：C2分别输入“学籍号”，“姓名”和“座位号”。

字体、字型、字号设置为标宋14号，居中显示。

Step 3输入学生学籍号和姓名在单元格区域A3:B32输入本班30名学生的学籍号和姓名。

Step4随机确定座位号①在单元格C3输入如下公式，然后按键确认。

“=ROUND(RAND()*50,0) ”②在单元格C4输入如下数组公式，按组合键确认。

巧用Excel VBA 快速编排考场试场的基本原则考场编排的基本原则是：公平、公正、严肃。

具体来说，要做到以下几点：1.同级各班考生被重新随机排序后基本均匀地散布到各个考场；2.同一考场内同一班的考生前后左右均不相邻；3.考场内座位号按照一定的规律排列，方便考生就座和监考人员管理；4.考场内的座位表和桌贴清晰明了，易于查看和管理。

二、利用Excel VBA编排考场座位的步骤1.准备考场编排数据，包括各班级人数、考场数量等信息；2.创建Excel工作表，将考场编排数据录入其中；3.编写VBA程序，实现考场编排功能；4.运行VBA程序，生成考场座位表、桌贴等。

三、VBA程序实现考场编排的方法1.定义VBA数组，存储考场编排数据；2.利用随机数函数，实现同级各班考生随机排座；3.利用循环语句，实现同一考场内同一班的考生前后左右均不相邻；4.利用Excel的打印功能，生成考场座位表、桌贴等。

四、考场编排的注意事项1.在编排考场时，要考虑各班级人数、考场数量等因素，确保每个考场人数基本均衡；2.在编写VBA程序时，要注意程序的逻辑性和可读性，避免出现错误；3.在生成考场座位表、桌贴等时，要注意格式的美观和清晰，方便考生和监考人员查看和管理。

通过巧用Excel VBA编排考场座位，可以快速、准确地实现考场编排，从而保证考试的公平、公正及其严肃性。

同时，这也是一项非常实用的工作技能，对于学校教育工作者和管理人员来说，具有重要的参考价值。

在中高考中，每个考场一般有30名考生，但实际情况可能会出现考场人数、组数和每组人数各不相同的情况。

因此，在编排考场之前，工作人员需要将考生花名册（必须包含班级信息）录入花名册工作表，将考场基本信息（必须包含考场号、各组人数等）录入考场设置工作表中。

在编排考场时，为了保证考生既随机分布，又均匀分布，程序设计中多次使用了随机编排。

首先是班级内部考生的随机编排。

程序在辅助列G中为学生生成一次随机数，然后按照班级和随机数为关键字段进行排序，实现班级内学生顺序的随机性。

怎样用excel自动布置考场（图解）怎样用excel自动布置考场（图解）对于专业的考试机构来说，由于经常组织考试，一般都有专门的考试考场布置软件，可以自动地安排考场、座位、准考证号。

其实，用excel也可以非常方便快捷地自动完成考场布置的任务。

下面就让我们看看怎么样做。

一、考场条件设置：二、函数说明：对于excel的函数来说，完全可以在其自带的“函数说明”中查到。

关键是你怎么知道在什么时候用什么函数？这需要通过许多实例来学习，本文就是一个应用的实例。

例如：自动生成考场号的公式“=RIGHT(REPT(0,2)&TEXT(ROUNDUP((ROW()-1)/30,0),0),2)”怎样看懂这个公式？首先，从最里面的函数看。

哪一个是最里面的函数呢？看括号，一层一层往外看。

从里向外依次是：Row()－得到当前行的行号，是一个数值。

(Row()-1)/30--就是将当前行数减去表头行数，然后再除以考场人数。

Roundup()--将括号里的数向上进位，保留整数。

即每增加30人考场数自动加1例如：Roundup(0.033)=1Roundup(1.003)=2Text()__将数值转换成对应的字符。

例如：将数值5转为字符5。

&__将&前后的字符串连接成一个字符串。

例如：“00”&“12”=“0012”Rept()__重复产生字符。

例如：Rept(0,2)=“00”即重复产生2个0。

可简化。

Right()__从右往左截取字符串。

例如：Right("abcdef",2)=ef 即右取2个字符。

再来看自动产生座位号的公式：与上面产生考场号的公式有所不同，增加了下面的函数：Mod()__两数相除取余数，我们通常叫两数取模。

例如：Mod(305,30)=5IF(，，)__这是一个判断取值的函数。

例如：IF(MOD(ROW()-1,30)=0,30,MOD(ROW()-1,30))意思是，当行数减1跟30相除的余数如果是0，则IF()=30，否则IF()的值是就是两数的模。