基于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.