电子表格Excel VBA测量程序分享

1、电子表格Excel VBA测量程序分享 2012-2-13 11:16阅读(6977 赞(赞(154赞(简介：Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，Visual Basic forApplications（VBA）是一种VisualBasic的一种宏语言，是基于Visual Basic for Windows 发展而来的，主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic Script，VBA的使用可以达成执行特定功能或是重复性高的操作。适用：Microsoft

2、Office Excel办公软件NO.1：曲线坐标计算程序VBA说明：本程序适用于Office Excel运行，属于多交点坐标正算、反算程序，包括：多交点曲线要素、坐标正算、坐标反算、放样计算、竖曲线高程等。下载：曲线坐标计算程序VBA 1.0（单交点坐标正算）曲线坐标计算程序VBA 2.0（单交点坐标正算、反算）曲线坐标计算程序VBA 2.3（单交点坐标正算、反算、自动化）曲线坐标计算程序VBA 3.0（多交点坐标正算、反算）曲线坐标计算程序VBA 4.04.9（交点法、线元法、竖曲线等一体化程序） 2012-11-15 更新测量坐标计算程序 V5（交点法、线元法、直线、竖曲线等多种计算程序

3、） 2013-07-27 更新 NO.2：测量计算程序集成VBA 1.6说明：本程序适用于Office Excel运行，通过VBA编写的测量集成程序，属于单交点曲线，包括：坐标正算、坐标反算、坐标放样、角度转弧度、任意切线方位角、坐标展点、边角后方交会、坐标面积计算、无定向平差、水准平差、竖曲线高程、导线观测手薄、线元法坐标正算、线元法坐标反算、直线坐标正反算等。下载：点击下载NO.3：线元法坐标正反算VBA说明：本程序适用于Office Excel运行，是线元法坐标正算、反算一体程序，可以计算多线元数据，适用性广（包括：复曲线、S型曲线、匝道）等。下载：线元法坐标正算VBA 1.0（单线元正

4、算）线元法坐标正反算VBA 2.0（单线元正算、反算）线元法坐标正反算VBA 3.0（多线元正算、反算）NO.4：结构物坐标计算程序VBA 1.0说明：本程序适用于Office Excel运行，该程序可计算任意矩形边角点，适用于涵洞基础、桥墩承台等矩形、平行四边形角点坐标计算，本表为曲线坐标计算程序VBA 4.0改进版，属于多交点要素含坐标正算。下载：点击下载NO.5：测回法观测手薄(支导线计算bata1说明：本程序适用于Office Excel运行，该程序适用于导线控制测量多测回的数据内业处理，可直接在表中输入观测原始数据后自动计算出支导线坐标。下载：点击下载NO.6：放样计算【方位角和距离

5、】VB函数bata2说明：本程序适用于Office Excel运行，该程序适用于计算两点间坐标方位角和水平距离，用于现场测量放线使用。下载：点击下载NO.7：附合导线简易平差说明：本程序适用于Office Excel运行，该程序适用于附合导线简易平差。下载：点击下载NO.8：极坐标测量放样计算表说明：本程序适用于Office Excel运行，该程序适用于现场测量放样，包括：水平夹角、弧度显示、方位角、距离（类似于放样计算【方位角和距离】VB函数bata2）。下载：点击下载NO.9：曲线任意点切线方位角计算表说明：本程序适用于Office Excel运行，该程序适用于任意曲线、任意点的切线方位角

6、计算（包括：复曲线、S型曲线、匝道）等。下载：点击下载NO.10：竖曲线高程计算程序VBA 1.0说明：本程序适用于Office Excel运行，该程序适用于竖曲线高程计算（含多数据库）。下载：点击下载NO.11：水准测量高差闭合差调整表(米bata1说明：本程序适用于Office Excel运行，该程序适用于水准测量简易平差。下载：点击下载NO.12：无定向导线平差计算表Beta1说明：本程序适用于Office Excel运行，该程序适用于无定向导线平差，在已知两点不通视的情况下用进行导线测量的方式属于无定向导线，可进行简易导线平差。下载：点击下载NO.13：直线坡度高程计算查询表说明：本程

7、序适用于Office Excel运行，该程序适用于直坡高程计算（含横坡）。下载：点击下载NO.14：(附闭合水准测量平差表格程序说明：本程序适用于Office Excel运行，该程序适用水准测量辅助平差，可进行附合、闭合水准平差且通过改正数自动调整高程。下载：点击下载NO.15：徕卡DNA03电子水准仪GSI源文件自动处理程序说明：本程序适用于Office Excel运行，该程序适用于对徕卡DNA03电子水准仪原始数据GSI源文件进行自动填表（一（二）等水准观测手薄）记录。下载：点击下载注意：本表需启用"宏"方可运行，Office Excel 启用宏方法如下：A.Excel 2003版:工具>>>宏>>>安全性>>>选择较低的安全级别>>>重新打开文件即可运行。B.Excel 2007版:Office按钮>>>Excel选项>>>信任中心>>>信任中心设置>>>宏设置>>>启用所有宏。提示：若在使用过程中修改数据后出现数据结果无变化，请双击无变化的单元格或者保存重新打开即可（由于本程序使用的是VBA编