公路外业测量桩号转换工具(1.1-vba编程,自动计算)

毕业设计（论文）中文题目：Excel-VBA在道路中桩放样数据计算中的应用学习中心（函授站）：山西交通学习中心专业：土木工程姓名：陈南江学号：14677167指导教师：张亮梅北京交通大学远程与继续教育学院2018年8月毕业设计(论文)承诺书与版权使用授权书本人所呈交的毕业论文是本人在指导教师指导下独立研究、写作的成果。

除了文中特别加以标注和致谢之处外，论文中不包含其他人已经发表或撰写过的研究成果，也不包含为获得北京交通大学或其他教育机构的学位或证书而使用过的材料。

与我一同工作的同志对本研究所做的任何贡献均已在论文中作了明确的说明并表示了谢意。

本毕业论文是本人在读期间所完成的学业的组成部分，同意学校将本论文的部分或全部内容编入有关书籍、数据库保存，并向有关学术部门和国家相关教育主管部门呈交复印件、电子文档，允许采用复制、印刷等方式将论文文本提供给读者查阅和借阅。

论文作者签名：_________________ ______年_______月______日指导教师签名：_________________ _______年_______月______日毕业设计(论文)成绩评议毕业设计(论文)任务书本任务书下达给： 2014级土木工程（公路工程管理）专业学生陈南江设计（论文）题目：Excel-VBA在道路中桩放样数据计算中的应用一、毕业设计（论文）基本内容二、基本要求三、重点研究的问题四、主要技术指标五、其他要说明的问题下达任务日期：年月日要求完成日期：年月日指导教师：开题报告题目：Excel-VBA在道路中桩放样数据计算中的应用学生姓名：陈南江学号： 14677159 年月日一、文献综述填写说明：指根据论文题目查阅参考文献，通过文献的阅读写清该课题内容的国内外研究与应用现状、基本研究方法、当前存在的问题、发展动向，进而引出开展本设计（论文）研究的内容、意义、必要性和价值等（页面大小可以根据字数多少调整）。

公路逐桩坐标计算程序(可以计算对称、不对称缓和曲线)Lb1 0Z=？V=？W=V+2：Fixm｛K｝Lb1 1K>Z[W+5Z+4]=>W=W+1:Goto 1⊿(判断桩号在哪个交点范围，就是该交点曲线起点至下一交点曲线起点) S=K-Z[W+5Z+3] （计算该桩号与曲线起点的距离）R=Z[W+2Z+2]：L=Z[W+3Z+2]:E=Z[W+4Z+2] （读取该交点曲线要素R、Ls1 、Ls2）Pol（Z[W]-Z[W-1],Z[W+Z+2]-Z[W+Z+1]）（计算该交点与下一交点直线方位角）J<0=>J=J+360⊿A=JPol（Z[W-1]-Z[W-2],Z[W+Z+1]-Z[W+Z]）（计算该交点与上一交点直线方位角）J<0=>J=J+360⊿C=A-J:A=J （计算偏角）W=V+2=>Goto2⊿（如果桩号在起点与第一交点曲线起点之间，则转Lb1 2 ）I=Abs（tan（c÷2））M=L÷2-L^3÷240R^2:N=E÷2-E^3÷240R^2P=L^2÷6R-L^4÷336R^3-R（1-cos（90L÷πR））Q=E^2÷6R-E^4÷336R^3-R（1-cos（90E÷πR））D=（P-Q）I÷2 : F=（P+Q+2R）I÷2M=F+M-D:Q=F+N+DN=πRAbsC÷180+（L+E）÷2X=Z[W-1]-McosAY=Z[W+Z+1]-MsinAM=Z[W-1]+Qcos（A+C）V=Z[W+Z+1]+Qsin（A+C）Q=AbsC÷CS≤L=>P=0:Goto3⊿（如果桩号在第一缓和曲线内，则转Lb1 3）S≤N-E=>S=S-L:Goto4⊿（如果桩号在圆曲线内，则转Lb1 4）S≤N=>S=N-SQ=-Q:A=A+C-180:X=M:Y=V:L=E：P=180:Goto3 ⊿（如果桩号在第二缓和曲线内，则转Lb1 3）P=A+C:S=S-N:D=M+ScosP:F=V+SsinPGoto6 （如果桩号在直线内，则转Lb1 6）Lb1 2P=A+CD=Z[W-1]+ScosPF=Z[W+Z+1]+SsinP:Goto6Lb1 3I=S-S^5÷40R^2÷L^2+S^9÷3456R^4÷L^4J=Q（S^3÷6RL-S^7÷336R^3÷L^3）P=P+A+90Q S^2÷πRL:Goto5Lb1 4M=90（2S+L）÷πRI=RsinM+L÷2-L^3÷240R^2J=Q（L^2÷24R+R（1-cosM））P=A+QMLb1 5D=X+IcosA-jsinA:F=Y+JcosA+IsinALb1 6D″X=″◢（结果显示X坐标）F″Y=″◢（结果显示Y坐标）P″AT=″◢（结果显示该桩号方位角）{BO}：B″S″O″⊿″ （输入边桩距离，交角）P=P+OL″XB″=D+BcosP◢（结果显示边桩X坐标）M″YB″=F+Bs inP◢（结果显示边桩Y坐标）以上是坐标计算程序，括号内是程序计算的大致原理及说明，中间部分为直线、圆曲线、缓和曲线计算的各种公式，大家也知道，书上也有。

