胡磊

摘要：Excel VBA是基于Excel的一套程序语言。应用Excel VBA 进行电算是减轻设计人员负担，提高设计效率的有效方法。

关键词：Excel VBA；表格；中小河流；水面线；

Abstract: Excel VBA is a programming language based on Excel. Application of Excel VBA electric regarded as an effective way to alleviate the burden on the designers to improve design efficiency.

Keywords: Excel VBA; form; medium and small rivers; the water line;

中图分类号：TU195 文献标识码：A文章编号：2095-2104（2012）05-0020-02

Visual Basic for Applications（VBA）是一种Visual Basic的一种宏语言，VBA 是基于Visual Basic 发展而来的，它们具有相似的语言结构。Visual Basic 作为一套独立的 Windows 系统开发工具，可用于开发Windows 环境下的各类应用程序，是一种可视化的、面向对象的、采用事件驱动方式的结构化高级程序设计语言。它具有高效率、简单易学及功能强大的特点。VB 的程序语言简单、便捷，利用其事件驱动的编程机制，可以高效、快速地编制出 Windows 环境下功能强大、图形界面丰富的应用软件系统。

近年来中小河流开发治理工程，在全国各大省市大量开展，按照 “十二五” 规划，期间需完成5000多条中小河流重点河段的治理任务，涉及8000多个项目，时间紧、任务重、设计质量要求高，利用Excel VBA分析计算中小河流河道水面线，是提高设计效率的有效方法。

一、河道水面线计算方法

本文河道水面线采用天然河道非均匀渐变流的伯努利方程进行计算。

Z上+α上= Z下+α下+ hw

式中：Z上、V上———上游断面的水位、流速；

Z下、V下———下游断面的水位、流速；

hw=hy+hj ———两断面间水头损失；

hy=（J上+J下）ΔL /2———沿程水头损失；

——沿程摩阻坡度；

ε———两断面平均流速、平均流速系数；

———平均水力半径；

ΔL———两断面间距；

α下———系数，取1.0；

二、利用Excel VBA程序语言计算

首先新建一个Excel文档，在表格第6行输入“起始水位”、“河道桩号”、“河段长度”、“河道底宽”、“平台高度”、 “平台宽”、 “平台以上坡比”、 “河床糙率” 、“流量”标题项，在第7-18行输入相关数据。……