基于VBA設(shè)計的考試編排系統(tǒng).pdf

Computer Knowledge and Technology電腦知識與技術(shù) 軟件設(shè)計開發(fā) 本欄目責(zé)任編輯 謝媛媛 第7卷第17期 2011年6月 基于 VBA 設(shè)計的考試編排系統(tǒng) 梁小鷗 廣東工程職業(yè)技術(shù)學(xué)院 教務(wù)處 廣東 廣州510520 摘要 近年來隨著學(xué)生人數(shù)的增多 考試周教學(xué)工作人員手動制作各科考試座位表已經(jīng)成為一項(xiàng)艱巨而繁瑣的工作 考試座位表編 排的系統(tǒng)化是教學(xué)工作人員的迫切需求 作者通過VBA在Excel中制作一個應(yīng)用程序的設(shè)計思路及操作流程 根據(jù)實(shí)際學(xué)生人數(shù) 和教室規(guī)模的選擇 實(shí)現(xiàn)了考生座位的自動編排 打印考試座位表等功能 經(jīng)實(shí)際應(yīng)用表明 它能有效的將教學(xué)工作者從編排座位 工作中解救出來 減輕他們的工作負(fù)擔(dān) 提高其工作效率 關(guān)鍵詞 VBA Excel 教學(xué)安排 考試 座位編排 中圖分類號 TP317文獻(xiàn)標(biāo)識碼 A文章編號 1009 3044 2011 17 4089 03 Examination Seating Arrangement System Based on VBA LIANG Xiao ou Guangdong Polytechnic college Guangzhou 510520 China Abstract In recent years with the increase of students in exam week Manully making examination seat table by teaching staff manually has become an arduous and tedious work Exam seating arrangement of systematization are urgent needs for the teaching staff This system based on the actual number of students and classroom size enables candidates seat features such as automatic numbering print examinations of the seating chart In practical it proved that it effectively reduce teaching staffs work burden and improve their efficiency Key words VBA Excel teaching arrangements exam seating arrangement 考試 是一種嚴(yán)格的知識水平鑒定方法 為了保證結(jié)果的公平 防止考生隨意就座 安排考試時需要將考生安排到指定座位并 且考試座位進(jìn)行隔位處理 近年來隨著高校的不斷擴(kuò)招 學(xué)生人數(shù)與日俱增 導(dǎo)致在教學(xué)安排中 特別是考試周內(nèi) 為所有班級的 考試科目手動制作考試座位表成為了一項(xiàng)艱巨而繁瑣的工作 考試座位表編排的系統(tǒng)化是教學(xué)工作人員的迫切需求 而教務(wù)系統(tǒng) 針對此項(xiàng)目進(jìn)行二次開發(fā)成本較大 本文采用科學(xué)的方法 結(jié)合學(xué)院實(shí)際情況 通過VBA在Excel中制作 考生座位安排 的應(yīng)用程 序合理 高效的解決考生座位手動編排問題 從而很大程度上減輕教學(xué)管理人員的工作量 提高其工作效率 1系統(tǒng)設(shè)計思路 考生考試座位表的編排主要因素有兩種 學(xué)生名單和教室 學(xué)生名單是考試座位表具體編排的內(nèi)容 而教室的確定是為考試座 位表提供其編排的方法 格式 因此 在系統(tǒng)設(shè)計中 重點(diǎn)考慮用戶提供這兩項(xiàng)數(shù)據(jù)的方式 盡量做到簡單易用 由于我院教室資源 存在著差異性 每間教室的座位格局并非一致 編排時教室不能使用統(tǒng)一模板 本系統(tǒng)針對教室種類過多不便于用戶進(jìn)行選擇這一 問題找到了解決辦法 即分析出教室資源的不同規(guī)模 教室規(guī)模直接影響考生座位表的布局 而同一規(guī)模的考場可以是容量不同的 教室 則需要進(jìn)一步用考生人數(shù)進(jìn)行判斷 這樣就可以通過考場規(guī)模和考生人數(shù)間接的確定具體考試教室 所以系統(tǒng)在設(shè)計時只需 確定考試學(xué)生名單 選擇教室規(guī)模及輸入考生人數(shù)即可安排學(xué)生座位格式 2系統(tǒng)開發(fā)工具 Excel被廣泛使用于數(shù)據(jù)處理 統(tǒng)計匯總 分析查詢等操作 它強(qiáng)大的數(shù)據(jù)處理能力已經(jīng)征服了每一個Excel使用者 考試編排 需要的學(xué)生名單 教室座位表等都是由Excel創(chuàng)建而來 Excel VBA Visual Basic For Application程序設(shè)計語言 是一款功能強(qiáng)大的辦 公軟件 它可以完成信息保存 數(shù)據(jù)計算 信息動態(tài)發(fā)布等功能 同時 它還是一個開放的平臺 即允許用戶使用VBA語言進(jìn)行第二 次開發(fā) 基于Excel應(yīng)用普及率較高 且教學(xué)工作人員易于操作 筆者運(yùn)用Excel及其內(nèi)置的VBA進(jìn)行簡單編程 實(shí)現(xiàn)考場座位表的 編排 3考場座位表編排前期數(shù)據(jù)準(zhǔn)備工作 編程環(huán)境使用Excel2007 文件存貯格式采用2007啟用宏的工作簿文件 XLSM擴(kuò)展名 或者Excel97 2003 XLS擴(kuò)展名 工作 簿文件 同時還需要準(zhǔn)備以下數(shù)據(jù) 1 學(xué)生花名冊 提供學(xué)生姓名字段 2 教室資源容量表 分析其不同教室的規(guī)模 如教室座位數(shù)為224位 由16列 14行組成 教室過道將其座位分為3大塊 每 塊分別占用5列 6列 5列 此情況則歸屬于教室5 6 5規(guī)模 4考場座位表編排的實(shí)施 收稿日期 2011 03 17 作者簡介 梁小鷗 1985 女 湖南張家界人 廣東工程職業(yè)技術(shù)學(xué)院教務(wù)處科員 學(xué)士 研究方向?yàn)橛嬎銠C(jī)科學(xué)與技術(shù) E mail xsjl Tel 86 551 56909635690964 ISSN 1009 3044 Computer Knowledge and Technology電腦知識與技術(shù) Vol 7 No 17 June 2011 pp 4089 4091 4089 Computer Knowledge and Technology電腦知識與技術(shù) 本欄目責(zé)任編輯 謝媛媛 軟件設(shè)計開發(fā) 第7卷第17期 2011年6月 此系統(tǒng)是在Excel2007的環(huán)境下編寫 啟動Excel2007載入 考試座位編 排表 后 須在安全警告選項(xiàng)中選擇啟用 宏和ActiveX 進(jìn)入系統(tǒng)的啟動界 面 如圖1 4 1進(jìn)入考試座位編排的制作 通過 花名冊 工作表中的 顯示窗體 按鈕進(jìn)入到考試座位安排窗口 Private Sub顯示窗體 Click 點(diǎn)擊 顯示窗體 按鈕 進(jìn)入考試座位安排窗口 UserForm1 Show UserForm1即為考試座位安排窗口 End Sub 進(jìn)入考試座位編排表后 將學(xué)生姓名錄入到指定位置 點(diǎn)擊 顯示窗體 按鈕 進(jìn)入考場 座位編排環(huán)節(jié) 如圖2 4 2考場基本信息的錄入 1 在考試座位安排窗口中完善考試相關(guān)數(shù)據(jù)信息 如考試地點(diǎn) 考試科目等 Private Sub考試地點(diǎn) Change 以錄入考試地點(diǎn)為例 Dim ksdd As String ksdd 考試地點(diǎn) Text Sheets 座位表 Select Range M2 Value ksdd 將 考試地點(diǎn) 后的文本框內(nèi)容寫入M2單元格 End Sub 2 選擇對應(yīng)的考場規(guī)模 來設(shè)定考場座位安排的行 列數(shù)值 Private Sub OptionButton1 Click 選擇 5 6 5規(guī)模 Dim col As Integer Dim row As Integer col 9 row 13 設(shè)置列數(shù)為9 行數(shù)為13 End Sub 3 安排座位 控件 觸發(fā)此按鍵后系統(tǒng)會根據(jù)選擇的考場規(guī)模進(jìn)行計算 得出此次排考的座位表范圍 以及在此范圍中所有單 元格的值 即把學(xué)生名單放入對應(yīng)考場進(jìn)行自動編排 Private Sub anpaizuowei Click num InputBox 此次考試的學(xué)生人數(shù)是 請輸入 確定考生人數(shù) 并將考生人數(shù)賦值于num變量 Sheets 座位表 Select Range M4 Value num Dim col As Integer 定義分配學(xué)生的列數(shù) If OptionButton1 Value True Then col 9 ElseIf OptionButton2 Value True Then col 7 End If 通過If語句來判斷用戶所選擇的考場模式 從而得到編排考場時需要安排的列數(shù) Sheets 花名冊 Select 選擇要復(fù)制的表 Range A2 Z1000 Select 確定學(xué)生名單區(qū)域 Selection Copy 復(fù)制到剪貼板上 Sheets 座位表 Select 選擇要粘貼的表 Range A1 Select 選中a1單元格 準(zhǔn)備粘貼 ActiveSheet Paste 圖1考試編排系統(tǒng)啟動界面 圖2考生座位安排窗口 4090 Computer Knowledge and Technology電腦知識與技術(shù) 軟件設(shè)計開發(fā) 本欄目責(zé)任編輯 謝媛媛 第7卷第17期 2011年6月 For n 2 To num ssourcecell A n 選取原單元格 stemp1 n 1 Mod col stemp2 n 1 col 1 計算目標(biāo)單元格的行數(shù) stemp3 Chr Asc A 2 stemp1 得到目標(biāo)單元格的具體列值 sDestcell stemp3 stemp2 形成目標(biāo)單元格 Range ssourcecell Select Selection Cut Destination Range sDestcell 移動目標(biāo)單元格 Next Range A7 Select End Sub 4 清空數(shù)據(jù) 控件 它將執(zhí)行于規(guī)定范圍內(nèi)單元格數(shù)據(jù)的刪除操作 起到編排座位初始化的作用 Private Sub qingkongshuju Click Dim worksheetobject As Worksheet Dim rangeobject As Range Set rangeobject Worksheets 座位表 Range A1 Z100 rangeobject Clear 將設(shè)定區(qū)域Range A1 Z100 的數(shù)據(jù)清空 MsgBox 指定單元格區(qū)域的數(shù)據(jù)被清空 vbInformation End Sub 5 打印預(yù)覽 控件 它的作用在于設(shè)置規(guī)定范圍內(nèi)單元格 的格式 完善 過道 講臺 等標(biāo)識 使畫面美觀易懂 最終呈現(xiàn) 出考試座位編排效果 如圖3 5總結(jié) 此系統(tǒng)是以Excel2007作為開發(fā)平臺 結(jié)合VBA編寫的考試座位編排系統(tǒng) 它成本低 兼容性強(qiáng) 并結(jié)合我院實(shí)際情況 通過分 析眾多教室布局得出精簡的教室規(guī)模 方便用戶選擇使用 操作簡單容易掌握 經(jīng)實(shí)際應(yīng)用表明 它能有效的將教學(xué)工作者從編排 座位工作中解救出來 減輕他們的工作負(fù)擔(dān) 提高其工作效率 取得了預(yù)期的效果 為了更加方便用戶使用 今后本系統(tǒng)將力求與教務(wù)系統(tǒng)中直接導(dǎo)出的教室資源 學(xué)生名冊進(jìn)行對接 系統(tǒng)根據(jù)學(xué)生人數(shù)自動檢 索可用教室 實(shí)現(xiàn)考場編排的智能化 參考文獻(xiàn) 1 李曉