下载文档原格式
利用EXCEL电子表格进行高斯投影换算GPS坐标的方法作为尖端技术GPS，能方便快捷性地测定出点位坐标，无论是操作上还是精度上，比全站仪等其他常规测量设备有明显的优越性。
随着我国各地GPS差分台站的不断建立以及美国SA政策的取消，使得单机定位的精度大大提高，有的已经达到了亚米级精度，能够满足国土资源调查、土地利用更新、遥感监测、海域使用权清查等工作的应用。
在一般情况下，我们使用的是1954年北京坐标系或1980年西安坐标系（以下分别简称54系和80系），而G PS测定的坐标是WGS- 84坐标系坐标，需要进行坐标系转换。
对于非测量专业的工作人员来说，虽然GPS定位操作非常容易，但坐标转换则难以掌握，EXCEL是比较普及的电子表格软件，能够处理较复杂的数学运算，用它来进行GPS坐标转换、面积计算会非常轻松自如。
要进行坐标系转换，离不开高斯投影换算，下面分别介绍用 EXCEL进行换算的方法和GPS坐标转换方法。
一、用EXCEL进行高斯投影换算从经纬度BL换算到高斯平面直角坐标XY（高斯投影正算），或从XY换算成BL（高斯投影反算），一般需要专用计算机软件完成，在目前流行的换算软件中，存在一个共同的不足之处，就是灵活性较差，大都需要一个点一个点地进行，不能成批量地完成，给实际工作带来许多不便。
笔者发现，用EXCEL可以很直观、方便地完成坐标换算工作，不需要编制任何软件，只需要在EXCEL的相应单元格中输入相应的公式即可。
下面以54系为例，介绍具体的计算方法。
完成经纬度BL到平面直角坐标XY的换算，在EXCEL中大约需要占用21列，当然读者可以通过简化计算公式或考虑直观性，适当增加或减少所占列数。
在 EXCEL中，输入公式的起始单元格不同，则反映出来的公式不同，以公式从第2行第1列（A2格）为起始单元格为例，各单元格的公式如下：单元格单元格内容说明A2输入中央子午线，以度.分秒形式输入，如115度30分则输入115.30起算数据L0B2=INT(A2)+(INT(A2*100)-INT(A2)*100)/60+(A2*10000-INT(A2*100)*100)/3600 把L0化成度C2以度小数形式输入纬度值，如38°14′20″则输入38.1420起算数据BD2以度小数形式输入经度值起算数据LE2=INT(C2)+(INT(C2*100)-INT(C2)*100)/60+(C2*10000-INT(C2*100)*100)/3600 把B化成度F2=INT(D2)+(INT(D2*100)-INT(D2)*100)/60+(D2*10000-INT(D2*100)*100)/3600 把L化成度G2=F2-B2L-L0H2=G2/57.2957795130823化作弧度I2=TAN(RADIANS(E2))Tan(B)J2=COS(RADIANS(E2))COS(B)K2=0.006738525415*J2*J2L2=I2*I2M2=1+K2N2=6399698.9018/SQRT(M2)O2=H2*H2*J2*J2P2=I2*J2Q2=P2*P2R2=(32005.78006+Q2*(133.92133+Q2*0.7031))S2=6367558.49686*E2/57.29577951308-P2*J2*R2+((((L2-58)*L2+61)*O2/30+(4*K2+5)*M2-L2)*O2/12+1)*N2*I2*O2/2计算结果XT2=((((L2-18)*L2-(58*L2-14)*K2+5)*O2/20+M2-L2)*O2/6+1)*N2*(H2*J2)计算结果Y表中公式的来源及EXCEL软件的操作方法，请参阅有关资料，这里不再赘述。
小白自学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”表示。
Excel函数进⾏测量坐标批量计算的编程应⽤Excel函数进⾏测量坐标批量计算的编程应⽤陈兵何红玲（中国⼀冶集团有限公司，湖北武汉430080）关键词Excel函数测量坐标坐标计算1前⾔提起Excel电⼦表格，我们往往想起它在办公管理、统计财经、⾦融等众多领域的应⽤,可以进⾏各种数据的处理、统计分析和辅助决策操作，然⽽Excel中函数对于测量⾏业也能发挥不⼩的作⽤，⽐如在⾼速公路项⽬中，要花费⼤量时间对线路放样坐标进⾏逐桩计算和校核，采⽤传统的⽅法去计算这些坐标，很是费时费⼒，⽽且效率不⾼，⽽运⽤Excel电⼦表格中的函数功能编缉公式，实现逐桩坐标批量计算，可⼤⼤提⾼⼯作效率，减少计算错误，实现便捷化⼯作模式。
2测量坐标计算依据2.1 ⽅位⾓与象限⾓的关系由坐标纵轴的北端或南量⾄直线的锐⾓，称为该直线的象限⾓，⽤R表⽰，其⾓值范围为0?～90?。
如图1所⽰，直线01、02、03和04的象限⾓分别为北东R01、南东R02、南西R03和北西R04，则直线⽅位⾓和象限⾓的位置关系如图2，坐标⽅位⾓与象限⾓的换算关系如表1：图1 象限⾓表1 ⽅位⾓与象限⾓的换算关系象限坐标增量由象限⾓求⽅位⾓由⽅位⾓求象限⾓Ⅰ北东△x ＞0,△y ＞0 α01=R 01 R 01=α01 Ⅱ南东△x ＜0,△y ＞0 α02=180-R 02 R 02=180-α02 Ⅲ南西△x ＜0,△y ＜0 α03=180+R 03 R 03=α03-180 Ⅳ北西△x ＞0,△y ＜0α04=360-R 04R 04=360-α042.2 坐标正算和反算 2.2.1.坐标正算根据已知点的坐标，已知边长及该边的坐标⽅位⾓，计算未知点的坐标的⽅法，称为坐标正算。
如图3所⽰，A 点为已知点，坐标为X A 、Y A ，已知AB 边长D AB ，坐标⽅位⾓为αAB ，要求B点坐标X B 、Y B 。
由图3可知 X B =X A +△X AB Y B =Y A +△Y AB 其中△X AB = D AB cos αAB△Y AB = D AB sin αAB上⾯式中sin 和cos 的函数值随着α所在象限的不同有正、负之分，因此，坐标增量同样具有正、负号。
计算坐标需要"桥型布置图"、"桥台结构图"、"桥墩结构图"、"点位图"、"纵断面".
先点开"桥型布置图","纵断面",找出台帽前墙位置与纵断线上已知一点的距离,例：
量取已知点距台帽前墙距离,如：1.978m
再点开"点位图",找到已知点投影到拟定桥梁中线的位置.
再在该位置向路线方向移动1.978m.
以该点为基点,并在CAD中点出该点的坐标,记录下来.
但是注意CAD的坐标和测量的坐标X、Y是相反的.记下坐标X:6645.8554 ;Y:4103.3546.
再查看桥型布置图,查看两台帽前墙间的距离,13.04m
再在点位图中把之前的基点移动13.04m,并记录下在CAD中的坐标.
如：X:6658.8019,Y:4101.7962
再打开设计完的"桥台结构图",算出台帽至基础前点的平面距离2.7m,并记录下来.
再查看基础的侧面长度,如6.7m,和基础的横向宽度7.0m,并记录下来.
OK有这些记录下来的数据就可以通过EXCEL计算基础坐标了.
方法:
打开excel并把记录下的数据填如表中：
黄色的框是要填入的数据.
注意：EXCEL计算1#台填入的"间距"等于13.04减去1#台台帽前墙距基础前点的平面距离. 如果是斜交的桥梁,输入的交角是路线方向逆时针旋转至桥台前墙的角度.如图中斜交60度,就输入60度.
1 / 1。
坐标正算、反算计算方法及在Excel 中的VBA 编程测量中经常需要将某点相对坐标系坐标转换成线路的里程、偏距，或根据线路某一里程偏距计算出对应的相对坐标系坐标，为寻求一种快速简单高效的计算方法，本文对线路正算反算的原理进行了阐述，并结合Excel VBA 编程，将编程和Excel 的拖拽的功能相结合，编制出实用计算表，特别适用于需要大量计算边桩、围护桩的情况。
关键词：坐标方位角坐标正算坐标反算 V AB 编程循环迭代直接算法一、坐标方位角的反算1.坐标方位角反算如图1所示，已知点A 、B 的坐标，求直线AB坐标方位角α。
图1坐标方位角反算直线AB 之间的坐标增量：AB B AAB B Ax x x y y y ∆=−∆=−当0,0AB AB x y ∆>∆>时，角α位于第一象限角：arctan ABABy x α∆=∆当0,0AB AB x y ∆<∆>时，角α位于第二象限角：arctan 180AB ABy x α∆=+°∆当0,0AB AB x y ∆<∆<时，角α位于第三象限角：arctan 180AB ABy x α∆=+°∆当0,0AB AB x y ∆>∆<时，角α位于第二象限角：arctan360AB AB y x α∆=+°∆2.坐标方位角反算的VBA 编程可用VBA 将上述过程定义为一个名为angel()的函数，代码如下：Function angel(x0As Double, y0 As Double, x1 As Double, y1 As Double) As Double dx = x1- x0dy = y1- y0If dx > 0 And dy > 0 Thenangel = Atn(dy / dx)End IfIf dx < 0 And dy > 0 Thenangel = Atn(dy / dx) + 3.14159265358979End IfIf dx < 0 And dy < 0 Thenangel = Atn(dy / dx) + 3.14159265358979End IfIf dx > 0 And dy < 0 Thenangel = Atn(dy / dx) + 3.14159265358979 * 2End IfEnd Function二、直线段坐标正算与反算1.直线段正算图2直线段计算已知HZ 点坐标（x1,y1）、里程N HZ ，ZH 点坐标（x2,y2），正算时已知P 点对应的中桩里程Np 和偏距e （规定沿着线路前进方向，左边偏距为负，右边偏距为正），Np>N HZ ，求P 点对应的坐标。
教你如何通过Excel VBA编写测量坐标计算程序发布日期：2013-01-11 来源：网络作者：未知浏览次数：1704摘要：认识VBA、理解VBA，并利用Office Excel VBA编写测量坐标计算程序。
关键词：Excel VBA 程序坐标编写了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。
可以用Excel的宏语言来使Excel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application(VB A)，可以认为VBA是非常流行的应用程序开发语言Visual Basic的子集，事实上VBA是V B应用程序的版本，尽管存在有些不同VBA和VB在结构上仍然十分相似。
如果你已经了解VB会发现学习VBA非常快。
相应的学完VBA会给学习VB打下坚实的基础。
理由：选择Excel VBA编程的理由是因为它的计算功能非常强大，是现今任何编程计算器无法逾越的。
它运用范围广，计算速度快，计算精度高，合理化显示等。
或许很多测量人员对Excel VBA还有些陌生，主要是大家寄托于计算器、电脑、手机PDA等系列软件使用。
Excel VBA对于大多数测量人员而没有系统学过计算机语言程序设计的人群来讲有一定含糊，不过只要有基本数学知识、测量常识和逻辑理解的人，都能通过Excel VBA编写设计出称心如意的测量程序。
目标：基于Excel VBA的测量坐标计算程序的设计目标是将繁琐计算过程转入到计算机中，利用程序语言的重复性原理，在计算机中可将坐标计算得出更精确的结果，使坐标计算更加可靠。
最终目标是让用户可以通过Excel VBA自行完成坐标计算程序设计。
认识：学习VBA到底需要什么基础和了解些什么？学习VBA需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。
Excel在导线计算中的应用李海军摘要：目前在一些小地区的大比例尺测图中，做控制用的较多的是导线测量的方法。
由于全站仪的广泛应用给导线的外业测量带来不少方便，但导线的内业计算如采用手工计算工作量大，本文就介绍用Ecxcl进行导线计算的方法。
关键词：Excel 导线计算1前言Execl是目前最为流行的电子表格制作软件，它是微软公司开发的在Windows下运行的一个重要应用软件，一般也称Microsoft Execl。
它同MicrosoftWord、 Microsoft PowerPoint、Microsoft FrontPage等合称Microsoft office。
Execl具有强大的运算功能，它能按照用户的意图进行各种复杂的运算（包括编写公式、调用函数等）。
Execl同样具有强大的数据管理和处理功能，能够根据用户的要求将输入的数据生成各种各样的图表，可以对数据按照各种复杂的条件进行排序、查找、替换、编辑和筛选。
最后，Execl能把用户制作的文件保存起来，用户可以随时调出来进行补充和修改，也方便打印和复制。
2 Execl在导线计算中的应用目前，随着测绘技术的不断发展，在一些小地区的大比例尺测图中，做控制应用较多的依然是导线测量的方法。
在导线测量中，野外数据的采集用全站仪可以说方便快捷，但是其内业的计算用手工却比较麻烦，而且费时费力。
本文就着重介绍一下Excel在导线计算方面的应用。
3．实例现在就以某一测区测得一条附合导线为例，讲解用Excel对其进行计算的方法。
导线图如下所示：已知A,B,C,D四点的坐标，在测量时测出了导线的左转折角以及相邻导线点之间的水平距离。
现在我们就看如何用Excel快速计算出1，2，3，4点的坐标。
计算各导线点的坐标3.1.1输入首先我们在A列输入点号，然后在B列输入观测角（在这里我们观测的是左角），以度分秒的格式输入，度和分之间用小数点隔开，在S2T2单元格中输入B点的x，y坐标，S3T3单元格中输入A点的x，y坐标， S8T8单元格中输入C点的x，y坐标， S9T9单元格中输入D点的x，y坐标，最后在H列输入各条导线边的长度。
教你如何通过Excel VBA编写测量坐标计算程序发布日期：2013-01-11来源：网络作者：未知浏览次数：1704摘要：认识VBA、理解VBA，并利用Office Excel VBA编写测量坐标计算程序。
关键词：Excel VBA程序坐标编写了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。
可以用Excel的宏语言来使Excel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application(VB A)，可以认为VBA是非常流行的应用程序开发语言Visual Basic的子集，事实上VBA是V B应用程序的版本，尽管存在有些不同VBA和VB在结构上仍然十分相似。
如果你已经了解VB会发现学习VBA非常快。
相应的学完VBA会给学习VB打下坚实的基础。
理由：选择Excel VBA编程的理由是因为它的计算功能非常强大，是现今任何编程计算器无法逾越的。
它运用范围广，计算速度快，计算精度高，合理化显示等。
或许很多测量人员对Excel VBA还有些陌生，主要是大家寄托于计算器、电脑、手机PDA等系列软件使用。
Excel VBA对于大多数测量人员而没有系统学过计算机语言程序设计的人群来讲有一定含糊，不过只要有基本数学知识、测量常识和逻辑理解的人，都能通过Excel VBA编写设计出称心如意的测量程序。
目标：基于Excel VBA的测量坐标计算程序的设计目标是将繁琐计算过程转入到计算机中，利用程序语言的重复性原理，在计算机中可将坐标计算得出更精确的结果，使坐标计算更加可靠。
最终目标是让用户可以通过Excel VBA自行完成坐标计算程序设计。
认识：学习VBA到底需要什么基础和了解些什么？学习VBA需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。
下载地址： 程序运行环境为Microsoft Office Excel 2003及以上完整正版，运行时要把安全级别设置为“低”或提示启用宏，否则点击程序按钮时没有任何反映，设置方法 Office Excel 2003版：点击顶部【工具】>>>【宏】>>>【安全性】>>>【安全级】>>>【低】>>>【确定】>>>【重新打开文件即可运行】。
Office Excel 2007版：点击顶部【Office按钮】>>>【Excel选项】>>>【信任中心】>>>【信任中心设置】>>>【宏设置】>>>【启用所有宏】>>>【确定】。
Office Excel 2010版：点击顶部【文件】>>>【选项】>>>【信任中心】>>>【信任中心设置】>>>【宏设置】>>>【启用所有宏】>>>【确定】。
Office Excel 2013版：点击顶部【文件】>>>【选项】>>>【信任中心】>>>【信任中心设置】>>>【宏设置】>>>【启用所有宏】>>>【确定】。
程 序 设 置 说 明操作方法： 尊敬的用户，您好！当您使用本程序时需要启用Office Excel VBA“宏”常称为安全级别设置，需将安全级别设置为“中或低”之后才可进行下一步操作！如果您已启用“宏”请点击左上角“返回界面”按钮进入程序界面进行相关操作！ 提示 : 本程序不支持金山WPS软件和Microsoft Excel 2003精简版，支持Microsoft Office Excel 2003及以上完整正版。
