浅谈Excel及Excel VBA在水文测验方式方法创新中几点应用.docVIP

浅谈Excel及Excel VBA在水文测验方式方法创新中几点应用 　　摘要:Excel电子表格现在已经是我们工作必不可少的工具了,虽然现在在功能上有比它更加强大的平台(Visual Basic 6.0和现在广泛使用的.NET平台),但是在水文资料分析上Excel却有它独特的优点,更能体现出它的灵活、便捷、精确的特点。下面我谈一下我在工作中对Excel的几点认识,希望各位批评指正! 　　关键词:方式方法创新 电子表格 函数 VBA 　　 　　1、如何应用已知工具,和在其中进行查询、插补、筛选的功能。 　　1.1 查询功能 　　在A、B、C 3列为大断面原始数据,分别为点号、起点距、高程。为了查询河底高程的最低点即D2中的公式为:“=MIN(C2:C56)”;E2中的公式为: 　　“=MATCH(D2,C2:C100,0)”即查询河底高程最低点所在的起点距位置。 　　1.2 在大断面上插补测流的左右水边,公式及功能如下 　　E3为测流水位,F3中公式为:=MATCH(E3,C2:C56,-1),功能为查询测流水位在断面上的位置;F4中公式为:=INDEX(C2:C100,F3),功能为查询F3对应的河底高程;即根据查询、引用、插补功能查询出左右水边。 　　1.3 数据的筛选功能 　　在Excel中有着强大的数据筛选功能,主要分为自动筛选和高级筛选。特别是自动筛选中的自定义筛选 　　功能比较强大,在水位自记固存数据格式中分别是日期、时分、水位,原始数据为6分钟要筛选出半小时的数据,筛选原理即为TIME列等于??:30或者等于??:00。用?表示单个字符;*表示多个字符串,可以是一个字符也可以是几个字符。 　　 　　2、 VBA在校核水尺检校资料上的应用。 　　本功能为利用excel vba 的功能对水尺零点高程测量成果进行校核。利用宏这个平台,在VBA的基础上对电子表格进行判断、调用、计算、成果输出。成果表见水文普通测量规范SL58/93附录A中水尺零点高程测量记载表与填制说明。 　　2.1 过程分析 　　A-G列为原始观测数据,即起校点为白校8,中间有转点,目的是对TP3进行校核。计算转点高程用后视中丝和前视中丝进行,计算水尺高程间视数据。宏编辑中首先要判断转点、水尺和结束的位置,主要分为视距计算、往测、返测计算。 　　2.2 源代码数据 　　Function Roundu(a, b) 　　 见第四部分 　　End Function 　　Sub cal() 　　i = 3 　　dataend = 0 结束位置 　　Localtion = 0 转点位置 　　For i = 3 To 100 查找转点与结束位置 　　If Not (IsEmpty(Cells(i, 2))) Then 　　 　　If Cells(i, 2) = Cells(i + 2, 2) Then 　　Localtion = i 　　End If 　　i = i + 1 　　Else 　　dataend = i 　　Exit For 　　End If 　　Next i 　　 　　计算往测 　　baseback_b = Cells(3, 5) 往测黑面基准数值 　　baseback_r = Cells(4, 5) 往测红面基准数值 　　baseh = Cells(3, 12) 　　For i = 5 To Localtion 　　 If IsEmpty(Cells(i, 6)) Then 　　 h_b = baseback_b - Cells(i, 7) 　　 h_r = baseback_r - Cells(i + 1, 7) 　　 Else 　　 h_b = baseback_b - Cells(i, 6) 　　 h_r = baseback_r - Cells(i + 1, 6) 　　 End If 　　 　　 If h_b 0 Then 　　 Cells(i, 8) = h_b / 1000 　　 Else 　　 Cells(i, 9) = h_b / 1000 　　 End If 　　 If h_r 0 Then 　　 Cells(i + 1, 8) = h_r / 1000 　　 Else 　　 Cells(i + 1, 9) = h_r / 1000 　　 End If 　　 avgh = Roundu((h_b / 1000 + h_r / 1000) / 2, 3) 　　 If avgh 0 Then 　　 Cells(i, 10) = avgh 　　 Else 　　 Cells(i, 11) = avgh