精选优质文档-倾情为你奉上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