黃國(guó)文,齊二石

［摘要］ 針對(duì)A大學(xué)體育館羽毛球場(chǎng)地預(yù)定的繁瑣性、易錯(cuò)性，利用辦公軟件Excel中的VBA編程技術(shù)實(shí)現(xiàn)自動(dòng)化、無(wú)紙化辦公，提高羽毛球場(chǎng)地預(yù)定的準(zhǔn)確率、工作效率。

［關(guān)鍵詞］VBA編程； Excel； 場(chǎng)地預(yù)定； 無(wú)紙化辦公

doi : 10 . 3969 / j . issn . 1673 - 0194 . 2012 . 10. 040

［中圖分類號(hào)］TP317.3［文獻(xiàn)標(biāo)識(shí)碼］A［文章編號(hào)］1673 - 0194（2012）10- 0072- 01

１問(wèn)題的提出

天津市Ａ大學(xué)新體育館中有１５個(gè)羽毛球場(chǎng)地，學(xué)校體育館對(duì)羽毛球場(chǎng)地預(yù)定的規(guī)則為：場(chǎng)地提前３天預(yù)定；１２點(diǎn)到１４點(diǎn)及１７點(diǎn)到１９點(diǎn)實(shí)行半價(jià)收費(fèi)；１７點(diǎn)后加收燈光費(fèi)；可以集體名義長(zhǎng)期預(yù)定場(chǎng)地。為配合羽毛球場(chǎng)地預(yù)定，工作人員打印出周一到周日共7張場(chǎng)地表合訂一塊作為一本，用其中的一本單獨(dú)記錄長(zhǎng)期預(yù)定場(chǎng)地的相關(guān)信息，新的一周開(kāi)始，均要將此記錄手抄到新的記錄本上，用以標(biāo)記已被提前預(yù)定的場(chǎng)地，再將此新記錄本用于記錄本周的場(chǎng)地預(yù)定?，F(xiàn)在面臨的問(wèn)題為：每周進(jìn)行新記錄本的抄寫比較辛苦，而且容易出現(xiàn)遺漏、錯(cuò)位；不知道長(zhǎng)期預(yù)定場(chǎng)地者當(dāng)天是否已經(jīng)來(lái)交費(fèi)；記錄不利于長(zhǎng)期預(yù)定場(chǎng)地信息的經(jīng)常性修改；記錄中場(chǎng)地預(yù)定信息不能一目了然，不利于管理；晚上時(shí)間段忘記加收燈光費(fèi)；學(xué)生優(yōu)惠時(shí)間段全價(jià)收取。種種問(wèn)題結(jié)合在一起，使場(chǎng)地預(yù)定非常麻煩、效率低下而且容易出錯(cuò)，學(xué)生的滿意度也較低。

２場(chǎng)地預(yù)定系統(tǒng)需求分析

為了方便體育館羽毛球場(chǎng)地預(yù)定的管理，作者以辦公軟件Ｅｘｃｅｌ進(jìn)行編程制作羽毛球場(chǎng)地預(yù)定系統(tǒng)，此場(chǎng)地預(yù)定系統(tǒng)有如下要求：不用進(jìn)行新記錄本的抄寫，不出現(xiàn)長(zhǎng)期預(yù)定信息的遺漏、錯(cuò)位等錯(cuò)誤；能清晰地看出不同時(shí)間段的本校學(xué)生優(yōu)惠政策，以及是否加收燈光費(fèi)；能方便地修改長(zhǎng)期預(yù)定信息，并保證信息的及時(shí)更新；能一目了然看到場(chǎng)地預(yù)定信息；不再需要一大堆紙質(zhì)材料，實(shí)現(xiàn)無(wú)紙化高效、環(huán)保辦公，減輕工作人員勞動(dòng)量。

３場(chǎng)地預(yù)定系統(tǒng)的實(shí)現(xiàn)

３．１表格結(jié)構(gòu)及功能介紹

利用Ｅｘｃｅｌ表格建立新的工作簿，并建立１４個(gè)工作表如圖１。

工作表分為兩組，第一組由“周一，…，周日”組成，第二組由“壹，…，柒”組成；第一組表是用于每天的場(chǎng)地預(yù)定，第二組表是記錄長(zhǎng)期預(yù)定信息；兩組表結(jié)構(gòu)一致，第一組中多了幾個(gè)功能按鈕。兩組表有一一對(duì)應(yīng)關(guān)系（如“周一”與“壹”），如第二組工作表的單元格有記錄，單擊第一組表中相對(duì)應(yīng)工作表的左上角按鈕后會(huì)自動(dòng)將對(duì)應(yīng)的單元格變成紅色，表示此場(chǎng)地已經(jīng)被提前預(yù)定。表中的3種不同的淺底色，用于提示工作人員注意優(yōu)惠情況及加收燈光費(fèi)情況。

