蘇永瀚　胡曉熙　王　蕓　許素芬　鄧建飛　張艷軍

摘 要 本文介紹了基于Excel VBA設(shè)計的對口中職招生面試專家組隨機抽簽系統(tǒng)，該系統(tǒng)所有操作都在Excel中進行，簡單實用，實現(xiàn)了考務(wù)工作中的“公平、公正、公開”原則下的規(guī)范操作，該系統(tǒng)的應(yīng)用將對口中職招生面試考務(wù)工作管理信息自動化提升了一個更高的層次。

關(guān)鍵詞 VBA 對口中職招生 面試 抽簽系統(tǒng)

中圖分類號：TP311 文獻標(biāo)識碼：A

近年來，為深化落實國家民族地區(qū)職業(yè)教育綜合改革試驗區(qū)建設(shè)方案，加快本科層次高等職業(yè)教育發(fā)展，構(gòu)建中等職業(yè)教育與本科層次高等職業(yè)教育的銜接貫通制度，推動高校招生模式改革，在普通本科院校開展對口自主招收中等職業(yè)學(xué)校畢業(yè)生的試點工作在各地全面鋪開。因每年的招考工作關(guān)系到廣大中職生是否能繼續(xù)深造的前途命運，使這個俗稱為 “小高考”應(yīng)試日益受到社會的關(guān)注及重視，這對我們的招生考務(wù)工作提出更高、更嚴(yán)的規(guī)范標(biāo)準(zhǔn)，其中，規(guī)范考務(wù)工作的操作流程，考官們在開考前要進行抽簽隨機確定考場，則顯得尤為重要。筆者根據(jù)在一線考務(wù)工作的實踐經(jīng)驗，不斷地自我摸索與學(xué)習(xí)，結(jié)合考試中的考務(wù)要求，基于Excel2010的VBA強大的宏功能進行多次實踐，研發(fā)出服務(wù)于對口中職招生面試專家組的隨機抽簽系統(tǒng)。

1考務(wù)隨機抽簽系統(tǒng)必要性

為了保證考試的公平和公正，避免考前由于人為因素導(dǎo)致考官出現(xiàn)的違規(guī)現(xiàn)象的發(fā)生，考官人員的面試場次一般是在考前通過“考場臨時抽簽”的方式?jīng)Q定的。相信有過監(jiān)考經(jīng)歷的人都知道，傳統(tǒng)的抽簽環(huán)節(jié)一般采用紙條抓鬮方式，而在考前時間緊湊、抽簽人員眾多的環(huán)境下，如何能確保抽簽的結(jié)果能快速記錄、準(zhǔn)確統(tǒng)計，并對抽簽人員高效有序地組對，避免整個考務(wù)辦亂成一團粥的現(xiàn)象，則是我們考務(wù)工作人員在考試中極為棘手解決的頭痛問題。

2考務(wù)隨機抽簽系統(tǒng)的設(shè)計

該系統(tǒng)由5個模塊構(gòu)成，利用極為方便的職工號或流水號作為唯一的識別主鍵值，實現(xiàn)數(shù)據(jù)的檢索、賦值及輸出，實現(xiàn)抽簽功能：

2.1系統(tǒng)界面模塊

2.1.1建立一個啟用宏的工作簿

打開Excel2010，在“開發(fā)工具” 面板中， 我們單擊“宏安全性”在“宏設(shè)置中選擇“啟用所有宏項”。關(guān)閉整個Excel2010， 再次重新啟動， Excel2010宏設(shè)置生效。并在保存時選擇“另存為”，保存類型選擇“Excel啟用宏的工作簿”，這時會得到一個“XX學(xué)校抽簽系統(tǒng).xlsm”文件，當(dāng)工作簿中包含宏代碼時，選擇這種類型的擴展名。Visual Basic for Applications（簡稱VBA） 是新一代標(biāo)準(zhǔn)宏語言，可以在所有的Microsoft可編程軟件之間共享， 具有跨越多種OFFICE應(yīng)用軟件并且控制應(yīng)用軟件對象的能力。啟動Excle2010后，在“功能區(qū)”空白處單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“自定義功能區(qū)”命令，在打開的 “自定義功能區(qū)”對話框中的“主選項卡”列表框中選擇“開發(fā)工具”，打開“開發(fā)工具”選項卡。單擊“Visual Basic”按鈕即可進入VBA窗口進行代碼的編寫。

2.1.2軟件界面的美化

把表“Sheet1”修改為“軟件界面”，個性化地在利用Excel的表格底色填充、過渡等功能，根據(jù)自己的喜好進行軟件界面的美工設(shè)計，并在“頁面布局”中取消“網(wǎng)格”與“標(biāo)題”的勾選，簡化軟件界面的布局。同時在ThisWorkbook輸入下面宏命令，實現(xiàn)打開該文件時就響應(yīng)屏蔽菜單欄的事件，使整個軟件屏幕更清爽：

