香港腕表价格交流群

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

2022-02-05 13:15:10

 



简介: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源文件进行自动填表(一(二)等水准观测手薄)记录。

 

下载:点击下载

NO.16:徕卡DNA03电子水准仪GSI原始文件转换科傻平差IN1文件

说明:徕卡电子水准仪DNA03“线路测量”aBFFB、aFBBF测量模式自动记录并保存为GSI-8、GSI-16文件格式,通常使用徕卡办公软件LGO直接处理数据,由于在处理过程中繁琐,且无法直接生成科傻平差文件IN1标准格式,以借鉴此方法编写出了可直接导入GSI原始文件并可直接导出科傻IN1文件的程序。

 

下载:点击下载

注意:本表需启用""方可运行,Office Excel 启用宏方法如下:
A.Excel 2003
:工具>>>>>>安全性>>>选择较低的安全级别>>>重新打开文件即可运行。
B.Excel 2007:Office按钮>>>Excel选项>>>信任中心>>>信任中心设置>>>宏设置>>>启用所有宏。

 

提示:若在使用过程中修改数据后出现数据结果无变化,请双击无变化的单元格或者保存重新打开即可(由于本程序使用的是VBA编写,某些程序未使用ActiveX控件执行,所以输入数据的某些时候不会触动宏则数据不会变化)。


友情链接

Copyright © 2023 All Rights Reserved 版权所有 香港腕表价格交流群