基于Excel VBA設(shè)計(jì)的對(duì)口中職招生面試專家組隨機(jī)抽簽系統(tǒng)

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

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

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

中圖分類號(hào)：TP311 文獻(xiàn)標(biāo)識(shí)碼：A

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

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

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

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

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

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

2.1.1建立一個(gè)啟用宏的工作簿

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

2.1.2軟件界面的美化

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

Private Sub workbook_open（）

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

With Sheets（"軟件界面"）

.ScrollArea = "L12：N12"

End With

End Sub

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

圖1：軟件界面

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

最后，對(duì)該界面進(jìn)行一個(gè)事件觸發(fā)響應(yīng)的宏命令，實(shí)現(xiàn)當(dāng)在該軟件區(qū)域L12：N12區(qū)域輸入相應(yīng)的數(shù)據(jù)，回車高效地進(jìn)行甄別響應(yīng)并啟動(dòng)相應(yīng)的宏命令，進(jìn)而一下步的抽簽數(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）建立一個(gè)“數(shù)據(jù)源表”工作表，列標(biāo)題與內(nèi)容分別為：

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

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

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

“抽簽序號(hào)”列，用于記錄抽簽的先后順序排名；

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

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

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

（2）宏命令的編寫。

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

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

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

“考場(chǎng)號(hào)”列，用于存儲(chǔ)原先已編排考場(chǎng)號(hào)數(shù)據(jù)；

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

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

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

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

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

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

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

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

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

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

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

If w >= 0 Then

S1.Cells（16， 11） = "您是第" & p & "位抽簽考官，未抽簽考官還有" & R2 - p - 1 & "位。" & Chr（10） & " 對(duì)您按時(shí)到達(dá)參考試工作的行為點(diǎn)贊！"

Else

S1.Cells（16， 11） = "您是第" & p & "位抽簽考官，未抽簽考官還有" & R2 - p - 1 & "位。" & Chr（10） & " 您已經(jīng)超過規(guī)定時(shí)間" & w & "分鐘到達(dá)，已遲到！"

End If

2.5打印輸出模塊

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

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

ActiveSheet.PageSetup.PrintArea = str

ActiveSheet.PrintOut

Application.Goto S1.Cells（12， 12）

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

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

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

（通訊作者：胡曉熙）

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

作者簡(jiǎn)介：胡曉熙（1982.10-），男，漢族，湖北武漢人，博士，教授，欽州學(xué)院自治區(qū)級(jí)協(xié)同育人平臺(tái)負(fù)責(zé)人，研究方向?yàn)楦叩冉逃虒W(xué)與考試；王蕓（1983.04-），女，漢族，湖北荊門人，博士，副教授，欽州學(xué)院石油化工教學(xué)實(shí)驗(yàn)中心主任、自治區(qū)級(jí)石油化工實(shí)驗(yàn)教學(xué)示范中心負(fù)責(zé)人，研究方向?yàn)楣δ懿牧现苽渑c應(yīng)用，化工高等教育教學(xué)。

參考文獻(xiàn)

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

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

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

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

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