Private Sub workbook_open（）

Application.ExecuteExcel4Macro "SHOW.TOOLBAR（""Ribbon""，F(xiàn)alse）" '隱藏菜單

With Sheets（"軟件界面"）

.ScrollArea = "L12：N12"

End With

End Sub

其中，利用.ScrollArea的屬性進行鎖屏，除職工號輸入?yún)^(qū)域L12：N12以外的地方不能操作修改。

圖1：軟件界面

2.1.3軟件界面的事件觸發(fā)響應(yīng)

最后，對該界面進行一個事件觸發(fā)響應(yīng)的宏命令，實現(xiàn)當(dāng)在該軟件區(qū)域L12：N12區(qū)域輸入相應(yīng)的數(shù)據(jù)，回車高效地進行甄別響應(yīng)并啟動相應(yīng)的宏命令，進而一下步的抽簽數(shù)據(jù)匹配。宏命令代碼如下：

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數(shù)據(jù)源表讀取模塊

（1）建立一個“數(shù)據(jù)源表”工作表，列標(biāo)題與內(nèi)容分別為：

“職工號”列，用于存儲原先已編排好數(shù)組，屬于識別抽簽人的主鍵唯一值，如果考官是本校職工則用職工號，有外來的則用流水號即可；

“主考姓名”列，用于存放安排好需要參加抽簽主考官的姓名數(shù)據(jù)；

“抽簽否”列，用于標(biāo)識該組面試考官是否已參加抽簽，對已參加抽簽的考官組則賦值為“已抽過”，反之為空值；

“抽簽序號”列，用于記錄抽簽的先后順序排名；

“抽簽時間”列，用于記錄抽簽人參加抽簽的時間值；

“考官組成員”列，用于存放安排好與主考官同組成員的姓名數(shù)據(jù)；

“抽簽時差”列，用于記錄主考官抽簽的時間與規(guī)定的最遲到達時間的差，正數(shù)則為按時到達，負數(shù)為遲到，單位為分鐘（見圖2）。

（2）宏命令的編寫。

打開“開發(fā)工具”選項卡，單擊“Visual Basic”按鈕即可進入VBA窗口，插入一個模塊，進行代碼的編寫：通過對軟件界面工作表中的Cell（12，12）輸入值進行判斷，符合數(shù)據(jù)源表中設(shè)置的抽簽條件，則在該抽簽名字相應(yīng)的行列上賦值：“已抽過”、“抽簽時間”、“抽簽序號”、“抽簽時差”；如果是重復(fù)抽簽或不存在該抽簽號則退出宏，等候輸入正確數(shù)值（見圖3）。

2.3抽簽數(shù)據(jù)存儲模塊

（1）建立抽簽數(shù)據(jù)存儲工作表，列標(biāo)題與內(nèi)容分別為：

“考場號”列，用于存儲原先已編排考場號數(shù)據(jù)；

“教室名稱”列，用于存儲原先已編排好用于面試的考場教室數(shù)據(jù)；

“主考官”列，用于隨機分配存儲的抽簽考官姓名數(shù)據(jù)；

“統(tǒng)分員”列，用于存儲原先已編排好統(tǒng)分員名單數(shù)據(jù)；

“組員”列，用于存儲抽簽考官這個組下面所有的考官組成員（見圖4）。

（2）實現(xiàn)該模塊功能的宏命令編寫。

對產(chǎn)生的隨機考場號變量D進行循環(huán)判斷，與抽簽數(shù)據(jù)存儲工作表中的那個考場號相等且還沒有按排主考官，符合這兩個條件則進行賦值安排主考官及其成員。

2.4抽簽數(shù)據(jù)統(tǒng)計模塊

通過建立這個數(shù)據(jù)統(tǒng)計模塊，可掌握考試抽簽過程的實時動態(tài)數(shù)據(jù)，記錄按時到位或遲到的行為，對按時到位的考官組進行隨機安排考場，對沒到位的考官組要進行盡快通知與提醒，并統(tǒng)計出抽簽人員的抽簽時間與規(guī)定到位時間的差值、抽簽的排位順序等，并在抽簽結(jié)果中輸出對抽簽人員按時到達行為的表揚或遲到行為的警告。其中，時間行為記錄代碼如下：

（1）對指定的工作表中的抽簽人所在的變量第K2行第5列進行賦值當(dāng)前系統(tǒng)時間：S2.Cells（k2， 5） = Time。

