下载文档原格式
电子表格Excel VBA测量程序分享2012-2-13 11:16阅读(6977)简介：Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，Visual Basic forApplications（VBA）是一种VisualBasic的一种宏语言，是基于Visual Basic for Windows 发展而来的，主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。
也可说是一种应用程式视觉化的Basic Script，VBA的使用可以达成执行特定功能或是重复性高的操作。
适用：Microsoft Office Excel办公软件NO.1：曲线坐标计算程序VBA说明：本程序适用于Office Excel运行，属于多交点坐标正算、反算程序，包括：多交点曲线要素、坐标正算、坐标反算、放样计算、竖曲线高程等。
下载：曲线坐标计算程序VBA 1.0（单交点坐标正算）曲线坐标计算程序VBA 2.0（单交点坐标正算、反算）曲线坐标计算程序VBA 2.3（单交点坐标正算、反算、自动化）曲线坐标计算程序VBA 3.0（多交点坐标正算、反算）曲线坐标计算程序VBA 4.0~4.9（交点法、线元法、竖曲线等一体化程序）2012-11-15 更新测量坐标计算程序 V5（交点法、线元法、直线、竖曲线等多种计算程序）2013-07-27 更新NO.2：测量计算程序集成VBA 1.6说明：本程序适用于Office Excel运行，通过VBA编写的测量集成程序，属于单交点曲线，包括：坐标正算、坐标反算、坐标放样、角度转弧度、任意切线方位角、坐标展点、边角后方交会、坐标面积计算、无定向平差、水准平差、竖曲线高程、导线观测手薄、线元法坐标正算、线元法坐标反算、直线坐标正反算等。
下载：点击下载NO.3：线元法坐标正反算VBA说明：本程序适用于Office Excel运行，是线元法坐标正算、反算一体程序，可以计算多线元数据，适用性广（包括：复曲线、S型曲线、匝道）等。
基于Excel的导线平差计算作者：李张华姚连璧来源：《名城绘》2019年第02期摘要：本文主要探讨如何利用Microsoft Excel内置的VBA来编写导线网平差的计算程序的方法。
该方法具有计算步骤、计算方法可视化，计算原理、计算公式紧密结合的解题式特点，非常适合刚刚进入测量工作中的工作人员解决测量实践中平差计算问题并能从基础逐步掌握测量平差的原理。
关键词：测量误差；测量平差；导线网；平差计算；最小二乘法1引言Microsoft Excel是微软公司开发的Office办公软件之一，是目前市面上使用率最高也是功能最全面的电子表格软件。
它不仅拥有丰富的电子表格制作和编辑功能，还拥有功能强大的函数计算功能，能够创建和编辑函数公式，可以利用软件系统本身提供的函数公式来完成各项复杂的数学计算。
本文在介绍Microsoft Excel基本的运算操作方法的基础上，结合平差算例全面阐述Microsoft Excel在导线测量平差中的应用方法。
2闭合导线平差和附合导线平差的基本原理和方法2.1角度闭合差的计算与调整（1）计算闭合差：（2）计算限差：（3）若在限差内，则按平均分配原则，计算改正数：（4）计算改正后新的角值：2.2 坐标增量闭合差的计算与调整（1）计算坐标增量闭合差。
有：导线全长闭合差：导线全长相对闭合差：（2）分配坐标增量闭合差若 K不大于1/2000 ，则将fx、fy以相反符号，按边长成正比分配到各坐标增量上去。
并计算改正后的坐标增量。
2.3坐标计算根据起始点的已知坐标和经改正的新的坐标增量，来依次计算各导线点的坐标。
两相邻导线点i，j，已知点的坐标及i点至j点的坐标增量，用下式推算j点的坐标：闭合导线从已知点开始进行推算回已知点应当与原来的已知数据值相同，作为推算正确性的检核。
3基于Excel实现测量平差程序3.1 Microsoft Excel的基本功能Microsoft Excel中有大量的数学公式和数学函数可以选择使用，利用Microsoft Excel可以执行许多数学计算，并且在分析信息和管理电子表格中的数据信息列表中，可以实现许多便利的功能。
Excel在井下无定向导线中的应用作者：齐双峰来源：《科技探索》2014年第02期摘要：随着矿井服务年限的加长新老采区接替，原有的井下平面控制点部分缺损严重，使某些控制点成为孤立的控制点不能使用，在不用从新布设控制网时可利用井下无定向导线进行网内的加密工作。
利用Excel强大的数据计算功能计算测量数据。
关键词：无定向导线 Excel 测量前言本文以井下平面控制测量为例说明了无定向导线的原理和利用Excel来解决测量数据计算的有关问题。
由于矿井服务年限以长预设计新采区，新采区附近没有足够的控制点井下导线点缺损严重不能保证控制网的精度。
从新布设控制网费时、费力，在新采区附近找到8# 和57#两点，但两点之间不通视无法观测方位连接角不能作为起算边，但是受导线两端已知点的控制可间接求得起始方位角。
1 计算原理导线的两端均未测连接角，故无法直接从已知的坐标方位角推算出个导线边的坐标方位角。
为此，采用如下途径：首先对导线边A1假定一个坐标方位角α'A1，依此推算出个导线边的假定坐标方位角α'ij。
然后按支导线的计算顺序推求各点的坐标x'i，y'j。
由几何原理知，实际的导线与按假设坐标方位角推算的导线形状及大小均相同的关系，仅仅是它们的方位有所不同，如图1所示。
因此，以下的任务便是将这条推算出的导线旋转至实际位置。
其旋转角Δα为Δα=αA1-α'A1连接A、N两点和A、N '两点。
由图1中的几何图形关系知∠NAN'=Δα，所以Δα=αAN-αAN'αAN和αAN'可有A、N和A、N'的坐标反算求得。
Δα算出之后，将各假定坐标方位角加以改正，得实际标方位角αij为αij= α'ij+Δα，最后重复一次支导线的计算工作，便可求得各导线点的坐标。
2 Excel程序代码根据以上计算原理，我使用Excel表格编写了井下无定向导线的计算程序代码，以J12、U13、W9、Y9、Z12、AA12单元格为例编写了平距、坐标方位角、ΔX、ΔY、X、Y的程序代码。
计算方案的设置一、导线类型：1.闭、附合导线(图1)2.无定向导线(图2)3.支导线(图3)4.特殊导线及导线网、高程网（见数据输入一节)，该选项适用于所有的导线，但不计算闭合差。
而且该类型不需要填写未知点数目。
当点击表格最后一行时自动添加一行，计算时删除后面的空行。
5.坐标导线。
指使用全站仪直接观测坐标、高程的闭、附合导线。
6.单面单程水准测量记录计算。
指仅进行单面读数且仅进行往测而无返测的水准测量记录计算。
当数据中没有输入“中视”时可以用作五等、等外水准等的记录计算。
当输入了“中视”时可以用作中平测量等的记录计算。
说明：除“单面单程水准测量记录计算”仅用于低等级的水准测量记录计算外，其它类型选项都可以进行平面及高程的平差计算，输入了平面数据则进行平面的平差，输入了高程数据则进行高程的平差，同时输入则同时平差。
如果不需进行平面的平差，仅计算闭、附合高程路线，可以选择类型为“无定向导线”，或者选择类型为“闭附合导线”但表格中第一行及最后一行数据（均为定向点）不必输入，因为高程路线不需定向点。
二、概算1.对方向、边长进行投影改化及边长的高程归化，也可以只选择其中的一项改正。
2.应选择相应的坐标系统，以及Y坐标是否包含500KM。
选择了概算时，Y坐标不应包含带号。
三、等级与限差1.在选择好导线类型后，再选择平面及高程的等级，以便根据《工程测量规范》自动填写限差等设置。
如果填写的值不符合您所使用的规范，则再修改各项值的设置。
比如现行的《公路勘测规范》的三级导线比《工程测量规范》的三级导线要求要低一些。
2.导线测量平差4.2及以前版本没有设置限差，打开4.2及以前版本时请注意重新设置限差。
四、近似平差与严密平差的选择及近似平差的方位角、边长是否反算1.近似平差：程序先分配角度闭合差再分配坐标增量闭合差，即分别平差法。
2.严密平差：按最小二乘法原理平差。
3.《工程测量规范》规定：一级及以上平面控制网的计算，应采用严密平差法，二级及以下平面控制网，可根据需要采用严密或简化方法平差。
国防交通工程与技术 ２０１９年３月 １７，（０２） 收稿日期：２０１８－１２－０４ 作者简介：刘占云（１９８６—），男，工程师，主要从事工程技术管理工作。
５０２６８８９８２＠ｑｑ．ｃｏｍ基于Ｅｘｃｅｌ的导线控制测量的数据处理刘占云（中铁六局集团石家庄铁路建设有限公司，河北石家庄０５００５０）摘 要：为了更好的将Ｅｘｃｅｌ自动计算功能应用到施工现场测量工作中，通过Ｅｘｃｅｌ ＶＢＡ语言，结合测量导线计算公式，采用近似平差原理，自动处理全站仪采集的原始数据以得到自动计算的结果。
该方法提高了施工现场施工测量工作效率。
关键词：导线控制测量；近似平差；Ｅｘｃｅｌ ＶＢＡ；数据处理ＤＯＩ：１０．１３２１９／ｊ．ｇｊｇｙａｔ．２０１９．０２．０１８中图分类号：Ｕ４５２．１３ 文献标识码：Ａ 文章编号：１６７２－３９５３（２０１９）０２－００７２－０６１Ｅｘｃｅｌ的扩展应用随着全站仪在工程上的普及应用，用全站仪进行导线控制网的测量已非常普遍，Ｅｘｃｅｌ作为一种非常普及的办公自动化软件，可以利用其开发语言ＶＢＡ，调用某些属性、方法和事件，处理平面控制测量的数据等工作。
Ｅｘｃｅｌ是Ｏｆｆｉｃｅ家族成员中一个功能强大、技术先进、使用方便的数据管理和分析系统。
它采用电子表格方式进行数据处理，工作直观方便。
Ｅｘｃｅｌ为用户提供了丰富的函数，用户可以随意进行各种数据处理、统计分析和辅助决策。
为了使得Ｅｘｃｅｌ发挥最大功效，可以借助于ＶＢＡ开发一些应用程序。
使用ＶＢＡ可以为Ｅｘｃｅｌ应用程序提供新的功能或增强现有的功能，从而减少在Ｅｘｃｅｌ中进行操作所需的工作量。
ＶＢＡ语言功能强大。
通过将ＶＢＡ与Ｅｘｃｅｌ结合起来，建立各种数据处理模型，不仅可以提高工作效率，也使得对各种数据的处理得心应手。
２已知数据的录入２．１ Ｅｘｃｅｌ标准格式的生成２．１．１建立表格打开Ｅｘｃｅｌ２００３程序，单击保存，名为“基于ＥＸ－ＣＥＬ的导线控制测量数据处理”，格式选择“模板”，在“保存位置选择自己要保存的位置”，单击“保存”。
Excel+VBA计算无定向导线
Excel+VBA计算无定向导线
摘要:本文结合无定向导线坐标计算原理采用Excel的VBA编程计算其坐标,给出了编程思路及源代码。
关键词:无定向导线Excel VBA
1 无定向导线计算简介
1.1 旋转角δ=αAB-αAB’
δ算出后将各假定方位角改正得到真实方位角,支导线法计算到终点B的坐标并与真实B点坐标比较计算出坐标闭合差fx及fy。
1.2 坐标闭合差
fx=XB-XB’;fy=YB-YB’用导线边长成比例求各点坐标增量改正数改正各边坐标增量消除误差,再求出各点坐标。
1.3 精度评定
导线全长相对闭合差除以导线边全长。
2 VBA编程思路
旋转角—闭合差—闭合差按长度比例改正—求各点坐标—评定精度。
3 全部源代码。
