基于Excel VBA设计的对口中职招生面试专家组随机抽签系统

苏永瀚　胡晓熙　王　芸　许素芬　邓建飞　张艳军

摘 要 本文介绍了基于Excel VBA设计的对口中职招生面试专家组随机抽签系统，该系统所有操作都在Excel中进行，简单实用，实现了考务工作中的“公平、公正、公开”原则下的规范操作，该系统的应用将对口中职招生面试考务工作管理信息自动化提升了一个更高的层次。

关键词 VBA 对口中职招生 面试 抽签系统

中图分类号：TP311 文献标识码：A

近年来，为深化落实国家民族地区职业教育综合改革试验区建设方案，加快本科层次高等职业教育发展，构建中等职业教育与本科层次高等职业教育的衔接贯通制度，推动高校招生模式改革，在普通本科院校开展对口自主招收中等职业学校毕业生的试点工作在各地全面铺开。因每年的招考工作关系到广大中职生是否能继续深造的前途命运，使这个俗称为 “小高考”应试日益受到社会的关注及重视，这对我们的招生考务工作提出更高、更严的规范标准，其中，规范考务工作的操作流程，考官们在开考前要进行抽签随机确定考场，则显得尤为重要。笔者根据在一线考务工作的实践经验，不断地自我摸索与学习，结合考试中的考务要求，基于Excel2010的VBA强大的宏功能进行多次实践，研发出服务于对口中职招生面试专家组的随机抽签系统。

1考务随机抽签系统必要性

为了保证考试的公平和公正，避免考前由于人为因素导致考官出现的违规现象的发生，考官人员的面试场次一般是在考前通过“考场临时抽签”的方式决定的。相信有过监考经历的人都知道，传统的抽签环节一般采用纸条抓阄方式，而在考前时间紧凑、抽签人员众多的环境下，如何能确保抽签的结果能快速记录、准确统计，并对抽签人员高效有序地组对，避免整个考务办乱成一团粥的现象，则是我们考务工作人员在考试中极为棘手解决的头痛问题。

2考务随机抽签系统的设计

该系统由5个模块构成，利用极为方便的职工号或流水号作为唯一的识别主键值，实现数据的检索、赋值及输出，实现抽签功能：

2.1系统界面模块

2.1.1建立一个启用宏的工作簿

打开Excel2010，在“开发工具” 面板中， 我们单击“宏安全性”在“宏设置中选择“启用所有宏项”。关闭整个Excel2010， 再次重新启动， Excel2010宏设置生效。并在保存时选择“另存为”，保存类型选择“Excel启用宏的工作簿”，这时会得到一个“XX学校抽签系统.xlsm”文件，当工作簿中包含宏代码时，选择这种类型的扩展名。Visual Basic for Applications（简称VBA） 是新一代标准宏语言，可以在所有的Microsoft可编程软件之间共享， 具有跨越多种OFFICE应用软件并且控制应用软件对象的能力。启动Excle2010后，在“功能区”空白处单击鼠标右键，在弹出的快捷菜单中选择“自定义功能区”命令，在打开的 “自定义功能区”对话框中的“主选项卡”列表框中选择“开发工具”，打开“开发工具”选项卡。单击“Visual Basic”按钮即可进入VBA窗口进行代码的编写。

2.1.2软件界面的美化

把表“Sheet1”修改为“软件界面”，个性化地在利用Excel的表格底色填充、过渡等功能，根据自己的喜好进行软件界面的美工设计，并在“页面布局”中取消“网格”与“标题”的勾选，简化软件界面的布局。同时在ThisWorkbook输入下面宏命令，实现打开该文件时就响应屏蔽菜单栏的事件，使整个软件屏幕更清爽：

Private Sub workbook_open（）

Application.ExecuteExcel4Macro "SHOW.TOOLBAR（""Ribbon""，False）" '隐藏菜單

With Sheets（"软件界面"）

.ScrollArea = "L12：N12"

End With

End Sub

其中，利用.ScrollArea的属性进行锁屏，除职工号输入区域L12：N12以外的地方不能操作修改。

图1：软件界面

2.1.3软件界面的事件触发响应

最后，对该界面进行一个事件触发响应的宏命令，实现当在该软件区域L12：N12区域输入相应的数据，回车高效地进行甄别响应并启动相应的宏命令，进而一下步的抽签数据匹配。宏命令代码如下：

Private Sub Worksheet_Change（ByVal Target As Range）

If Target.Address（0， 0） = "L12" And Cells（12， 12） <> "" And Cells（12， 12） Then

Call 抽签

End If

End Sub

2.2数据源表读取模块

（1）建立一个“数据源表”工作表，列标题与内容分别为：

“职工号”列，用于存储原先已编排好数组，属于识别抽签人的主键唯一值，如果考官是本校职工则用职工号，有外来的则用流水号即可；

“主考姓名”列，用于存放安排好需要参加抽签主考官的姓名数据；

“抽签否”列，用于标识该组面试考官是否已参加抽签，对已参加抽签的考官组则赋值为“已抽过”，反之为空值；

“抽签序号”列，用于记录抽签的先后顺序排名；

“抽签时间”列，用于记录抽签人参加抽签的时间值；

“考官组成员”列，用于存放安排好与主考官同组成员的姓名数据；

“抽签时差”列，用于记录主考官抽签的时间与规定的最迟到达时间的差，正数则为按时到达，负数为迟到，单位为分钟（见图2）。

（2）宏命令的编写。