（2）計算出該考官抽簽的系統(tǒng)時間與規(guī)定的最遲到達時間的差，轉(zhuǎn)換成以分鐘為單位并賦值到變量：w = Int（（S2.Cells（1， 6） - S2.Cells（k2， 5）） * 24 * 60）。

（3）用IF語句來判定所給定的條件是否滿足，根據(jù)判定的結(jié)果（真或假）決定執(zhí)行給出的兩種操作之一。判斷得到賦值的時間變量是提前到達還是遲到，并在指定的單元格中賦值相應(yīng)的提示內(nèi)容，用于輸出提醒抽簽人：

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） & " 您已經(jīng)超過規(guī)定時間" & w & "分鐘到達，已遲到！"

End If

2.5打印輸出模塊

打印輸出功能由軟硬兩個模塊組成，通過宏命令對抽簽后的指定數(shù)據(jù)區(qū)域進行輸出：

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

ActiveSheet.PageSetup.PrintArea = str

ActiveSheet.PrintOut

Application.Goto S1.Cells（12， 12）

而硬件輸出模塊則通過熱敏打印機對輸出的數(shù)據(jù)進行快速打印，實現(xiàn)抽簽數(shù)據(jù)的終端輸出，通過熱敏打印頭提供穩(wěn)定的模式信號，每個加熱點均由電子技術(shù)單獨控制，在熱的不斷變化中將熱敏紙變色，溶解過后的涂層將在降溫過程中與平面緊緊相融，在不斷地移動色帶、運輸色帶、重復(fù)動作中，實現(xiàn)文本、圖像等元素的熱敏打印。與其他打印技術(shù)相比，熱敏打印技術(shù)的核心設(shè)備熱敏打印頭結(jié)構(gòu)簡單、維護方便，對熱敏紙的記錄可達到快捷、簡潔、高速的特點，確保打印的高精度、高品質(zhì)。其在POS終端系統(tǒng)、銀行系統(tǒng)、醫(yī)療儀器等領(lǐng)域得到廣泛應(yīng)用，也極其適用于我們抽簽條的快速打印輸出。

3考務(wù)抽簽系統(tǒng)的實踐成果

該系統(tǒng)已多次在對口中職招生面試中使用，不但解決了傳統(tǒng)的抽簽環(huán)節(jié)耗時、抽簽數(shù)據(jù)統(tǒng)計繁瑣等問題，而且確保抽簽的結(jié)果能快速記錄、準(zhǔn)確統(tǒng)計，并對抽簽人員高效有序地組對。多次實踐證明，一個監(jiān)考人員從報號抽簽輸入到從熱敏打印機拿到抽簽條僅用時約6秒左右，如果按一個考務(wù)辦有一百人，完成抽簽約十分鐘完成，且實時能統(tǒng)計出實到人員與未到人員的數(shù)據(jù)，效果顯著。同時，該系統(tǒng)基于原有的抽簽原理，通過改版升級，也可以滿足其它各種類型考試的需求，實用性極強。

（通訊作者：胡曉熙）

基金項目：廣西職業(yè)教育教學(xué)改革研究重點項目（GXGZJG2016A086）；廣西高等教育本科教學(xué)改革工程項目（2016JGA356，2017JGA321）。

作者簡介：胡曉熙（1982.10-），男，漢族，湖北武漢人，博士，教授，欽州學(xué)院自治區(qū)級協(xié)同育人平臺負責(zé)人，研究方向為高等教育教學(xué)與考試；王蕓（1983.04-），女，漢族，湖北荊門人，博士，副教授，欽州學(xué)院石油化工教學(xué)實驗中心主任、自治區(qū)級石油化工實驗教學(xué)示范中心負責(zé)人，研究方向為功能材料制備與應(yīng)用，化工高等教育教學(xué)。

參考文獻

[1] 王淏，亢娟娜.基于Excel VBA的監(jiān)考教師抽取系統(tǒng)設(shè)計與實現(xiàn)[J].自動化與儀器儀表，2015（02）：197+200.

[2] 羅昕瑜.熱敏打印在電子技術(shù)中的應(yīng)用[J].科技風(fēng)，2016（12）：65.

[3] 陳廣鳳，張興華.廣西中職對口升本新生的社會支持與學(xué)校適應(yīng)的關(guān)系探析[J].教育教學(xué)論壇，2017（47）：241-244.

[4] 劉丹梅，薦芳，浮若蘭.應(yīng)用型本科院校中職升本人才培養(yǎng)模式研究[J].遼寧廣播電視大學(xué)學(xué)報，2016（02）：13-14+44.

[5] 蔣勇.用Excel VBA設(shè)計教師監(jiān)考登記系統(tǒng)[J].長春理工大學(xué)學(xué)報，2010，5（07）：176-178.