EXCEL宏语言在鄂尔多斯盆地地下水水位动态资料整理中的应用.pdfVIP

EXCEL宏语言在鄂尔多斯盆地 地下水水位动态资料整理中的应用 尹立河1·2候光才1’3张茂省1陶正平 (1西安地质矿产研究所，西安，7100542中国地质大学，北京，1000833，吉林大学，长春130026) 摘要：地下水水位动态反映了地下水系统能量随时间变化的状况，是地下水动态要素之一。本文详细介绍了基于 EXCEL VBA开发的动态资料整理程序，该程序可以对大批量的动态数据进行分析整理。本文具体介绍了程序的核心 模块一动态图表的生成程序，并给出了相应的程序源代码。 关键词：EXCELVBA，地下水，水位动态，资料整理 地下水水位动态反映了地下水系统能量随时间变化的状况，是地下水动态要素之一，为合理的 利用地下水，必须要掌握地下水的动态变化规律[1]。为了分析地下水水位动态的变化规律，首先要 将野外观测的数据用图表的形式表现出来。在区域地下水勘查过程中，水位动态点众多，数据庞大， 以目前正在开展的国土资源大调查项El一鄂尔多斯盆地地下水勘查为例，自项目开展以来共实测了 3万多次动态数据，为了分析这些水位动态变化规律，需要用图形的形式直观研究水位动态变化规 律，以及与其他影响水位动态的因素进行图形藕合分析。用传统的手绘曲线及其常规的EXCEL作图 方式汇制每个水位点的单点单年及单点多年动态图费时费力，笔者利用EXCEL自带的VBA语言开发 地下水水位动态数据整理的批处理程序，该程序可以完成水位动态图表的绘制和打印等功能，为大 批量动态数据处理提供了便捷的途径。 1动态数据格式 按照表1的格式整理所有动态点的野外观测资料。程序将根据孔号自动提取每个孔的动态数据， 按设计的好的格式生成每个孔的动态报表，同时完成诸如最大值、最小值等的统计数据。 ． 表1水位动态资料数据格式 —— —— 孔 焦 时 ‘—— ^—J ．= 四 五 六 七 八 九 十 十 十 位 孔 号 份 间 月 月 月 月 月 月 月 月 月 月 一 二 置 口 月 月 标 高 2主程序及功能简介 如图1所示，主程序主要由五个按钮组成，可以完成水位埋深到水位标高的转换、动态图表的 生成、中间数据的消除、图表打印和退出程序的功能。 如果动态资料是以水位埋深的形式输入的，可以利用程序的第一个功能模块，水位埋深转换成 水位标高。在生成图表的过程中，程序会产生一些中间性数据，可以利用取消文字模将这些数据删 除。打印图表模块会自动调整页面大小，将图表放到合适的位置上，并完成打印程序。整个工作完 成后，可按退出回到EXCEL界面。动态图表的生成模块是本程序的核心模块，其他模块都是该模块 395 的前后处理程序，下面就详细介绍一下这个模块的子模块及源代码。 图1动态资料整理程序主界面 动态图表的生成模块共包括5个子模块，可以完成动态表格的复制、数据填充、表头填充、数 据统计、生成动态图所需的数据和动态图的生成功能。然后利用call命令调用各个子模块[2]。 2000年地l、水水位动态年揪袭 井号 位置 泌 四 五 六 七 八 九 + +二 5 1D 15 20 25 30 平均 月 最高 统 计 最低 月变幅 年统计 平均水位 最高水位 最低水位 年变幅 2．1复制数据表格 第一个子模块用于复制空表格，为下步数据填充作准备。本例中的源代码都是用