测量资料使用说明测量资料程序是一款简单实用的测量程序，为用户提供了一个更高效更准确的功能操作，帮助用户轻松完成《水准仪测量记录表》、《全站仪平面位置检测表》、《全站仪放线记录表》等的制作，包含导线点、水准点、平曲线（线元法）、纵断面、横坡超高计算等多个方面，实用程序，用户可以快速进行测量资料的记录、表格数据录入、表格管理等操作，方便快捷。

目录(一) 、功能特色 (2)(二) 、平曲线 (3)(三) 、断链 (5)(四) 、竖曲线(纵断面) (5)(五) 、超高数据表 (6)(六) 、标准路面参数表 (7)(七) 、水准点成果表 (7)(八) 、导线点成果表 (8)(九) 、原始数据表（进入正题） (9)(十) 、自动计算 (10)(十一) 重复九、十自动生成记录表 (11)(一)、功能特色1、本程序利用EXCEL、WPS电子表格，自动生成水准仪测量记录表、平面位置检测记录表、全站仪放线记录表。

2、适用于任何版本的EXCEL、WPS，无需安装，直接使用。

3、自动转点、自动计算坐标、自动偏差。

4、自动计算路面高程，减少数据输入。

5、支持交点法、线元法。

6、支持断链。

7、可以根据需求修改属于你自己项目的记录表。

8、除断链桩号前可以加”*”,其余桩号都应输入数字。

(二)、平曲线1、在空白处输入平曲线参数：（点号、交点坐标、交点桩号、半径、缓和曲线长度）备注：输入数据须为数字；没有缓和曲线，输入0。

2、点击“计算”按钮，自动计算（转角值、圆曲线长、切线长、主点桩号）(三)、断链在空白处输入断链桩号（备注：长链的断链重复桩号，在后断链桩号前加”*”）断链表(四)、竖曲线(纵断面)1、在空白处输入竖曲线参数：（桩号、标高、半径）2、点击“计算”按钮，自动计算（切线长、外距、竖曲线起点桩号、竖曲线终点桩号、转坡角、纵坡）(五)、超高数据表在空白处输入超高参数（桩号、横坡值、超高方式）备注：1、输入横坡变化点桩号处数据2、函数Lx(“缓和曲线长”, “超高横坡”, “路拱横坡”)计算路基由正常路拱横坡到单向路拱横坡时的长度；(六)、标准路面参数表在空白处输入标准路面构造参数备注：”中桩（判断路面宽度）”列为该段路面变化点终点桩号(七)、水准点成果表在空白处输入该线路全部的水准点参数备注：函数fszh(“X坐标”,”Y坐标”)，计算XY对应的桩号(八)、导线点成果表在空白处输入该线路全部的导线点参数备注：函数fszh(“X坐标”,”Y坐标”)，计算XY对应的桩号导线点成果表(九)、原始数据表（进入正题）该表是生成记录表的依据1、在”桩号”、”偏距”、”高程”、”工程部位”列，输入数据①函数lmgc0(“桩号”,”偏距”)，计算路面高程；②“工程部位”单元格以下内容为空白，视为一段工程。

使用手册一、程序运行平台：Win9X/ME/XP。

