《excelvba在闭附合导线计算中的应用开发.kdh(1)》由会员分享，可在线阅读，更多相关《excelvba在闭附合导线计算中的应用开发.kdh(1)（8页珍藏版）》请在金锄头文库上搜索。
1、EXCELVBAEXCELVBA 在闭附合导线计算中的应用开发在闭附合导线计算中的应用开发.kdh(1).kdh(1)本文由 lijunxue08 贡献pdf 文档可能在 WAP 端浏览体验不佳。建议您优先选择 TXT，或下载源文件到本机查看。技术创新内江科技年第期78EXCEL VBA 在闭附合导线计算中的应用开发冯上朝 刘 莎（陕西铁路工程职业技术学院） 摘 要 文章阐述了利用 编制导线计算相关自定义函数的关键技术，并提供部分源代码，以及通过实例介绍如何制作 闭附合导线计算模板。 关键词 自定义函数 计算模板 测量工作者利用自带函数编制表格进行测量内业计算已 成为主要形式。但是单纯利用内置
2、函数处理测量计算需要多 重嵌套，实用性及可读性差，犯错率也极高，给使用者带来不小障 碍。利用 编辑器自定义函数功能可以编制完全符合测量 内业计算的函数，极大程度地减少了单元格函数编辑的嵌套数，通过 配置注释程序可以使自定义函数功能在测量内业计算中更加 完善、实用和具有可读性。 主要问题分析及处理 度分秒转化为度（ ） ， ， （） （ ） （） （） ） （ ） ） （） （） ） 度分秒转化为度 （） “坐标反算”函数。 坐 标 反 算 （ ， ， ） ， （ ） （ ， ， （ ， ， ） ） 度转化为度分秒 （ ） ） ） 度转化为度分秒 （ ） ） ） 度转化为度分秒 （ ） ） ）
3、坐标反算 （ ， ， ） （）注释程序。 坐标反算注释（） ：坐标反算， ：即 坐标增量，即坐标增量。为型，表示返回边 长，表示返回方位角，默认为 按类似的方法我们还可以编制以下函数：度转化为度分秒（ ） ；角度加减（ （） ） ；角度乘除（ ， ， ） ；四舍六入奇进偶舍（ ， ） ； 坐 标 增 量 （ ， ， ） ；方位角推算（ （） ） 及这些函数的注释程序。 实例介绍闭附合导线计算模板设计（）角度的形式转换和运算。通常外业观测所得的角度数据其 单位是进制的度分秒，但在中没有该单位，而仅仅只有弧 度和进制“度”之间转换的内部函数。为此，必须编制一对完成 “度分秒转换为度” 、 “度转化
4、为度分秒”的自定义函数。类似，应 该编制一个直接输入度分秒形式进行加减（乘除）运算然后最终得到 度分秒结果的“角度加减”和“角度乘除”函数。 （）方位角判断。测量计算中方位角的取值范围为（ ） ，如果方位角推算只单纯的进行角度加减最终结果就极有可 能超出范围（例如：或 ） 。为此需要编制一个能 判断方位角各象限取值的“方位角推算”函数。 （）数据的修饰。测量中对数据的整理习惯上运用“四舍六入 奇进偶舍” 。而在中没有相应的内置函数，如果直接在单元 格输入完成相应功能的公式，则相当繁琐。所以，我们同样需要编译 一个“四舍六入奇进偶舍”函数。 （）单个函数返回值选择。由于单个函数只返回一个值，如果
5、 想设计一个能返回多种不同值的自定义函数，就必须设计一个具有选 择意义的参数（详细见代码） 。 （）除零问题。在编译坐标反算自定义函数时，需要计算反正 切函数，其中存在因坐标相同而除零的情况，此时应作特例处理。 （）精度问题。计算机运算是按照一定精度的近似计算，这就 决定了运用计算机进行数据计算会因微小的误差而出错，例如用 （） ） （） ） ） ） ）返 回 秒，当为时在计算机内部被记成，用（）函数取 整时成了，使最后结果偏离正确值。因此当在取整末位为零时，就 应该在不影响原始数据参与计算的成果精度下，对它进行一个微量调 整。即在此原始数据上加上一个相同符号足够小的小数（例： （） ） ，这
6、样计算结果就能符合要求了。 （）函数可读性。根据测量计算所编制的自定义函数虽然非常 实用，但是对于大多数使用者来说，函数自身比较陌生，对函数一些 参数的输入形式及其自身的使用不是很了解给使用者带来了不小障 碍。此时，我们就可以为自定义函数添加注释程序，这样使用者就可 以根据函数的提示信息很轻松地进行操作了。 开发函数源代码设计在工 作 表 界 面 下 ， 单 击 【 工 具 】 【 宏 】 【 编辑器】命令。在窗口下单击【插入】【模块】【过 程】命令，打开【添加过程】对话框，在“名称”文字框中输入自定 义函数名，在“类型”选项中选择“函数” ，在“范围”选项中选择 “公有的” ，单击【确定】
7、，系统就会在当前模块中创建一个自定义 函数。但是，这种方法创建的自定义函数没有设置函数的程序代码， 因此，还需要在代码窗口中人工添加所需代码。鉴于篇幅考虑，仅介 绍部分关键导线计算自定义函数。其他程序可以仿此方法进行编写。 （）“度分秒转换为度”函数。在电子表格中编排闭附合导线坐标计算表，其中加粗字 体表示计算表格的标题栏名称以及导线计算步骤中所涉及到的几个关 键项目名称。主要包括的单元 格有， ，；倾斜字体表示 导线计算中所涉及的点名、观 测角、边长、已知坐标和限差 值。主要包括的单元格有 ， ，。 闭附合导线计算步骤及公式输 表 闭附合导线坐标计算79内江科技年第期技术创新入如下： （）坐
8、标反算。 坐 标 反 算 （， ） ； 坐标反 算 （ ，） （）角度闭合差计算。 角 度 加 减 （，） ； 方 位 角 推 算 （，） 角度加减（，） （）角度闭合差限差计算及精度评定。 角 度 乘 除 （，（） ，） ；（）（） ，合格，不合格） （）角度改正数计算。 （合格 ，） ；￥；自动填充 。 注意：单元格中设计（）函数主要目的是判断当角度闭合差 合格时，则继续进行以下步骤的计算并显示其结果；否则，将以下进 行的步骤结果全部显示为，提醒观测人员外业数据有误。 （）推算方位角。 方位角推算（，） ；自动填充。 （）坐标增量闭合差的计算（根据测量习惯保留三位有效数 字） 。 四舍六入
9、奇进偶舍（坐标增量（，） ，） 四舍六入奇进偶舍（坐标增量（，） ，） ；自动填充 ，。 （：） ； （：） ； （） ； （） （）精度计算及判断。 四舍六入奇进偶舍（） ，） 四舍六入奇进偶舍（，） ；（） （） ，合格，不合格） （）坐标增量闭合差分配（为了保证精度坐标改正数保留四位 有效数字） 。 （：） ；四舍六入奇进偶舍（￥，）四 舍 六 入 奇 进 偶 舍 （￥，） ； 自 动 填 充 ，。 四舍六入奇进偶舍（：） ，） ；四舍六入奇进偶 舍（：） ，） （）各导线点坐标推算（根据测量习惯保留三位有效数据） 。 四 舍 六 入 奇 进 偶 舍 （，） ； 四 舍 六 入 奇 进
10、偶 舍 （，） 自动填充，。 结束语（）本文给出了一些测量计算中常用的自定义函数源代码，为 测量工作者今后利用 开发其他测量内业计算自定义函数 提供了一点肤浅经验。 （）对实际给定条件和观测情况不同的闭附合导线应用时只需 对文中模板进行微量修改。例如，观测角是左角时，就可将单元 格的输入公式改成“ 方位角推算（，） ”即可。 如果是测站数或导线等级不同时，只需对模板斜体字区域第行至第 行之间增加和减少相应行数并更改相应外业和限差数据，然后将 “角度观测值求和”单元格（与模板中的相仿）公式重新编辑， 其他仅需简单利用自动填充功能，即可完成所有计算。 （）自定义函数的注释程序必须先运行，只有在其运行后打开 对应自定义函数才有注释信息，否则，将不会出现任何提示内容。 参考文献 黄腾，蒋敏卫，朱晓丽 在测量中的应用 测绘通报， （）： 周卫 基于
