黃國文,齊二石

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

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

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

［中圖分類號］TP317.3［文獻標識碼］A［文章編號］1673 - 0194（2012）10- 0072- 01

１問題的提出

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

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

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

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

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

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

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

預(yù)定場地時，只需選取場地單元格后，點擊“預(yù)定場地”按鈕，此場地單元格將變成深藍色，表示此場地已經(jīng)交費預(yù)定；對于已預(yù)定的場地單元格，可選取后點擊“取消預(yù)定”按鈕將預(yù)定取消。“清除當天”按鈕是用于清除場地的預(yù)定信息，以用于下次場地的預(yù)定。如果在當天清除場地預(yù)定信息前還存在紅色單元格，說明此場地的長期預(yù)定者未交費。

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

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

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

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

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

４結(jié)語

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

主要參考文獻

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

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