基于Excel VBA抽簽程序的設(shè)計(jì)與實(shí)現(xiàn)

任宇寧

摘要 隨著信息化技術(shù)的不斷普及，人們對(duì)Excel軟件的應(yīng)用由單一的表格處理、函數(shù)計(jì)算、圖表制作等逐漸向更高層次的人機(jī)交互、信息處理、程序設(shè)計(jì)轉(zhuǎn)變。本文就是利用Excel VBA技術(shù)對(duì)某衛(wèi)生學(xué)校護(hù)士技能模擬考試學(xué)生抽簽程序的設(shè)計(jì)與實(shí)現(xiàn)，在設(shè)計(jì)過(guò)程中實(shí)現(xiàn)了前臺(tái)界面和后臺(tái)代碼的交互，完成了由傳統(tǒng)人工抽簽到計(jì)算機(jī)信息化抽簽的改變，極大提升了備考的工作效率和準(zhǔn)確性。

[關(guān)鍵詞]Excel VBA抽簽程序

1 引言

某衛(wèi)生學(xué)校學(xué)生在護(hù)理技能操作模擬考試前先要進(jìn)行抽簽，根據(jù)學(xué)校規(guī)定的考試項(xiàng)目及題庫(kù)試題數(shù)目抽取相應(yīng)的題號(hào)進(jìn)行操作考試，這項(xiàng)工作往年都是采用人工抽簽，需要耗費(fèi)很多的人力和時(shí)間，然而在抽簽過(guò)程中難免會(huì)出現(xiàn)很多問(wèn)題。隨著信息化技術(shù)的不斷普及，學(xué)校工作也進(jìn)入了由信息技術(shù)替代人工操作的改革性階段，實(shí)現(xiàn)抽簽過(guò)程信息化、自動(dòng)化工作迫在眉睫，為此利用Excel對(duì)數(shù)據(jù)的便捷性，VBA對(duì)數(shù)據(jù)的交互性設(shè)計(jì)并實(shí)現(xiàn)了該抽簽程序。

2 VBA技術(shù)

Visual Basic for Applications（VBA）是Visual Basic的一種新一代標(biāo)準(zhǔn)宏語(yǔ)言，與傳統(tǒng)的宏語(yǔ)言不同，傳統(tǒng)的宏語(yǔ)言不具有高級(jí)語(yǔ)言特征，沒(méi)有面向?qū)ο蟮某绦蛟O(shè)計(jì)概念和方法，VBA是以偽代碼的形式運(yùn)行的，它的功能主要通過(guò)模塊來(lái)實(shí)現(xiàn)，同其他面向?qū)ο蟮木幊陶Z(yǔ)言一樣，VBA中也有對(duì)象、屬性、方法和事件。VBA易于學(xué)習(xí)，可以使用宏記錄用戶的操作，并將其轉(zhuǎn)換為VBA程序代碼，是工作自動(dòng)化。

3 需求分析

某衛(wèi)生學(xué)校在期末進(jìn)行護(hù)理技能操作考試前，每位參加考試的學(xué)生需要根據(jù)四項(xiàng)考試中題庫(kù)的總數(shù)量隨機(jī)抽取相應(yīng)的題號(hào)，由于每項(xiàng)操作考試題庫(kù)數(shù)都不相同，而每個(gè)班的學(xué)生數(shù)與總題庫(kù)數(shù)也不相同，學(xué)生在隨機(jī)抽取完一項(xiàng)操作考試的總題庫(kù)試題后，該題庫(kù)重新開(kāi)始輪詢，需要實(shí)現(xiàn)前后兩名學(xué)生生成的四組題號(hào)不能完全相同。

4 抽簽程序設(shè)計(jì)與實(shí)現(xiàn)

根據(jù)需求分析結(jié)果，考慮到該抽簽程序的實(shí)用性和簡(jiǎn)潔性，使用ExcelVBA實(shí)現(xiàn)，分為前臺(tái)界面和后臺(tái)代碼，前臺(tái)界面上有抽簽按鈕，可使用鼠標(biāo)點(diǎn)擊抽簽。為方便學(xué)生抽簽，也可以使用鍵盤上的空格鍵完成抽簽。前臺(tái)界面上有清除按鈕，實(shí)現(xiàn)將生成的題號(hào)清空的功能。

4.1 前臺(tái)界面

