运用VBA开发水文数据自动化统计表.pdfVIP

第 17卷第 1期 水利科技与经济 Vo1．17 No．1 2011年 1月 WaterConservancyScienceandTechnologyandEconomy Jan．，2011 运 用 VBA 开 发 水 文 数 据 自动 化 统 计 表 陈业超 (中山市中顺大围工程管理处 ，广东 中山 528400) [摘 要] VisualBasicforApplication(VBA)是 Microsoh面向最终用户的应用软件编程语言。 在 Excel中使用VBA，可以开发统计大量数据的程序。而在水文 日常工作 中，需要制作大量的 水文数据统计报表。举例介绍如何利用VBA将这些报表统计操作记录一个VBA程序，再加上 自已手写的一些程序 ，就可以实现水文数据统计 自动化。 [关键词] VBA；逐潮高低潮位表；高潮；低潮；涨潮差；落潮差；涨潮历时；落潮历时 [中图分类号] TP39 [文献标识码] B [文章编号] 1006—7175(2011)01—0099—02 由于Excel2000有强大公式和函数功能，经常用它来 Setoaddcommandpopup oaddcommandbar．Controls． 统计各种数据，假如在 Excel2000中使用 VBA(Visual Add(msoControlPopup，，，2) BasicforApplication)，就可以将大量的、重复的操作记录 Withoaddcommandpopup 为一个 VBA程序，用户只需利用一个简单的菜单命令重 ． Caption= 水文菜单” 现程序记录内容 ，从而实现复杂操作的自动化。而在水 With．Controls．Add(msoControlButton) 文工作上需要统计大量的水文数据。在沿海一带以潮汐 ． Caption=”制作新表” 为主的感潮河段站需编制逐潮高低潮位表、潮位月年统 ． OnAction = clear 计表、逐 日最高最低潮位表等统计表 ，特别是逐潮高低潮 EndWith 位表 ，各个水位站每个月初都需制做上个月的逐潮高低 2 根据 “水文菜单”的子菜单逐步实 潮位表。假如利用 VBA将这些报表统计操作记录一个 VBA程序，再加上 自已手写的一些程序 ，就可以实现水文 现报表制作 数据统计 自动化。下面就以利用VBA开发逐潮高低潮位 (1)子菜单 “制作新表”，在运用代码：Range(“A12： 表制作程序为例 ，试述一下 VBA在水文数据统计上的应 aa149”)．ClearContents清空数据输入区的数据 ，这样就可 用 。 以在做好一个月份的报表保存好后 ，清空数据，然后再制 《逐潮高低潮位表》一直以来是用传统的手算方法制 作不同月份的报表。 做。该报表的传统制做流程是： (2)子菜单 “输入 日期”，在 “Visualbasic编辑器”新 (1)按 《水文资料整编规范》在 《逐潮高低潮位表》中 建一个用户窗体 “报表类型”，按水文报表规范根据本月 填入潮位、时间、雨量和3／期 (公历、夏历)。 份第一个潮位和最后一个潮位是否为高潮或是低潮将报 (2)手工计算出高潮、低潮 、涨潮差、落潮差、涨潮历 表分为4种类型让用户选择。接着在新建一个用户窗体 时、落潮历时。 “输入 日期”，利用同一天潮位的时钟是递增的，而第二天 (3)统计出高潮、低潮 、涨潮差、落潮差、涨潮历时、落 第一个潮位时间的时钟比第一天最后一个潮位出现时间 潮历时的最大值 (包括出现 日期)、最小值 (包括出现 日 的时