二、程序开发平台：VC++.NET三、主要功能：平曲线坐标计算(线元法)、交点法坐标计算(交点法)、纵断面高程计算、放样辅助计算、交会定点计算、附闭合导线严密平差及近似平差、坐标转换、路基土石方计算、互通式立体交叉、报表设计等。

完整的打印预览及报表生成功能，在预览页面可将报表保存为EXCEL形式或网页形式。

报表中的“单位、制表、复核”等参数在系统菜单栏的“报表设置”项中设置。

对于“逐桩坐标报表”有两种选择，根据需要可选择全部打印或只打印中桩桩号、坐标及方位角，请在菜单栏的“报表设置”项中设置。

坐标计算时，可计算任意角度的边桩，边桩连线与中点切线右夹角默认为90°(在“右桩夹角(dms)”栏内不填写数据时),如边桩夹角为35°15′25.5″，应在“右桩夹角(dms)”栏内填入35.15255。

同时系统在加桩时可一次计算多个边桩，桩间米数为自动计算时桩的间距，填写如下图：如上图填写可一次计算出中桩K1+250.25处6m、8m、10m、12m、14m、16m处左边桩及10m、16m、20m、25m 处右边桩，其中边桩夹角为60°，计算结果如下图：四、使用说明：1、匝道主点要素推算本项功能主要针对那些匝道曲线组成复杂而设计提供数据简单的项目，您只需要输入匝道上任一主点的坐标、方位角，即可根据曲线线元类型、线元起点桩号、线元半径、回旋参数、转向计算出其它主点的坐标及方位角，计算误差很小，完全满足现场施工放样要求，主要计算方法如下：如上图为“南充绕城高速公路二洞桥互通A匝道”原始数据，该匝道由12个线元组成，共计1234.682m。

已知起点坐标、方位角及所有线元类型、桩号、半径、回旋参数、转向，可推算出其它线元起点(主点)的坐标及方位角，计算结果如下：设计提供匝道主点数据如下，通过比较可知，本系统计算结果误差很小。

如果已知主点(即该点的坐标、方位角已知)位于匝道起点，可按上述表格内输入格式将线元参数按线元连接的先后次序从起点依次输入至终点，并将起点坐标、方位角输入表内，在最后必须输入终点桩号，否则最后一个线元将不参与计算。

Excel VBA在公路路线坐标计算中的应用摘要：通过分析公路路线坐标计算原理，创建Excel VBA的对象模型，可通俗易懂，方便准确地完成公路路线坐标计算，值得推广应用，文中以作者编写的“Excel公路坐标计算程序”为算例，说明介绍。

关键词：坐标计算，Excel VBA，坐标转换，数据读取传输引言作为公路测量工作者，公路路线坐标计算是一件最基础和最重要的工作之一。

虽然目前有部分公路坐标计算软件，但往往价格不低，而且通常操作复杂。

Microsoft 的常用办公软件Excel提供的VBA程序，功能强大，且与Excel工作表实现无缝接合，只要灵活应用，即可方便、快捷地解决测量中大量的、机械的数据处理过程。

文中介绍道路曲线坐标计算三种基本形式—直线、圆曲线、缓和曲线的中边桩计算公式，分析利用Excel表格及其VBA程序计算公路坐标的一般方法和关键节点，同时以两个不同类型的路线为实例具体说明计算过程和精度分析。

1 公路路线坐标计算基本原理1.1 中线坐标计算一般公路的路线坐标计算普遍采用三种线型：直线、圆曲线和缓和曲线。

