Excel VBA在工程测量中的应用.pdf

ExcelVBA在工程测量中的应用 朱 徐 根 (安庆市建筑技工学校 ，安徽 安庆 246003) 摘 要：在工程测量工作中，有大量的数据需要处理，如果对 Excel进行一些挖掘 ，就可以方便地解决数据处理中的 许多问题 ，因为 Excel提供 了强大的二次开发功能。利用 Excel的强大 的二次开发环境 VBAIDE，可解决工程测量 中数 据处理 的一些特殊 问题 。 关键词：工程测量 ；ExcelVBA；数据处理 中图分类号 ：TP317 文献标识码 ：A 文章编 号：1007—4260(2008)02—0084—05 在工 程测 量工 作 中 ，室 #l-测 设完成 以后 ，就 要 对 数据 进 行 处理 。工 程 测 量 的数据 量 一 般 都非 常大 ， 特别 是平 面控 制测 量 的数据 量就 更大 。要 快捷 、准 确地 处 理 这 些数 据 ，往 往 需 要投 入 大 量 的人 力 物 力 。 有 时还 会遇 到一 些特 殊 的数据 处理 ，如计 算 一个 角度 的三 角 函数 值 ，角度 的单 位 是 6O进 制 ，而 Excel本 身无法 直接 计算 60进制 的角度 的三角 函数值 ；又 如 ，工作 表 中有 点坐 标值 (二 维 或者 三 维 )，要在 cAD 中又快 又直 接地 展绘 出来 ，也很 麻烦 。这时 ，如果 对 Excel进行 一些 挖掘 ，就 可 以方便 地解 决上 述 问题 ， 因为 Excel本 身提 供 了强 大 的二 次 开 发功 能 。本 文 就 利 用 Excel的强 大 的二次 开 发 环 境 VBAIDE，来 解 决上 面所 提到 的 问题 。 打开 Excel，按 Alt+Fll即进 入 VBAIDE，打开 VB界 面 。下 面就 如 何定 义 一 个 函数 ，然 后 利用 它 来解 决 60进制 的角度 的三角 函数 计算 问题 。 在 菜 单上依 次 点击 [插入 ]一 [模 块 ]，然 后输 入 如下代 码 。 PublicConstpi===3．14159265359 PublicFunction DEG (n A sDouble) Dim A AsDouble，B AsDouble，C AsDouble，D AsDouble，E AsDouble，F AsDouble，G As Double，NA AsDouble D ===Abs(n) + 0．000000000000001 F ===Sgn(n) A — Int(D) B — Int((D — A) * 1oo) C ===D — A ～ B ／100 DEG ===F * (A + B ／60 + C ／0．36) pi／180 EndFunction 这样 ，就定 义 了一个 名 字 叫 DEG 的 函数 ，它 的作 用 就 是转 换 6O进 制 的角 度 为 Excel认 识 的弧 度 。 编辑 完后 按 Alt+Q 即返 回 Excel，再 在某 一单 元 格 输 入 ===sin(deg(A1))(A1既可 以是 单 元 格 的值 ，也 可 以是输 入 的角度 值 )，回车 ，结 果 就 出来 了 。如 果 出现 #NAME?那 就 要 作 一 下 安全 设置 。依 次 点 ri具 ]一 [宏]一 [安全性 ]，在安全级选 项 卡上选 择 “中”或者 “低 ”，然后关 闭后 重新 打 开就 可 以了。 以后 只要是 6O进制 的角度 ，就用 它转换 ，非 常方 便 。 工程 测量 中 ，经 常碰 到导线 的计算 ，如果 没有 平差 计 算程 序 就 只有手 工计 算 ，那 么 工作量 就 特别 大 ， 这时如果编个程序来计算 ，就很简单 。下面就导线 附核 ，编写一个 附合导线计算程序 ，代码很简单 ，但很 实用 。下面是该程序 的代码 ： Sub附合 导线 计算 () Dim m AsInteger，nAsInteger，msAsDouble，ggAsDouble，shtAsObject，xxAsDouble’YYAs Double，S A sDouble Setsht— ThisW orkbook．ActiveSheet DoW hile sht．Cells(m + 3，4) ”” m — m 一_