預(yù)定場(chǎng)地時(shí)，只需選取場(chǎng)地單元格后，點(diǎn)擊“預(yù)定場(chǎng)地”按鈕，此場(chǎng)地單元格將變成深藍(lán)色，表示此場(chǎng)地已經(jīng)交費(fèi)預(yù)定；對(duì)于已預(yù)定的場(chǎng)地單元格，可選取后點(diǎn)擊“取消預(yù)定”按鈕將預(yù)定取消。“清除當(dāng)天”按鈕是用于清除場(chǎng)地的預(yù)定信息，以用于下次場(chǎng)地的預(yù)定。如果在當(dāng)天清除場(chǎng)地預(yù)定信息前還存在紅色單元格，說(shuō)明此場(chǎng)地的長(zhǎng)期預(yù)定者未交費(fèi)。

３．２第一組工作表中相關(guān)按鈕的ＶＢＡ編程

（１） 左上角綠色按鈕ＶＢＡ編程。用ＩＦ語(yǔ)句判斷長(zhǎng)期預(yù)定信息工作表的單元格是否為空，若不為空，則在相應(yīng)的工作表單元格中對(duì)其Cｏｌｏｒ?qū)傩赃M(jìn)行賦值。如“Ｉｆ Ｅｘｃｅｌ．Ｓｈｅｅｔｓ（＂長(zhǎng)期預(yù)定信息工作表名＂）．Ｃｅｌｌｓ（ｉ， ｊ） ＜＞ ＂＂ Ｔｈｅｎ Ｅｘｃｅｌ．Ｓｈｅｅｔｓ（＂對(duì)應(yīng)工作表名＂）．Ｃｅｌｌｓ（ｉ， ｊ）．Ｉｎｔｅｒｉｏｒ．Ｃｏｌｏｒ ＝顏色值（如：２５５）”

（２） “預(yù)定場(chǎng)地”按鈕ＶＢＡ編程。用語(yǔ)句“Ｅｘｃｅｌ．ＡｃｔｉｖｅＣｅｌｌ．Ｉｎｔｅｒｉｏｒ．Ｃｏｌｏｒ ＝顏色值（如：１６７１１６８０）”

（３） “清除當(dāng)天”按鈕。用ｆｏｒ循環(huán)語(yǔ)句對(duì)所要求清除的單元格進(jìn)行操作，用語(yǔ)句“Ｅｘｃｅｌ．Ｓｈｅｅｔｓ（＂工作表名＂）．Ｃｅｌｌｓ（ｉ， ｊ）．Ｉｎｔｅｒｉｏｒ．Ｐａｔｔｅｒｎ ＝ ｘｌＮｏｎｅ”將單元格清空（底色為白色），如果需要讓單元格有不同的底色，可以通過(guò)對(duì)當(dāng)前單元格的ＴｈｅｍｅＣｏｌｏｒ和ＴｉｎｔＡｎｄＳｈａｄｅ屬性進(jìn)行賦值。

（４） “取消預(yù)定”按鈕ＶＢＡ編程。使用語(yǔ)句“Ｅｘｃｅｌ．ＡｃｔｉｖｅＣｅｌｌ．Ｉｎｔｅｒｉｏｒ．Ｐａｔｔｅｒｎ ＝ ｘｌＮｏｎｅ”可將當(dāng)前活動(dòng)單元格變空（底色為白色），如果需要讓單元格有不同的底色，可以通過(guò)對(duì)當(dāng)前單元格的ＴｈｅｍｅＣｏｌｏｒ和ＴｉｎｔＡｎｄＳｈａｄｅ屬性進(jìn)行賦值。

４結(jié)語(yǔ)

Ｅｘｃｅｌ在日常的管理工作中應(yīng)用極為廣泛，對(duì)日常生活中碰到的問(wèn)題進(jìn)行提煉、總結(jié)，并在Eｘｃｅｌ中結(jié)合ＶＢＡ編程進(jìn)行相應(yīng)功能的開(kāi)發(fā)，可以將一些重復(fù)性、繁瑣的工作大大簡(jiǎn)化，使工作準(zhǔn)確率、效率得到顯著提高。本文采用Eｘｃｅｌ ＶＢＡ編程實(shí)現(xiàn)了Ａ大學(xué)體育館羽毛球場(chǎng)地預(yù)定系統(tǒng)的制作，這僅為用Eｘｃｅｌ解決實(shí)際問(wèn)題的一例，也希望此文章能對(duì)相關(guān)讀者進(jìn)行類似問(wèn)題處理時(shí)具有啟發(fā)、借鑒作用。

主要參考文獻(xiàn)

［１］ 楊富強(qiáng)． Ｅｘｃｅｌ ＶＢＡ 在課表制作中的應(yīng)用［Ｊ］． 辦公自動(dòng)化：綜合月刊，２００９（６）．

［２］ 羅剛君． Ｅｘｃｅｌ ＶＢＡ程序開(kāi)發(fā)自學(xué)寶典［Ｍ］． 北京：電子工業(yè)出版社，２０１１．