其相应的中线坐标计算公式如下：1）直线（见图1）x=x0+S0×cos(a0)y=y0+S0×sin(a0)2)圆曲线（见图2）x=x0+S0×cos(a0+β)y=y0+S0×sin(a0+β)其中β为偏角，S0为弦长，其值为：β=90×L0/（R×π）S0=2×R×sin(β)切线方位角：a= a0+2×β3) 缓和曲线（见图3）Xi’=L－L5/(40A2)＋L9/(3456A8)－L13/(599040A12)＋……Yi’=L3/(6A2)－L7/(336A6)＋L11/(42240A10)－……L=|Li-L0| A=上述直线段和圆曲线段可直接计算出中桩坐标，但缓和曲线由于采用切线正支距法，是以直缓或缓直为原点的直角坐标系，还必须用坐标平移和旋转计算出该点在大地平面直角坐标系XOY中的坐标（x,y），公式为：x= x0+ Xi’cos(a0)- Yi’sin(a0)y= y0+ Yi’sin(a0)+ Yi’cos(a0)其转换后的切线方位角为：a=a0+180±L2/(3A2)1.2边桩坐标计算边桩坐标计算利用计算出来的中线坐标及其切线方位角，按az=a-90……左边桩方位角ay=a+90……左边桩方位角以及边桩至中桩距离Sb，推算边桩坐标：Xz(y)=x中+Sb×cos(az(y))Yz(y)=y中+Sb×sin(a z(y))2Excel VBA与Excel工作表的关联Office Excel工作簿中包含若干工作表，各工作表之间既相互独立，又相互关联，同时各工作表与Excel VBA又相互关联，因此只要在工作表上输入路线要素及计算桩号，通过VBA编程，就可通过VBA宏坐标计算将计算结果导入工作表。

小白自学ExcelVBA道路坐标高程计算程序流程1声明1.1 本人是个工作时间不长测量施工员。

1.2听说想轻松愉快的干好测量得学门编程，又听说ExcelVBA是个简单的可视化的常用的……1.3 本人很懒，面对厚厚的全是“昏天暗地”代码的ExcelVBA教科书籍，实在是没心没力。

其实俺还是懂点儿VB编程的（学校学过“=”是赋值，if、while、end的意思，嘿嘿，还有画窗体图框，其他的就都还给老师了）。

1.4 谷歌、度娘，是咱的好帮手。

1.5 仰望的存在，神一般的存在，无私的化身！道路中边桩坐标计算程序120424.xls（王中伟”教授”QQ：595077）曲线坐标计算程序VBA 4.6.xls（陈超”中铁”QQ：295188316）陈师傅的VBA代码乍一看感觉比王老师的让人头痛，怎么说咱们也是个有理想有目标的人，要啃就啃硬骨头！就选~~~嘿嘿~~~王老师的程序吧！1.6 道路中边桩坐标计算程序120424.xls代码获取。

王老师、陈师傅担心不懂编程的人，不小心修改代码导致程序错误，设置了vba密码（个人认为），其次我跟他们不熟，没有正大光明的要的密码，于是求助谷歌度娘，这个关于VBA 密码破解，于是很不厚道的得到了密码，为了方便本次学习，又很不厚道的把道路中边桩坐标计算程序120424.xls的密码贴出来（df750726），神人勿怪呀！2 代码理解ing…我们通过密码打开vba代码窗口，大家可以先把每个表格打开浏览一下代码，是不是感觉很短呀，感觉应该是超级链接的意思，嘿嘿，主要的代码在模块“lx”里，打开下，代码多吧，这就是咱们要肯的骨头。

现在咱们冲呀！2.1 第一段代码理解貌似第一段代码是定义的意思“定义π值”、'定义桩号点”、“'定义坡段”、“'定义基本曲线”①Public Const PI As Double = 3.14159265358979谷歌翻译：Public Const PI As Double公共常量PI 作为双精度浮点型百度百科：双精度浮点数双精度浮点数（Double）用来表示带有小数部分的实数，一般用于科学计算，用8个字节（64位）存储空间，其数值范围为1.7E-308～1.7E+308，双精度浮点数最多有15或16位十进制有效数字，双精度浮点数的指数用“D”或“d”表示。

利用可编程计算器快速确定线路测量中桩号及坐标的简易方法作者：邓建林华来源：《中国新技术新产品》2009年第06期摘要：本文利用可编程计算器的坐标计算程序、坐标转换公式，可方便快速的确定线路上任意点的桩号、坐标以及任意点至线路中线的距离。

关键词：线路测量；可编程计算器；桩号；坐标0 引言随着计算机技术的发展和普及,测绘人员很容易利用计算机确定线路上任意点的桩号、坐标以及任意点至线路中线的距离。

野外作业中，作业人员不可能随时能用上计算机，但有些数据现场要立刻知道，如已经准备好的放样坐标，由于现场条件限制一些桩点现场没法标定，要根据现场条件重新确定放样的坐标；质量检查人员随机抽标定的桩号是否在中心线上等。

虽然现在有很多重量轻、体积少便宜携带的笔记本电脑。

但是作业人员背一台笔记本电脑在野外测绘也不是很方便。

