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

ID:9455639

大小:49.00 KB

页数:2页

时间:2018-05-01

用excel中vba编程技术优化羽毛球场地预定流程_第1页
用excel中vba编程技术优化羽毛球场地预定流程_第2页
资源描述:

《用excel中vba编程技术优化羽毛球场地预定流程》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、用Excel中VBA编程技术优化羽毛球场地预定流程1问题的提出  天津市A大学新体育馆中有15个羽毛球场地,学校体育馆对羽毛球场地预定的规则为:场地提前3天预定;12点到14点及17点到19点实行半价收费;17点后加收灯光费;可以集体名义长期预定场地。为配合羽毛球场地预定,工作人员打印出周一到周日共7张场地表合订一块作为一本,用其中的一本单独记录长期预定场地的相关信息,新的一周开始,均要将此记录手抄到新的记录本上,用以标记已被提前预定的场地,再将此新记录本用于记录本周的场地预定。现在面临的问题为:每周进行新记录本的抄写比较辛苦,而且容易出现遗漏、错位;不知道长期预定场地

2、者当天是否已经来交费;记录不利于长期预定场地信息的经常性修改;记录中场地预定信息不能一目了然,不利于管理;晚上时间段忘记加收灯光费;学生优惠时间段全价收取。种种问题结合在一起,使场地预定非常麻烦、效率低下而且容易出错,学生的满意度也较低。  2场地预定系统需求分析  为了方便体育馆羽毛球场地预定的管理,以办公软件Excel进行编程制作羽毛球场地预定系统,此场地预定系统有如下要求:不用进行新记录本的抄写,不出现长期预定信息的遗漏、错位等错误;能清晰地看出不同时间段的本校学生优惠政策,以及是否加收灯光费;能方便地修改长期预定信息,并保证信息的及时更新;能一目了然看到场地预定

3、信息;不再需要一大堆纸质材料,实现无纸化高效、环保办公,减轻工作人员劳动量。  3场地预定系统的实现  3.1表格结构及功能介绍  利用Excel表格建立新的工作簿,并建立14个工作表如图1。  工作表分为两组,第一组由“周一,…,周日”组成,第二组由“壹,…,柒”组成;第一组表是用于每天的场地预定,第二组表是记录长期预定信息;两组表结构一致,第一组中多了几个功能按钮。两组表有一一对应关系(如“周一”与“壹”),如第二组工作表的单元格有记录,单击第一组表中相对应工作表的左上角按钮后会自动将对应的单元格变成红色,表示此场地已经被提前预定。表中的3种不同的浅底色,用于提示工

4、作人员注意优惠情况及加收灯光费情况。  预定场地时,只需选取场地单元格后,点击“预定场地”按钮,此场地单元格将变成深蓝色,表示此场地已经交费预定;对于已预定的场地单元格,可选取后点击“取消预定”按钮将预定取消。“清除当天”按钮是用于清除场地的预定信息,以用于下次场地的预定。如果在当天清除场地预定信息前还存在红色单元格,说明此场地的长期预定者未交费。  3.2第一组工作表中相关按钮的VBA编程  (1)左上角绿色按钮VBA编程。用IF语句判断长期预定信息工作表的单元格是否为空,若不为空,则在相应的工作表单元格中对其Color属性进行赋值。如“IfExcel.Sheets(

5、"长期预定信息工作表名").Cells(i,j)<>""ThenExcel.Sheets("对应工作表名").Cells(i,j).Interior.Color=颜色值(如:255)”  (2)“预定场地”按钮VBA编程。用语句“Excel.ActiveCell.Interior.Color=颜色值(如:16711680)”  (3)“清除当天”按钮。用for循环语句对所要求清除的单元格进行操作,用语句“Excel.Sheets("工作表名").Cells(i,j).Interior.Pattern=xlNone”将单元格清空(底色为白色),如果需要让单元格有不同的底色

6、,可以通过对当前单元格的ThemeColor和TintAndShade属性进行赋值。  (4)“取消预定”按钮VBA编程。使用语句“Excel.ActiveCell.Interior.Pattern=xlNone”可将当前活动单元格变空(底色为白色),如果需要让单元格有不同的底色,可以通过对当前单元格的ThemeColor和TintAndShade属性进行赋值。  4结语  Excel在日常的管理工作中应用极为广泛,对日常生活中碰到的问题进行提炼、总结,并在Excel中结合VBA编程进行相应功能的开发,可以将一些重复性、繁琐的工作大大简化,使工作准确率、效率得到显著提高

7、。本文采用ExcelVBA编程实现了A大学体育馆羽毛球场地预定系统的制作,这仅为用Excel解决实际问题的一例,也希望此文章能对相关读者进行类似问题处理时具有启发、借鉴作用。

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
正文描述:

