Excel VBA在大断面测量计算中应用.docVIP

Excel VBA在大断面测量计算中应用 　　摘 要：随着信息化的不断发展，计算机早已成为日常办公的工具。其中Microsoft Office Excel有着强大的数据处理、统计分析和制图等功能，可方便绘出各种专业图表，实现图、文、表的完美结合。VBA编程可将各种操作集成起来，使复杂的操作简单化、批量化，使处理速度大大地提高，可以开发出非常具有实用价值的应用程序。文章旨在探索在Excel中应用VB编辑器编写大断面测量计算程序，完成大断面测量的分析计算自动绘制大断面图的任务。 　　关键词：VBA;大断面测量;计算 　　中图分类号：TP391.72;U172 文献标识码：A 文章编号：1006-8937（2016）03-0051-02 　　1 VBA简介 　　VBA（Visual Basic for Applications）基于Visual Basic for Windows发展而来，可用于开发Windows环境下的各类应用程序，是一种可视化的、面向对象的、采用事件驱动方式的结构化高级程序设计语言。它具有高效率、简单易学及功能强大的特点。用户可以轻易把日常工作利用VBA程序代码，高效、快速地编制出Windows环境下功能强大、图形界面丰富的应用软件系统，使重复任务自动化，提高工作效率。 　　 在Excel中，由于VBA可以直接应用Office套装软件的各项强大功能，所以用Excel作为开发平台，对于程序设计人员的程序设计和开发更加方便快捷，只需要直接使用，减少了很多编程工作。 　　2 大断面测量 　　 传统大断面测量工作，首先是进行岸上部分的水准测量和水下部分的水深测量。岸上部分采用四等水准引测，实测前应清除杂草和障碍物，在地形的转折点打入有编号的木桩作为高程的测量点。水下部分采用有效的测深方法测得水体水面到河床面得水深。 　　2.1 大断面测量计算 　　以某站某年汛前大断面测量计算为例，采用VBA编程在Excel平台中实现岸上部分的水准测量计算工作。相关情况见表1。 　　利用ExcelVBA编程实现计算工作，计算的部分代码如下： 　　 ……… 　　 aa = [d65536].End（xlUp）.Row 　　 For i = 5 + 2 To aa Step 2 有间视平均高差 　　 a1 = Cells（i， 6） 　　 b1 = Cells（i + 1， 6） 　　 If Cells（i， 6） lt;gt; And Cells（i + 1， 6） lt;gt; 0 Then 　　 If Cells（i， 6） - Cells（i + 1， 6） gt; 0.05 Then 　　 Cells（i， 7） = （a1 + （b1 + 0.1）） / 2 　　 End If 　　 If Cells（i， 6） - Cells（i + 1， 6） lt; 0.05 Then 　　 Cells（i， 7） = （a1 + （b1 - 0.1）） / 2 　　 End If 　　 If Cells（i， 6） - Cells（i + 1， 6） lt; 0.02 And Cells（i， 6） - Cells（i +1， 6） gt; -0.02 Then 　　 Cells（i， 7） = （a1 + b1） / 2 　　 End If 　　 End If 　　 If Cells（i， 6） lt;gt; And Cells（i + 1， 6） = 0 Then 无间视平均高差的计算 　　 Cells（i， 7） = Cells（i， 6） 　　 End If 　　Next i 　　……. 　　...... 　　 For i = 5 + 2 To aa Step 2 有间视平均高差 　　 a1 = Cells（i， 6） 　　 b1 = Cells（i + 1， 6） 　　 If Cells（i， 6） lt;gt; And Cells（i + 1， 6） lt;gt; 0 Then 　　 If Cells（i， 6） - Cells（i + 1， 6） gt; 0.05 Then 　　 Cells（i， 7） = （a1 + （b1 + 0.1）） / 2 　　 End If 　　 If Cells（i， 6） - Cells（i + 1， 6） lt; 0.05 Then 　　 Cells（i， 7） = （a1 + （b1 - 0.1）） / 2 　　 End If 　　 If Cells（i， 6） - Cells（i + 1， 6） lt; 0.02 And Cells（i， 6） - Cells