基于VBA的Excel水利工程测量程序的开发应用.pdfVIP

信息技术 方日升 赵俊 1 (安徽省长江河道管理局测绘院 安徽芜湖 24000) 摘要：在水利工程测量中，野外测量后的内韭计算非常繁重，摩以适应现阶段快速发展的工程需求。ExceI应用软件具有强大的计算和 开发功能。基于vBA开发Fxcel测量程序具有简便，高效和通用的特点，程序的使用具有直观．夹时，动态。灵活，交互性与图形功能 强等明显的优势，本文以发实例介绍使用vBA开发ExceI测量程序的主要技术和方法。 VBA测量 函数 关键词：lAeeI 程序 中图分类号：Tv22 文献标识码；A 文章编号：1672—379l(2008)09(b)一0020—02 水利工程的数据处理是测量工作中最重 功能强大。 要、最耗时耗力的内容之～，提高数据处理的 1．2Excel函数的使用 dl=Int(de) 效率和精度一直是水利测量人员追求的目标。 Excel是数值数据处理应用软件，提供了 约300余个函数。VB编程可以使用的函数大 我们发现Excel完全能满足测量数据处理的需 要，本文以典型的测量数据处理实例，介绍使 约200个，而不是全部，有的函数VBA有自 d3／O．36) 用VBA开发Excel测量程序的主要技术与己的版本。在Exoel中进行测量工程的计算， 方法。 我们可以把经常用到的公式编辑成函数，在 EndFunction 需要时直接调用，在表格中选取参数即可得 DMS()函数源代码如下： Basic编辑器 F嘣ionDMS(deAs 1程序开发的主要技术 到计算结果。我们可以在Vi!汕al Double VBA的基本架构包括对象、属性、方中自定义度分秒转换为度函数deg()、度转换 法、事件等，在架构以及编程方法、对象的使 为度分秒函数drnS()、度转换为弧度函数rad si：阻=Sgn(de) 用等方面与ViSlJalBasic(VB)完全相同，VB的()、弧度转换为度函数dar()和方位角计算 de=Abs(de) 代码略做修改或不做修改即可移植成为Exoel函数f州()，自定义函数的函数名不能和E)∞e1 dl=Int(de) 的VBA代码。只是它无法像VB程序可以独中已有函数、关键字同名。 立存在，在Excel中保存文件，即保存了所有 在Exoel工作簿中打开菜单。工具”一 d3=Int(d2／60) Basic编辑器”。在Visual d4=d2～d3·60 文件模块，下面着重介绍ExcelVBA的编程。宏”一“ViSual 技术。 BaSjc编辑器中打开菜单“插入”一。过程”， If Then 1．1宏的使用 打开添加对话框。在名称栏中输入自定义函 d4=O VBA是一种编程语言，是包括许多数名，在类型选择框中选择。函数”，在范围 d3=d3+1 Microsoft应用程序的编程环境，它无法摆脱选择框中选择“公用”，单击“确定”。此时在 EndIf 其应用环境而独立运行。宏是一系列命令和 Excel工作簿中打开菜单。插入”一“函 lfd3=60The