科技发展，计算器的功能日益强大起来，某些以前只有计算机才能胜任的工作，在计算器中也能方便的完成。

现场确定线路上任意点桩号及坐标一直是野外测量人员比较头痛的问题，本文从线路坐标计算入手，利用坐标转换公式计算出线路上某点与已知中桩的平面位置偏移，并以已知点桩号加上纵向偏移为基础，计算某点与其平面位置偏移，如此反复直至纵向偏移符合要求的精度，此时的桩号即为线路上某点的实际桩号，此时横向偏移即为某点至线路中线的距离。

1线路坐标的计算线路坐标计算方法很多，这里直接给出由“直线－缓和曲线-圆曲线-缓和曲线-直线”这一组曲线上任意点坐标计算公式。

上式中，X'P即为纵向偏移；Y'P即为横向偏移。

3 点位桩号的确定（1）以上图为例，首先根据待定点P的坐标大致判断一下其计算桩号和线路的那段曲线上，设桩号为K。

以K和曲线参数为基准计算出X'P； Y'P。

（2）X'P超出要求的精度（如10-3m）时，以K+X'P为计算桩号重新运行程序计算出X'P； Y'P。

（3）重复以上两步，直至X'P达到要求精度，此时的计算桩号即为P点在此线路上桩号，其横向偏移值即为P点距线路中线的距离。

83一、绪论在当今的高速公路测设中，GPS和RTK的广泛使用，改变了线路的控制测量和中桩、边桩的放样手段，提高了公路的测设效率。

在GPS技术中，测量员只需要将中桩、边桩坐标输入GPS接收机中，就可快速地放样出点位。

这种测设方法灵活快速，所需的人员较少，只需要两个人就可以快速的测设（一般测设方法最少需要三个人），较好的降低了测量的费用，具有传统方法不可比拟的优点。

应用这种方法进行测量，需要设计出适应复杂线形的中桩、边桩坐标计算程序，并且该程序应具有输入数据规范，输出成果齐全等特点。

二、程序设计本次程序设计是以Excel VBA为开发环境，编制高速公路单曲线程序计算模块和线路法程序模块。

实现了计算任意非完全对称曲线的中桩、边桩坐标计算。

1.单一非对称形曲线计算程序设计该程序设计能对单一完整非对称形曲线进行坐标计算，并能根据线路放样的需要，计算出一个曲线坐标。

还有，在线路法程序设计中，在线路不连续时不能计算的线路坐标，而该程序能对不连续的单曲线进行计算，从而弥补的线路法程序设计和不足。

在单一完整非对称形曲线计算程序设计中，在工作表中添加两个命令按扭并编辑事件过程。

程序运行前，输入曲线的转角，圆曲线半径，交点里程，和左、右边桩距和中桩的距离后，选择曲线的类型（单圆曲线还是单个非对称形复曲线）、选择曲线的偏向、输入第一第二缓和曲线长（第二缓和曲线长在不输入的情况下默认等于第一缓和曲线长）、输入桩号间距（不输入的情况下默认为10m），最后输入ZH点(X,Y)坐标和JD坐标。

在两个命令按钮中，单击“计算”按钮可以计算单一非对称曲线的坐标并将结果显示在Excel表格中。

当然，如果不需要数据，可以按“清除”命令清除Excel表中计算得出的坐标。

还有，如果需要进行线路法计算，则单击“线路法程序”工作表即可快速切换。

2.线路法程序设计在线路法程序设计中，在工作表添加了4个命令按钮，并编写相应的事件过程。

单击“计算”命令按钮后能在Excel 表中显示输出的计算结果。

DOI：10.16661/ki.1672-3791.2204-5042-1258Excel VBA程序设计在公路勘测实践教学中的应用研究谈秋英1应楠欣1阮晓光2*(1.浙江公路技师学院 浙江杭州 310023; 2.浙江水利水电学院 浙江杭州 310018)摘要：Excel软件作为一款被广泛应用的数据处理办公软件，兼有函数计算、程序设计、数据库编辑及调用等二次开发功能。

公路勘测作业数据的处理专业性强、数学模型相对复杂，文章以公路勘测内外业为例，充分利用Excel计算功能和VBA编程功能，论述了Excel在公路勘测实践教学工作中的具体方法和注意事项。

通过笔者所在单位教学环节的实践，该方法适用于解决公路勘测工作中数据计算量大、重复性强的实际问题，可以为相关课程课间实训、课程实习提供思路。

