用Excel中VBA编程技术优化羽毛球场地预定流程

黄国文,齐二石

［摘要］ 针对A大学体育馆羽毛球场地预定的繁琐性、易错性，利用办公软件Excel中的VBA编程技术实现自动化、无纸化办公，提高羽毛球场地预定的准确率、工作效率。

［关键词］VBA编程； Excel； 场地预定； 无纸化办公

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

［中图分类号］TP317.3［文献标识码］A［文章编号］1673 - 0194（2012）10- 0072- 01

１问题的提出

天津市Ａ大学新体育馆中有１５个羽毛球场地，学校体育馆对羽毛球场地预定的规则为：场地提前３天预定；１２点到１４点及１７点到１９点实行半价收费；１７点后加收灯光费；可以集体名义长期预定场地。为配合羽毛球场地预定，工作人员打印出周一到周日共7张场地表合订一块作为一本，用其中的一本单独记录长期预定场地的相关信息，新的一周开始，均要将此记录手抄到新的记录本上，用以标记已被提前预定的场地，再将此新记录本用于记录本周的场地预定。现在面临的问题为：每周进行新记录本的抄写比较辛苦，而且容易出现遗漏、错位；不知道长期预定场地者当天是否已经来交费；记录不利于长期预定场地信息的经常性修改；记录中场地预定信息不能一目了然，不利于管理；晚上时间段忘记加收灯光费；学生优惠时间段全价收取。种种问题结合在一起，使场地预定非常麻烦、效率低下而且容易出错，学生的满意度也较低。

２场地预定系统需求分析

为了方便体育馆羽毛球场地预定的管理，作者以办公软件Ｅｘｃｅｌ进行编程制作羽毛球场地预定系统，此场地预定系统有如下要求：不用进行新记录本的抄写，不出现长期预定信息的遗漏、错位等错误；能清晰地看出不同时间段的本校学生优惠政策，以及是否加收灯光费；能方便地修改长期预定信息，并保证信息的及时更新；能一目了然看到场地预定信息；不再需要一大堆纸质材料，实现无纸化高效、环保办公，减轻工作人员劳动量。

３场地预定系统的实现

３．１表格结构及功能介绍

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

工作表分为两组，第一组由“周一，…，周日”组成，第二组由“壹，…，柒”组成；第一组表是用于每天的场地预定，第二组表是记录长期预定信息；两组表结构一致，第一组中多了几个功能按钮。两组表有一一对应关系（如“周一”与“壹”），如第二组工作表的单元格有记录，单击第一组表中相对应工作表的左上角按钮后会自动将对应的单元格变成红色，表示此场地已经被提前预定。表中的3种不同的浅底色，用于提示工作人员注意优惠情况及加收灯光费情况。

预定场地时，只需选取场地单元格后，点击“预定场地”按钮，此场地单元格将变成深蓝色，表示此场地已经交费预定；对于已预定的场地单元格，可选取后点击“取消预定”按钮将预定取消。“清除当天”按钮是用于清除场地的预定信息，以用于下次场地的预定。如果在当天清除场地预定信息前还存在红色单元格，说明此场地的长期预定者未交费。

３．２第一组工作表中相关按钮的ＶＢＡ编程

（１） 左上角绿色按钮ＶＢＡ编程。用ＩＦ语句判断长期预定信息工作表的单元格是否为空，若不为空，则在相应的工作表单元格中对其Cｏｌｏｒ属性进行赋值。如“Ｉｆ Ｅｘｃｅｌ．Ｓｈｅｅｔｓ（＂长期预定信息工作表名＂）．Ｃｅｌｌｓ（ｉ， ｊ） ＜＞ ＂＂ Ｔｈｅｎ Ｅｘｃｅｌ．Ｓｈｅｅｔｓ（＂对应工作表名＂）．Ｃｅｌｌｓ（ｉ， ｊ）．Ｉｎｔｅｒｉｏｒ．Ｃｏｌｏｒ ＝颜色值（如：２５５）”

（２） “预定场地”按钮ＶＢＡ编程。用语句“Ｅｘｃｅｌ．ＡｃｔｉｖｅＣｅｌｌ．Ｉｎｔｅｒｉｏｒ．Ｃｏｌｏｒ ＝颜色值（如：１６７１１６８０）”

（３） “清除当天”按钮。用ｆｏｒ循环语句对所要求清除的单元格进行操作，用语句“Ｅｘｃｅｌ．Ｓｈｅｅｔｓ（＂工作表名＂）．Ｃｅｌｌｓ（ｉ， ｊ）．Ｉｎｔｅｒｉｏｒ．Ｐａｔｔｅｒｎ ＝ ｘｌＮｏｎｅ”将单元格清空（底色为白色），如果需要让单元格有不同的底色，可以通过对当前单元格的ＴｈｅｍｅＣｏｌｏｒ和ＴｉｎｔＡｎｄＳｈａｄｅ属性进行赋值。

（４） “取消预定”按钮ＶＢＡ编程。使用语句“Ｅｘｃｅｌ．ＡｃｔｉｖｅＣｅｌｌ．Ｉｎｔｅｒｉｏｒ．Ｐａｔｔｅｒｎ ＝ ｘｌＮｏｎｅ”可将当前活动单元格变空（底色为白色），如果需要让单元格有不同的底色，可以通过对当前单元格的ＴｈｅｍｅＣｏｌｏｒ和ＴｉｎｔＡｎｄＳｈａｄｅ属性进行赋值。

４结语

Ｅｘｃｅｌ在日常的管理工作中应用极为广泛，对日常生活中碰到的问题进行提炼、总结，并在Eｘｃｅｌ中结合ＶＢＡ编程进行相应功能的开发，可以将一些重复性、繁琐的工作大大简化，使工作准确率、效率得到显著提高。本文采用Eｘｃｅｌ ＶＢＡ编程实现了Ａ大学体育馆羽毛球场地预定系统的制作，这仅为用Eｘｃｅｌ解决实际问题的一例，也希望此文章能对相关读者进行类似问题处理时具有启发、借鉴作用。

主要参考文献

［１］ 杨富强． Ｅｘｃｅｌ ＶＢＡ 在课表制作中的应用［Ｊ］． 办公自动化：综合月刊，２００９（６）．

［２］ 罗刚君． Ｅｘｃｅｌ ＶＢＡ程序开发自学宝典［Ｍ］． 北京：电子工业出版社，２０１１．