下载文档原格式
Excel表格制作标高计算程序新建一个Excel文件，把Sheet1表重命名为“竖曲线”，把Sheet2表重命名为“设计标高”。
（1）在竖曲线表中的A1-E1（合并）单元格输入线路名称，在A2-E2单元格中分别输入“变坡点编号”、“变坡点里程”、“变坡点标高”、“曲线半径”和“切线长”,从第三行开始输入对应数据，（2）打开VB编辑器（Alt+F11），双击工程资源管理器中“设计标高”表图标，复制以下程序到界面上，保存后返回Excel窗口，在“设计标高”表中的第一列，从第二行开始输入要计算的里程桩号，完成后，在任一单元格中双击单元格，即可看见输入结果（在第二列），本程序默认遇到桩号列空单元格时不再向下计算。
Dim K As DoubleDim H As DoubleDim P1 As Double, P2 As Double, P3 As DoubleDim H1 As Double, H2 As DoubleDim R1 As Double, R2 As DoubleDim T1 As Double, T2 As DoubleDim D1 As Double, D2 As DoubleDim G1 As Long, G2 As LongPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume NextDim i As LongDim hang As LongDim celln = 0For Each cell In Sheets("竖曲线").Range("a3:a65536")If cell.Value <> "" Thenn = n + 1ElseExit ForEnd IfNexti = 2flag:P2 = 0P3 = 0hang = 3If Sheets("设计标高").Cells(i, 1) <> "" ThenK = Val(Cells(i, 1))canshu:P1 = P2D1 = Val(Sheets("竖曲线").Cells(hang + 1, 2))D2 = Val(Sheets("竖曲线").Cells(hang + 2, 2))H1 = Val(Sheets("竖曲线").Cells(hang + 1, 3))H2 = Val(Sheets("竖曲线").Cells(hang + 2, 3))P3 = (H2 - H1) / (D2 - D1)D1 = Val(Sheets("竖曲线").Cells(hang, 2))D2 = Val(Sheets("竖曲线").Cells(hang + 1, 2))H1 = Val(Sheets("竖曲线").Cells(hang, 3))H2 = Val(Sheets("竖曲线").Cells(hang + 1, 3))R1 = Val(Sheets("竖曲线").Cells(hang, 4))R2 = Val(Sheets("竖曲线").Cells(hang + 1, 4))T1 = Val(Sheets("竖曲线").Cells(hang, 5))T2 = Val(Sheets("竖曲线").Cells(hang + 1, 5))P2 = (H2 - H1) / (D2 - D1)If K < D1 Then Sheets("设计标高").Cells(i, 3) = "超出": i = i + 1: GoTo flag If K > D2 And hang < n + 3 Thenhang = hang + 1GoTo canshuElseCall biaogaoSheets("设计标高").Cells(i, 2) = Round(H, 3)End IfElseEndEnd Ifi = i + 1GoTo flagEnd SubFunction biaogao() As DoubleOn Error Resume NextG1 = -1If P2 - P1 > 0 Then G1 = 1G2 = -1If P3 - P2 > 0 Then G2 = 1H = 0If K < D1 + T1 ThenH = H1 + (K - D1) * P2 + G1 * (D1 + T1 - K) ^ 2 / (2 * R1)ElseIf K <= D2 - T2 ThenH = H1 + (K - D1) * P2ElseIf R2 <> 0 ThenH = H2 - (D2 - K) * P2 + G2 * (K - (D2 - T2)) ^ 2 / (2 * R2)ElseH = H2 - (D2 - K) * P2End IfEnd IfEnd Function本程序只计算单一线路的中桩标高，若想把多个线路的参数放在同一个表中时，只需对以上程序稍加改动即可。
计算坐标需要"桥型布置图"、"桥台结构图"、"桥墩结构图"、"点位图"、"纵断面".
先点开"桥型布置图","纵断面",找出台帽前墙位置与纵断线上已知一点的距离,例：
量取已知点距台帽前墙距离,如：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 在海河大桥主塔及斜拉索测量数据计算中的应用姜金星中交一公局厦门工程有限公司摘要:介绍EXCEL 在海河大桥主塔及斜拉索测量数据计算中的应用，化繁为简，为类似工程测量的计算提供参考经验。
关键词:EXCEL;测量计算;计算公式1工程概况天津海河大桥主塔为“钻石型”，直接坐落在承台顶面上。
承台以上全高为164.798米，主塔由塔靴、下塔柱、中塔柱、上塔柱、下横梁及上横梁组成。
塔顶的高程为166.635米，承台顶面高程1.837米，下横梁的标高36.055米，下塔柱顺桥向宽8.0米，横桥向宽为4.7米～6.8米，上塔柱和中塔柱顺桥向宽6.0米～8.0米从塔顶线性过渡到下横梁顶面的位置，下横梁以下的宽度为8米。
天津海河大桥主塔为“钻石型”，直接坐落在承台顶面上，承台以上全高为164.798米。
索道管布置在上塔柱部分，斜拉索共74根，采用空间扇形布置，索面竖直方向在主塔上交点间距为1.5～2.5米，斜拉索锚点位于塔壁中心线。
主梁上主跨侧的水平方向索距为16米，横桥向斜拉索线10.719米，竖直方向斜拉索锚固点距梁顶（最高点）1米，斜拉索通过钢锚箱边跨侧索距为8米～10米，横桥方向斜拉索锚点距道路中心线10.7米，竖直方向（最高点）2米。
(见图1)2坐标系情况图156海河大桥主塔结构复杂，高度大，根据施工方案共分41节段进行施工混凝土浇筑，为了减化计算，方便构件埋设及调整，把大地坐标系转化为主塔的施工独立坐标系；定义坐标原点（0,0,0）为塔对称中心线高程+0.00m 处，大地坐标为（285437.654，144541.321，0），独立坐标系的X 轴在大地坐标系中的坐标方位角为25°18′36″，X 轴正方向指向大桩号方向，Z 轴正向指向塔顶。
如平面图所示：大地坐标转换为独立坐标的公式为：X=（X′-X0）*COSα+（Y′-Y0）*SINαY=-（X′-X0）*SINα+（Y′-Y0）*COSα其中：X 、Y 为大桥独立坐标；X′、Y′为大地坐标；α为独立坐标X 轴正方向在大地坐标系中的方位角。
小白自学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进行测量计算的方法和思路，并提供了一些常用的计算公式。
1、 EXCEL基本计算方法打开EXCEL后显示的表格，将相关数据依次输入到相应的表格上中。
当原始数据输入完毕后，再在需要显示结果的相应单元格内输入计算公式，EXCEL则会按照公式自动计算出结果，下面以两点坐标计算距离为例，简单说明下：第一步：在相应位置输入表头、序号、坐标后，图示1所示。
第二步在显示距离格内输入计算公式=SQRT((B4-D4)^2+(C4-E4)^2)并按回车，距离的结算结果就显示出来。
2、在测量计算中，最常见的是三角函数的处理。
EXCEL中备用的三角函数很齐全，但计算中是以弧度为单位来处理的，在计算中角度（度、分、秒）需要转换成弧度后，即可进行三角函数的计算了。
3、结合本项目分别介绍了直线、圆曲线、竖曲线的计算事例铜汤高速公路第一合同段，起点里程K78+060.618,终点里程K82+825,全长4764.4米，其中包括朱家畈大桥，水桥湖一桥、二桥三座桥梁。
全线平面首尾为直线段，中间由三段圆曲线连接，（后附全线平面图），计算原始数据取自设计文件第一册《直线、曲线及转角表》(图号为S3-4);全线包括6段竖曲线，其中凹、凸曲线各3段，计算原始数据采用设计文件第一册《路线纵断面图》（图号为S3-3）。
在表格中，桩号栏中的ZJF8、SQA7、SQB6分别代表朱家畈大桥8号墩中心，水桥湖一桥7号墩中心和水桥湖二桥6号墩中心。
坐标和高程的单位均为m，角度单位为弧度。
一、坐标计算方法：a、直线段：坐标增量法例如：第一段直线范围K78+060.618~K78+773.787坐标计算已知：BP点里程为K78+060.618，坐标（3412768.816，484851.623）起始方位角a＝140°45′46.1″＝2.456774421（弧度）计算直线范围内的K78+200坐标如下：在EXCEL表格中输入相应的表头和需要计算的里程后在C36格内输入公式=3412768.816+（B21-78060.618）* COS（2.456774421）在D36格内输入公式=484851.623+（B21-78060.618）* SIN（2.456774421）X=3412768.816+(78200-78060.618)×COS2.456774421＝3412660.860Y=484851.623+(78200-78060.618)×SIN2.456774421＝484939.787 图示：b、曲线段：偏角法第一段圆曲线K78+773.787～K79+524.582上坐标计算：起点（即ZY点）里程为K78+773.787，同时位于第一段直线上，可通过坐标增量法算出ZY点坐标为（3412216.442，485302.725）；始方位角a＝140°45′46.1″＝2.456774421（弧度）；曲线圆心在线路右侧，曲线半径R＝4500m。
Excel工程测量编程方法图解本教程结合图片，简洁易懂，特别适合测量人员，或者Excel爱好者、工程设计者、工程技术人员学习。
作者：本科学历，修工程专业，Excel运用级别—上级，编程爱好度—炽热。
如果您对Excel编程感兴趣，您一定了解CASIO4500,4800,4800P，5800。
然而可叹的是，一代一代更新，容量却没有突出的改进，编程语言也是字母或者数字类。
智能手机的崛起，掀起测设业的新潮流。
她的大容量，她的完美的Excel功能，使我们的渴望已久的梦想得以实现。
您从此不用面对繁杂的字母数字标志，不用担心忘了某个标志是说什么意思，您只需在电脑上把程序编好，然后拷入手机，只差您在现场潇潇洒洒的指点屏幕了。
这时你才会感叹：测量啊，1加1是那么的简单，傻瓜都会！所以学好Excel编程，淋漓尽致发挥其应用平台，才是我们的初衷。
所以熟练掌握Excel编程，是您顺利工作轻松完成任务的得力助手。
如果你读完本教程，你很可能马上设计出，计算精确、功能强大的程序。
进而掌握兼容断链、长链、直线、圆曲线、缓和曲线、回旋曲线、竖曲线；包括中边桩坐标正算，坐标反算，中桩高程计算，边桩高程计算，以及强大的逐桩坐标计算，还有独具特色的隧道掌子面HDR放样法等等的编程技巧。
除了电脑版，您还可以对界面略作改变，称为手机版，要仔细调整单元格幅度，使其刚好适合手机屏幕，并且字迹清晰，便于输入，界面一目了然。
当然输入参数提示语您也可以DIY。
一、电脑版Excel工程测量编程方法：首先，根据Excel内置函数，设计正算反算等的工作表，不要另建工作薄，在同一个工作薄内多建立工作表，如果一个不够，就新建第二个第三个。
，因为Excel各个工作表之间可以互相嵌套，因此不用担心你一条1000公里的铁路段，哎呀Excel表不够用，这点是不必要的担心。
然后，用心调整界面，尤其是计算面板，她直接面向你，供你输入数据，因此应调整好单元格大小字体颜色，以及注释说明，做到美观大方，使用性强。