关键词：公路勘测 Excel 编程 函数中图分类号：U412.2;G421文献标识码：A文章编号：1672-3791(2023)05-0181-07Research of the Application of Excel VBA Programming inPractical Teaching of Highway SurveyTAN Qiuying1YING Nanxin1RUAN Xiaoguang2*(1.Zhejiang Highway Technician College, Hangzhou, Zhejiang Province, 310023 China; 2.Zhejiang University ofWater Resources and Electric Power, Hangzhou, Zhejiang Province, 310018 China) Abstract:As a widely used data processing office software, Excel software has secondary development functions such as function calculation, programming, and database editing and calling. The processing of highway survey op‐eration data is highly professional and the mathematical model is relatively complex. Taking the internal and external business of highway survey as an example, making full use of Excel calculation function and VBA programming function, this paper introduces the specific methods and precautions of Excel in practical teaching of highway sur‐vey. Through the practice of teaching links in the author's unit, this method is suitable for solving the practical problems of large amount of data calculation and strong repeatability in highway survey work, and can provide ideas for the inter-class training and course practice of relevant courses.Key Words: Highway survey; Excel; Programming; Function基金项目：浙江省自然科学基金（项目编号：LZJWY22E090002）。

VBA在桩位坐标计算中的应用作者：张安清来源：《城市建设理论研究》2012年第29期摘要：桩位坐标计算需要耗费大量的时间和精力,为了寻求一种高效、准确的计算方法，本文通过工程实例介绍了利用Microsoft Excel、AutoCAD提供的VBA功能编制程序，通过电子版图纸快速准确地计算出桩位测量坐标。

关键词：坐标，转换，Excel，AutoCAD，VBA中图分类号：P123.2+1 文献标识码：A 文章编号：1.引言随着全站仪的普及，使用全站仪放样或复核桩位比较普遍，而坐标计算则是坐标放样中的重点和难点，不但花费大量时间，甚至因为数据不准确造成严重后果。

目前桩位坐标通常是依据电子版设计图查询或依据设计图标注的尺寸推算。

本文通过实例介绍通过Microsoft Excel 和AutoCAD2006软件内嵌的VBA语言，在CAD桩位图上自动编号，并从图上提取坐标保存到Excel工作表上，再根据建筑物外墙轴线交点(简称角桩)的测量坐标自动转换成测量坐标。

此程序可按任意顺序、任意位置进行编号并提取坐标；操作简便，可大幅度提高桩基施工编号和放样效率。

2.VBA应用软件简介Visual Basic for Applications（简称VBA）是新一代标准宏语言，是基于Visual Basic for Windows 发展而来的。

VBA 易于学习掌握，有助于使工作自动化，提高工作效率。

VBA 可以直接应用Excel、AutoCAD为平台，开发应用程序。

3.基于VBA 的桩位坐标提取程序实例3.1编辑坐标提取程序启动AutoCAD2006，打开桩位图，从菜单中，选择［工具］→［宏］→［Visual Basic 编辑器］，或者按快捷键Alt+F11进入Visual Basic Edirtor。

从编辑器菜单中，选择［工具］→［引用］，在［可使用的引用］里勾选Microsoft Excel 11 Type Library，点［确定］离开；选择［插入］→［模块］在“模块1”中输入下列程序。