根據(jù)需求分析，前臺(tái)界面所有按鈕將在Al-G6單元格區(qū)域中顯示，而其余單元格隱藏。因此可以單擊選中H列，按住鍵盤上shift鍵，在水平滾動(dòng)條上單擊鼠標(biāo)左鍵即可將水平滾動(dòng)條拖動(dòng)到最后一列，點(diǎn)擊選擇最后一列，按鼠標(biāo)右鍵選中隱藏按鈕，將選中的列隱藏。單擊選中第7行，按住鍵盤上shift鍵，在垂直滾動(dòng)條上單擊鼠標(biāo)左鍵即可將垂直滾動(dòng)條拖動(dòng)到最后一行，按鼠標(biāo)右鍵選中隱藏按鈕，將選中的行隱藏。

選中Bl-Fl區(qū)域單元格，點(diǎn)擊菜單欄上的“合并及居中”按鈕，輸入程序名稱“護(hù)理技能操作考試抽簽程序”。在名稱前面點(diǎn)擊菜單欄上“插入”.“圖片”按鈕，找到并插入一個(gè)醫(yī)院的logo圖片。選中B2-F5單元格區(qū)域添加顯示所有框線，輸入對(duì)應(yīng)的內(nèi)容，將生成題號(hào)一行文字設(shè)置為紅色。在G列相應(yīng)位置處插入一個(gè)矩形，并且添加文字“抽簽”設(shè)置其文字格式。

4.2 后臺(tái)代碼

按鍵盤上的ALT+F11按鍵，打開(kāi)ABE編輯框，在左側(cè)的工程區(qū)域可以看到Excel對(duì)象，在空白位置處點(diǎn)擊鼠標(biāo)右鍵選擇插入按鈕添加兩個(gè)模塊窗口。

打開(kāi)模塊l窗口輸入以下代碼，并將前臺(tái)“醫(yī)院logo”圖標(biāo)指定宏到該段代碼，該代碼可以實(shí)現(xiàn)當(dāng)點(diǎn)擊圖標(biāo)時(shí)，生成題號(hào)將置為O，抽簽次數(shù)與題庫(kù)總數(shù)相同，即C4-F4單元格內(nèi)容與C3-F3相同。

打開(kāi)模塊2輸入以下代碼，并將前臺(tái)抽簽按鈕指定宏到該段代碼，當(dāng)點(diǎn)擊開(kāi)始抽簽后，抽簽次數(shù)累計(jì)增加，隨機(jī)生成題號(hào)，當(dāng)某一項(xiàng)操作抽簽次數(shù)和題庫(kù)數(shù)相同時(shí)，表明該項(xiàng)操作題庫(kù)己被抽取一輪，然后重置為1，進(jìn)行下一輪的抽取。

4.3 保存程序

在選擇保存的文件類型時(shí)應(yīng)該選擇“Excel啟用宏的工作簿（.xlsm）”選項(xiàng)，這樣再打開(kāi)文檔的時(shí)候，宏功能才會(huì)啟用，否則程序?qū)⒉荒苷＿\(yùn)行。

5 總結(jié)

隨著計(jì)算機(jī)技術(shù)的普及，我們對(duì)于Excel的應(yīng)用不應(yīng)僅僅局限于設(shè)置單元格格式，插入公式進(jìn)行計(jì)算等基本操作，在遇到需要進(jìn)行人機(jī)交互操作等高級(jí)應(yīng)用時(shí)，也可以利用Excel的高級(jí)應(yīng)用，如本文中的VBA技術(shù)進(jìn)行處理。

該抽簽程序滿足學(xué)校對(duì)學(xué)生抽簽過(guò)程的信息化和便捷化，提升了工作效率，在設(shè)計(jì)現(xiàn)實(shí)過(guò)程中也存在一定的缺陷，如沒(méi)有用到動(dòng)態(tài)數(shù)據(jù)庫(kù)，將生成的數(shù)據(jù)保存起來(lái)，對(duì)于數(shù)據(jù)量比較大的情況可能會(huì)導(dǎo)致Excel程序出錯(cuò)、閃退等現(xiàn)象未進(jìn)行考慮，待以后的設(shè)計(jì)中加以完善。

參考文獻(xiàn)

[1]蔣勇，劉聳，熊彥，朱婧，徐悅，基于Excel VBA護(hù)士執(zhí)業(yè)考試模擬系統(tǒng)的設(shè)計(jì)[J]，計(jì)算機(jī)光盤軟件與應(yīng)用，2015（01）.