《用excel中vba编程技术优化羽毛球场地预定流程》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、用Excel中VBA编程技术优化羽毛球场地预定流程1问题的提出  天津市A大学新体育馆中有15个羽毛球场地,学校体育馆对羽毛球场地预定的规则为:场地提前3天预定;12点到14点及17点到19点实行半价收费;17点后加收灯光费;可以集体名义长期预定场地。为配合羽毛球场地预定,工作人员打印出周一到周日共7张场地表合订一块作为一本,用其中的一本单独记录长期预定场地的相关信息,新的一周开始,均要将此记录手抄到新的记录本上,用以标记已被提前预定的场地,再将此新记录本用于记录本周的场地预定。现在面临的问题为:每周进行新记录本的抄写比较辛苦,而且容易出现遗漏、错位;不知道长期预定场地

2、者当天是否已经来交费;记录不利于长期预定场地信息的经常性修改;记录中场地预定信息不能一目了然,不利于管理;晚上时间段忘记加收灯光费;学生优惠时间段全价收取。种种问题结合在一起,使场地预定非常麻烦、效率低下而且容易出错,学生的满意度也较低。  2场地预定系统需求分析  为了方便体育馆羽毛球场地预定的管理,以办公软件Excel进行编程制作羽毛球场地预定系统,此场地预定系统有如下要求:不用进行新记录本的抄写,不出现长期预定信息的遗漏、错位等错误;能清晰地看出不同时间段的本校学生优惠政策,以及是否加收灯光费;能方便地修改长期预定信息,并保证信息的及时更新;能一目了然看到场地预定

3、信息;不再需要一大堆纸质材料,实现无纸化高效、环保办公,减轻工作人员劳动量。  3场地预定系统的实现  3.1表格结构及功能介绍  利用Excel表格建立新的工作簿,并建立14个工作表如图1。  工作表分为两组,第一组由“周一,…,周日”组成,第二组由“壹,…,柒”组成;第一组表是用于每天的场地预定,第二组表是记录长期预定信息;两组表结构一致,第一组中多了几个功能按钮。两组表有一一对应关系(如“周一”与“壹”),如第二组工作表的单元格有记录,单击第一组表中相对应工作表的左上角按钮后会自动将对应的单元格变成红色,表示此场地已经被提前预定。表中的3种不同的浅底色,用于提示工

4、作人员注意优惠情况及加收灯光费情况。  预定场地时,只需选取场地单元格后,点击“预定场地”按钮,此场地单元格将变成深蓝色,表示此场地已经交费预定;对于已预定的场地单元格,可选取后点击“取消预定”按钮将预定取消。“清除当天”按钮是用于清除场地的预定信息,以用于下次场地的预定。如果在当天清除场地预定信息前还存在红色单元格,说明此场地的长期预定者未交费。  3.2第一组工作表中相关按钮的VBA编程  (1)左上角绿色按钮VBA编程。用IF语句判断长期预定信息工作表的单元格是否为空,若不为空,则在相应的工作表单元格中对其Color属性进行赋值。如“IfExcel.Sheets(

5、"长期预定信息工作表名").Cells(i,j)<>""ThenExcel.Sheets("对应工作表名").Cells(i,j).Interior.Color=颜色值(如:255)”  (2)“预定场地”按钮VBA编程。用语句“Excel.ActiveCell.Interior.Color=颜色值(如:16711680)”  (3)“清除当天”按钮。用for循环语句对所要求清除的单元格进行操作,用语句“Excel.Sheets("工作表名").Cells(i,j).Interior.Pattern=xlNone”将单元格清空(底色为白色),如果需要让单元格有不同的底色

6、,可以通过对当前单元格的ThemeColor和TintAndShade属性进行赋值。  (4)“取消预定”按钮VBA编程。使用语句“Excel.ActiveCell.Interior.Pattern=xlNone”可将当前活动单元格变空(底色为白色),如果需要让单元格有不同的底色,可以通过对当前单元格的ThemeColor和TintAndShade属性进行赋值。  4结语  Excel在日常的管理工作中应用极为广泛,对日常生活中碰到的问题进行提炼、总结,并在Excel中结合VBA编程进行相应功能的开发,可以将一些重复性、繁琐的工作大大简化,使工作准确率、效率得到显著提高

7、。本文采用ExcelVBA编程实现了A大学体育馆羽毛球场地预定系统的制作,这仅为用Excel解决实际问题的一例,也希望此文章能对相关读者进行类似问题处理时具有启发、借鉴作用。

显示全部收起
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。
关闭