打开“开发工具”选项卡，单击“Visual Basic”按钮即可进入VBA窗口，插入一个模块，进行代码的编写：通过对软件界面工作表中的Cell（12，12）输入值进行判断，符合数据源表中设置的抽签条件，则在该抽签名字相应的行列上赋值：“已抽过”、“抽签时间”、“抽签序号”、“抽签时差”；如果是重复抽签或不存在该抽签号则退出宏，等候输入正确数值（见图3）。

2.3抽签数据存储模块

（1）建立抽签数据存储工作表，列标题与内容分别为：

“考场号”列，用于存储原先已编排考场号数据；

“教室名称”列，用于存储原先已编排好用于面试的考场教室数据；

“主考官”列，用于随机分配存储的抽签考官姓名数据；

“统分员”列，用于存储原先已编排好统分员名单数据；

“组员”列，用于存储抽签考官这个组下面所有的考官组成员（见图4）。

（2）实现该模块功能的宏命令编写。

对产生的随机考场号变量D进行循环判断，与抽签数据存储工作表中的那个考场号相等且还没有按排主考官，符合这两个条件则进行赋值安排主考官及其成员。

2.4抽签数据统计模块

通过建立这个数据统计模块，可掌握考试抽签过程的实时动态数据，记录按时到位或迟到的行为，对按时到位的考官组进行随机安排考场，对没到位的考官组要进行尽快通知与提醒，并统计出抽签人员的抽签时间与规定到位时间的差值、抽签的排位顺序等，并在抽签结果中输出对抽签人员按时到达行为的表扬或迟到行为的警告。其中，时间行为记录代码如下：

（1）对指定的工作表中的抽签人所在的变量第K2行第5列进行赋值当前系统时间：S2.Cells（k2， 5） = Time。

（2）计算出该考官抽签的系统时间与规定的最迟到达时间的差，转换成以分钟为单位并赋值到变量：w = Int（（S2.Cells（1， 6） - S2.Cells（k2， 5）） * 24 * 60）。

（3）用IF语句来判定所给定的条件是否满足，根据判定的结果（真或假）决定执行给出的两种操作之一。判断得到赋值的时间变量是提前到达还是迟到，并在指定的单元格中赋值相应的提示内容，用于输出提醒抽签人：

If w >= 0 Then

S1.Cells（16， 11） = "您是第" & p & "位抽签考官，未抽签考官还有" & R2 - p - 1 & "位。" & Chr（10） & " 对您按时到达参考试工作的行为点赞！"

Else

S1.Cells（16， 11） = "您是第" & p & "位抽签考官，未抽签考官还有" & R2 - p - 1 & "位。" & Chr（10） & " 您已经超过规定时间" & w & "分钟到达，已迟到！"

End If

2.5打印輸出模块

打印输出功能由软硬两个模块组成，通过宏命令对抽签后的指定数据区域进行输出：

str = "$K$13：$N$16"

ActiveSheet.PageSetup.PrintArea = str

ActiveSheet.PrintOut

Application.Goto S1.Cells（12， 12）

而硬件输出模块则通过热敏打印机对输出的数据进行快速打印，实现抽签数据的终端输出，通过热敏打印头提供稳定的模式信号，每个加热点均由电子技术单独控制，在热的不断变化中将热敏纸变色，溶解过后的涂层将在降温过程中与平面紧紧相融，在不断地移动色带、运输色带、重复动作中，实现文本、图像等元素的热敏打印。与其他打印技术相比，热敏打印技术的核心设备热敏打印头结构简单、维护方便，对热敏纸的记录可达到快捷、简洁、高速的特点，确保打印的高精度、高品质。其在POS终端系统、银行系统、医疗仪器等领域得到广泛应用，也极其适用于我们抽签条的快速打印输出。

3考务抽签系统的实践成果

该系统已多次在对口中职招生面试中使用，不但解决了传统的抽签环节耗时、抽签数据统计繁琐等问题，而且确保抽签的结果能快速记录、准确统计，并对抽签人员高效有序地组对。多次实践证明，一个监考人员从报号抽签输入到从热敏打印机拿到抽签条仅用时约6秒左右，如果按一个考务办有一百人，完成抽签约十分钟完成，且实时能统计出实到人员与未到人员的数据，效果显著。同时，该系统基于原有的抽签原理，通过改版升级，也可以满足其它各种类型考试的需求，实用性极强。

（通讯作者：胡晓熙）

基金项目：广西职业教育教学改革研究重点项目（GXGZJG2016A086）；广西高等教育本科教学改革工程项目（2016JGA356，2017JGA321）。

作者简介：胡晓熙（1982.10-），男，汉族，湖北武汉人，博士，教授，钦州学院自治区级协同育人平台负责人，研究方向为高等教育教学与考试；王芸（1983.04-），女，汉族，湖北荆门人，博士，副教授，钦州学院石油化工教学实验中心主任、自治区级石油化工实验教学示范中心负责人，研究方向为功能材料制备与应用，化工高等教育教学。

参考文献

[1] 王淏，亢娟娜.基于Excel VBA的监考教师抽取系统设计与实现[J].自动化与仪器仪表，2015（02）：197+200.

[2] 罗昕瑜.热敏打印在电子技术中的应用[J].科技风，2016（12）：65.

[3] 陈广凤，张兴华.广西中职对口升本新生的社会支持与学校适应的关系探析[J].教育教学论坛，2017（47）：241-244.

[4] 刘丹梅，荐芳，浮若兰.应用型本科院校中职升本人才培养模式研究[J].辽宁广播电视大学学报，2016（02）：13-14+44.

[5] 蒋勇.用Excel VBA设计教师监考登记系统[J].长春理工大学学报，2010，5（07）：176-178.