１ 問題的提出
天津市Ａ大學新體育館中有１５個羽毛球場地，學校體育館對羽毛球場地預定的規則為：場地提前３天預定；１２點到１４點及１７點到１９點實行半價收費；１７點后加收燈光費；可以集體名義長期預定場地。為配合羽毛球場地預定，工作人員打印出周一到周日共7張場地表合訂一塊作為一本，用其中的一本單獨記錄長期預定場地的相關信息，新的一周開始，均要將此記錄手抄到新的記錄本上，用以標記已被提前預定的場地，再將此新記錄本用于記錄本周的場地預定。現在面臨的問題為：每周進行新記錄本的抄寫比較辛苦，而且容易出現遺漏、錯位；不知道長期預定場地者當天是否已經來交費；記錄不利于長期預定場地信息的經常性修改；記錄中場地預定信息不能一目了然，不利于管理；晚上時間段忘記加收燈光費；學生優惠時間段全價收取。種種問題結合在一起，使場地預定非常麻煩、效率低下而且容易出錯，學生的滿意度也較低。
２ 場地預定系統需求分析
為了方便體育館羽毛球場地預定的管理，作者以辦公軟件Ｅｘｃｅｌ進行編程制作羽毛球場地預定系統，此場地預定系統有如下要求：不用進行新記錄本的抄寫，不出現長期預定信息的遺漏、錯位等錯誤；能清晰地看出不同時間段的本校學生優惠政策，以及是否加收燈光費；能方便地修改長期預定信息，并保證信息的及時更新；能一目了然看到場地預定信息；不再需要一大堆紙質材料，實現無紙化高效、環保辦公，減輕工作人員勞動量。
３ 場地預定系統的實現
３．１ 表格結構及功能介紹
利用Ｅｘｃｅｌ表格建立新的工作簿，并建立１４個工作表如圖１。
工作表分為兩組，第一組由“周一，…，周日”組成，第二組由“壹，…，柒”組成；第一組表是用于每天的場地預定，第二組表是記錄長期預定信息；兩組表結構一致，第一組中多了幾個功能按鈕。兩組表有一一對應關系（如“周一”與“壹”），如第二組工作表的單元格有記錄，單擊第一組表中相對應工作表的左上角按鈕后會自動將對應的單元格變成紅色，表示此場地已經被提前預定。表中的3種不同的淺底色，用于提示工作人員注意優惠情況及加收燈光費情況。
預定場地時，只需選取場地單元格后，點擊“預定場地”按鈕，此場地單元格將變成深藍色，表示此場地已經交費預定；對于已預定的場地單元格，可選取后點擊“取消預定”按鈕將預定取消。“清除當天”按鈕是用于清除場地的預定信息，以用于下次場地的預定。如果在當天清除場地預定信息前還存在紅色單元格，說明此場地的長期預定者未交費。
３．２ 第一組工作表中相關按鈕的ＶＢＡ編程
（１） 左上角綠色按鈕ＶＢＡ編程。用ＩＦ語句判斷長期預定信息工作表的單元格是否為空，若不為空，則在相應的工作表單元格中對其Cｏｌｏｒ屬性進行賦值。如“Ｉｆ Ｅｘｃｅｌ．Ｓｈｅｅｔｓ（＂長期預定信息工作表名＂）．Ｃｅｌｌｓ（ｉ， ｊ） ＜＞ ＂＂ Ｔｈｅｎ Ｅｘｃｅｌ．Ｓｈｅｅｔｓ（＂對應工作表名＂）．Ｃｅｌｌｓ（ｉ， ｊ）．Ｉｎｔｅｒｉｏｒ．Ｃｏｌｏｒ ＝顏色值（如：２５５）”
（２） “預定場地”按鈕ＶＢＡ編程。用語句“Ｅｘｃｅｌ．ＡｃｔｉｖｅＣｅｌｌ．Ｉｎｔｅｒｉｏｒ．Ｃｏｌｏｒ ＝顏色值（如：１６７１１６８０）”
（３） “清除當天”按鈕。用ｆｏｒ循環語句對所要求清除的單元格進行操作，用語句“Ｅｘｃｅｌ．Ｓｈｅｅｔｓ（＂工作表名＂）．Ｃｅｌｌｓ（ｉ， ｊ）．Ｉｎｔｅｒｉｏｒ．Ｐａｔｔｅｒｎ ＝ ｘｌＮｏｎｅ”將單元格清空（底色為白色），如果需要讓單元格有不同的底色，可以通過對當前單元格的ＴｈｅｍｅＣｏｌｏｒ和ＴｉｎｔＡｎｄＳｈａｄｅ屬性進行賦值。
（４） “取消預定”按鈕ＶＢＡ編程。使用語句“Ｅｘｃｅｌ．ＡｃｔｉｖｅＣｅｌｌ．Ｉｎｔｅｒｉｏｒ．Ｐａｔｔｅｒｎ ＝ ｘｌＮｏｎｅ”可將當前活動單元格變空（底色為白色），如果需要讓單元格有不同的底色，可以通過對當前單元格的ＴｈｅｍｅＣｏｌｏｒ和ＴｉｎｔＡｎｄＳｈａｄｅ屬性進行賦值。
４ 結 語
Ｅｘｃｅｌ在日常的管理工作中應用極為廣泛，對日常生活中碰到的問題進行提煉、總結，并在Eｘｃｅｌ中結合ＶＢＡ編程進行相應功能的開發，可以將一些重復性、繁瑣的工作大大簡化，使工作準確率、效率得到顯著提高。本文采用Eｘｃｅｌ ＶＢＡ編程實現了Ａ大學體育館羽毛球場地預定系統的制作，這僅為用Eｘｃｅｌ解決實際問題的一例，也希望此文章能對相關讀者進行類似問題處理時具有啟發、借鑒作用。
