电子表格Excel VBA测量程序分享
电子表格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型曲线、匝道）等。
下载：
线元法坐标正算VBA 1.0（单线元正算）
线元法坐标正反算VBA 2.0（单线元正算、反算）
线元法坐标正反算VBA 3.0（多线元正算、反算）
NO.4：结构物坐标计算程序VBA 1.0
说明：本程序适用于Office Excel运行，该程序可计算任意矩形边角点，适用于涵洞基础、桥墩承台等矩形、平行四边形角点坐标计算，本表为曲线坐标计算程序VBA 4.0改进版，属于多交点要素含坐标正算。
下载：点击下载
NO.5：测回法观测手薄(支导线计算)bata1
说明：本程序适用于Office Excel运行，该程序适用于导线控制测量多测回的数据内业处理，可直接在表中输入观测原始数据后自动计算出支导线坐标。
下载：点击下载
NO.6：放样计算【方位角和距离】VB函数bata2
说明：本程序适用于Office Excel运行，该程序适用于计算两点间坐标方位角和水平距离，用于现场测量放线使用。
下载：点击下载
NO.7：附合导线简易平差
说明：本程序适用于Office Excel运行，该程序适用于附合导线简易平差。
下载：点击下载
NO.8：极坐标测量放样计算表
说明：本程序适用于Office Excel运行，该程序适用于现场测量放样，包括：水平夹角、弧度显示、方位角、距离（类似于放样计算【方位角和距离】VB函数bata2）。
下载：点击下载
NO.9：曲线任意点切线方位角计算表
说明：本程序适用于Office Excel运行，该程序适用于任意曲线、任意点的切线方位角计算（包括：复曲线、S型曲线、匝道）等。
下载：点击下载
NO.10：竖曲线高程计算程序VBA 1.0
说明：本程序适用于Office Excel运行，该程序适用于竖曲线高程计算（含多数据库）。
下载：点击下载
NO.11：水准测量高差闭合差调整表(米)bata1
说明：本程序适用于Office Excel运行，该程序适用于水准测量简易平差。
下载：点击下载
NO.12：无定向导线平差计算表Beta1
说明：本程序适用于Office Excel运行，该程序适用于无定向导线平差，在已知两点不通视的情况下用进行导线测量的方式属于无定向导线，可进行简易导线平差。
下载：点击下载
NO.13：直线坡度高程计算查询表
说明：本程序适用于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编写，某些程序未使用ActiveX 控件执行，所以输入数据的某些时候不会触动宏则数据不会变化）。
推荐相关文章：
教你如何通过ExcelVBA编写测量坐标计算程序解读徕卡DNA03电子水准仪原始数据
利用Excel绘制横断面线的一种方法
测量坐标计算程序V5