用VBA自动计算水准测量的原始数据2007-02-09 17:51:30| 分类：默认分类| 标签：水准仪原是数据处理计算 exce vba |字号大中小订阅Option ExplicitPrivate Sub gaocheng() '数据处理代码Dim i, K, PointerDim I_first As Integer, I_end As IntegerI_first = Sheet1.Range("H" & 4).ValueI_end = Sheet1.Range("H" & 5).Value'开始行要为转点下一行,且转点前一行高程数据已经计算好.If Sheet1.Range("D" & 1).Value = "1" ThenPointer = MsgBox("数据已经存在,确定覆盖吗?", vbYesNo + vbInformation, "继续?")If Pointer = vbNo ThenExit SubEnd IfEnd IfK = Sheet1.Range("B" &I_first - 1).Value + Sheet1.Range("C" &I_first - 1).ValueFor i = I_first To I_endIf Trim(Sheet1.Range("A" & i).Value) = "ZD" ThenK = Sheet1.Range("B" & i).Value + Sheet1.Range("C" & i - 1).Value ElseSheet1.Range("C" & i).Value = K - Sheet1.Range("B" & i).ValueEnd IfNext iMsgBox "I LOVE 'VBA'" &vbCrLf& "CopyRight by ZZL" &vbCrLf& "liulangr110@", vbInformation, "高程计算完毕"Sheet1.Range("D" & 1).Value = "1"End SubPrivate Sub Clear() '清除代码Dim iFor i = Sheet1.Range("H" & 4).Value To Sheet1.Range("H" & 5).ValueSheet1.Range("C" & i).Value = EmptyNext iSheet1.Range("D" & 1).Value = EmptyEnd SubSub Macro1() '删除导线点行Dim iFor i = 1 To 445If Left(Trim(Sheet2.Range("A" & i).Value), 1) = "D" ThenRows(i & ":" & i).SelectSelection.Delete SHIFT:=xlUpEnd IfNext iMsgBox "OK"End SubSub Macro2() '删除转点行Dim iFor i = 1 To 445If Sheet2.Range("A" & i).Value = "ZD" Or Trim(Sheet2.Range("A" & i).Value) = "" Then Rows(i & ":" & i).SelectSelection.Delete SHIFT:=xlUpEnd IfNext iEnd Sub。

教你如何通过Excel VBA编写测量坐标计算程序发布日期：2013-01-11 来源：网络作者：未知浏览次数：1704摘要：认识VBA、理解VBA，并利用Office Excel VBA编写测量坐标计算程序。

关键词：Excel VBA 程序坐标编写了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。

可以用Excel的宏语言来使Excel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application(V BA)，可以认为VBA是非常流行的应用程序开发语言Visual Basic的子集，事实上VBA 是VB应用程序的版本，尽管存在有些不同VBA和VB在结构上仍然十分相似。

如果你已经了解VB会发现学习VBA非常快。

相应的学完VBA会给学习VB打下坚实的基础。

理由：选择Excel VBA编程的理由是因为它的计算功能非常强大，是现今任何编程计算器无法逾越的。

它运用范围广，计算速度快，计算精度高，合理化显示等。

或许很多测量人员对Excel VBA还有些陌生，主要是大家寄托于计算器、电脑、手机PDA等系列软件使用。

Excel VBA对于大多数测量人员而没有系统学过计算机语言程序设计的人群来讲有一定含糊，不过只要有基本数学知识、测量常识和逻辑理解的人，都能通过Excel VBA编写设计出称心如意的测量程序。

目标：基于Excel VBA的测量坐标计算程序的设计目标是将繁琐计算过程转入到计算机中，利用程序语言的重复性原理，在计算机中可将坐标计算得出更精确的结果，使坐标计算更加可靠。

最终目标是让用户可以通过Excel VBA自行完成坐标计算程序设计。

认识：学习VBA到底需要什么基础和了解些什么？学习VBA需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。

利用VB 编程进行道路中边桩坐标计算王汉雄1,2赵晓东1(1.黄淮学院建筑工程系 河南#驻马店 463000 2.武汉大学测绘学院 武汉市 430079)提要 该文介绍了一种原理简单、操作方便的关于道路中边桩坐标计算的方法,以及运用Visual Basic 语言编程计算坐标,经工程一线使用有较好的实用价值。

关键词 Visual Basic 坐标计算 缓和曲线 方位角Coordinate Calculation of Middle Piles or Side Piles of Road UsingVisual Basic ProgramWang Hanxiong1,2Zhao Xiaodong1(1.Architec ture E ngineering Department,Hua nghuai C ollege 2.C ollege of Surveying and Mapping,W uhan University)Abstract This paper introduces a method of coordinate calculation of middle piles or side piles of road,and this method is easy and available,which uses Visual Basic language to calculate c oordinate.It is very useful in practical application.Keywords Visual Basic;coordinate calculation;ease ment curve;azimuth基金项目:河南省驻马店市科技计划项目(042002)。

作者简介:王汉雄(1971-),男,硕士研究生、工程师,主要从事工程测量教学及应用研究工作。

收稿日期:2006-08-021 引言高等级道路施工,不仅要求道路中线、大型构筑物和中、小型结构物控制点的测设准确无误,而且构筑物、路基、路面及轨道施工也要做大量的细部施工测量。

EXCEL结合VBA在道路综合曲线中桩坐标计算中的应用作者：教传辉曾利君来源：《数字技术与应用》2012年第01期摘要：在公路中桩线路放样工作中，在没有专业设计软件辅助计算情况下，道路中桩特别是带有缓和曲线的复合曲线上的中桩里程与坐标里程与坐标的计算是很繁琐的事，需要进行大量的、复杂的计算，费神费时间，且极易出错。

如何快速而又精确地计算出公路复合曲线中桩里程与坐标？笔者利用寄生于Microsoft Excel的VBA，编制计算程序，对解决复杂的综合曲线中桩里程与坐标的计算进行了有益的尝试。

关键词：VBA 综合曲线坐标计算中图分类号：TP29 文献标识码：A 文章编号：1007-9416(2012)01-0043-021、VBA简介VBA的全称是Visual Basic for Applications的简称。

其意思是开发环境被整合到了某个应用程序的Visual Basic语言。

作为一种自动化语言工具，提供了计算人员充分的自由，做几乎任何其他编程语言或者环境能做的事情，避免重复的手工劳动。

它可以使常用的程序自动化,可以创建自定义的解决方案。

“一段宏代码”和“一段VBA代码”是等价的。

Office的自动录制功能可以帮你录制一个宏，实际上就是把对EXCEL表格的计算、格式操作等用VBA代码的形式记录下来。

在录制宏的基础上编写VBA代码可以极大地节省编写代码的工作量，特别是在对计算表格的单元格格式操作时。

2、工作机理分析通过在VBA模块表中编写(或宏录制)代码用VBA执行操作，然后以多种方法中的任意一种来执行宏。

VBA模块保存在Excel工作簿中，一个工作簿可以存储任意数量的VBA模块。

VBA模块由过程组成。

一段过程是执行某些操作的程序代码。

下面是一个计算“圆曲线坐标”的简单子过程的例子：VBA模块还可以保存函数过程。

函盘过程能执行计算并返回一个值。

函数可以从另一个VBA过程中调用，甚至可以用于一个工作表公式。

利用VB编制道路中桩坐标计算软件1、引言高等级道路施工，不仅要求道路中线、大型构筑物和中、小型结构物控制点的测设准确无误，而且还要做大量的细部施工测量。

测量工作是保证道路施工顺利进行的基本条件，直接关系到道路工程建设的速度和质量。

因此，测量工作十分重要。

而现阶段主要采用全站仪和GPS，无论采取那种测量方法，其核心部分都要先计算公路中线上任一中桩点的坐标。

本文针对工程实际，根据完善的计算方法，并且采用Visual Basic语言编程进行道路中桩坐标计算，取得了不错的效果。

2、计算方法高等级道路设计与施工，必须建立一个贯穿全线的统一坐标系，这个坐标系一般采用国家坐标系统。

如图1，相邻三交点（JD1、JD2、JD3）的坐标可在地形图上量取或在实地测定。

路线导线的坐标方位角A1，A2,A3和边长S1、S2可直接按坐标反算公式求得：转角α=A2-A1，若α>0则路线右偏，若α<0则路线左偏。

在选定各圆曲线半径R及缓和曲线长度LS后，根据各桩点里程桩号即可求出相应的中桩坐标。

2.1直线点K1的坐标求法如图2，根据K1与JD1（或起点）的桩号求得两点的距离l.已知该直线的坐标方位角A1，故K1的坐标为：在点K1上，该点的切线方向就是JD1-JD2直线方向，所以K1点切线方位角：A’1=A1。

2.2 ZH点至YZ点之间的坐标计算此段包括第一缓和曲线和圆曲线，可先计算桩点的切线支距法坐标x,y。

缓和曲线上的桩点，如图3中K2点上式中l为桩点至缓和曲线起点ZH点曲线长，由K2点至ZH点里程求得。

R为圆曲线半径，Ls为缓和曲线长度。

K2切线方位角：A，2=A1±β右偏为“+”，左偏为“-”。

其中β为缓和曲线角，β=l2/(2RLS)圆曲线上桩点，如图4中K3点式中，Φ=l/R+β0,l为桩点至HY点到曲线长，仅为圆曲线部分的长度。

缓和曲线角：切线增长值:曲线内移值：K3点切线方位角K3点切线方位角：A，3=A1±Φ，右偏为“+”,左偏为“-”。