Excel标高计算程序
巧用EXCEL软件计算投标报价得分
拖拽公式,得到的投标报价
得分情况见图7:
读者可将两个例子算出的结
果进行比较,可先用常用方法进
行计算,得出结果后再与使用电
子表格得到的结果进行核验.
总结
采用EXCEL软件计算投标
人的投标报价得分,可以使工作
变得简单,快捷,无误,在一定程
度上简化了工作程序,提高了工
作效率.以上所举两例子中仅涉
5.计算投标报价得分
首先点选D2单元格,见图
3,然后依次输入
‘‘-IF(B2=$C$2,40,40-100”
ABS(B2一$C$z)/$C$2)”.
这里使用了IF函数及ABS
函数,在此分别解释一下这两个
函数的意思:
a.IF函数,函数内有两个”,”
将函数分成了三部分.
第一部分,是IF函数进行判
图3
断的条件,即本例子评分办法中
“当投标人的投标报价比评标基
准价每高1个百分点时,在满分
基础上减2分,减至0分止”.
此种情况用电子表格计算
图6
也很简单,其中第1—4步的做法
与例一相同,第5步的具体如下:
首先选D2单元格,见图6,
然后依次输入”=IF(B2=$C
$2,40,IF(B2>$C$2,4O一2100
(B2一$C$2)/$C$2,40—100
巧用
巧用EXCEL软件
计算投标报价得分
在招标活动中,经常要根据
投标人的投标报价来计算各投标
商的报价得分,而在投标单位较
多时,每家都需要运用同一个公
式来计算,目前通常的做法是用
计算器计算,但这样即浪费时间,
又很容易出错.而使用电子表格
Excel表格制作标高计算程序
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.先输入5个数据，即黄色单元格内数据，测点名称可以根据实际名称修改。
2.起点高程就是测点，终点高程是目标点。
3.输入编号时需要看一下数值一列哪一个数在0.4~
4.6之间，选择对应的编号双击输入。
编号输入完成后可以Delete选中删除该编号行往后的数据，以免抄错，如果ZD10仍无法到达目标高程，A~E 列均可选中下拉，直到到达目标高程。
5.注意，数据为随机生成，所有数据输入完成后，不可对任何单元格做任何操作（包括双击选中），否则会自动重新计算
6.转点信息在第二页，建议五个信息输入完成以后再抄写。
Excel中行高计算方式
Excel中行高、列宽尺寸的换算一、先说明一下度量单位的相互换算关系：磅：指打印的字符的高度的度量单位。
1 磅近似等于1/72 英寸，或大约等于1/28.35 厘米。
英寸：1英寸近似等于 2.54 厘米。
像素：与显示解析度有关，一般情况下显示解析度为：96像素/英寸,则 96 像素 = 1 英寸 = 2.54 厘米二、EXCEL中的行高、列宽1、行高：以磅为单位。
即行高是等于Hight/28.35 厘米(在上例中即为 14.25/28.35=0.5 厘米）。
也2、列宽：一个列宽单位等于“常规”样式中一个字符的宽度。
对于比例字体，则使用字符“0”（零）三、提示 :在Excel中还有一个快速获得单元格行高列宽的方法：第一步：点击“图片”工具栏中的“直线”按钮；第二步：按住Alt键不放，用鼠标沿着单元格画直线，此时直线是沿着单元格的边框延伸，完成后松开鼠第三步：右击直线选择“设置自选图形格式”，在“大小”选项卡中的“大小和转角”区域中可以查看行高的单位是磅值列宽的单位是字符为了使打印出来的表格便于手工填写,行高一般设为21-22.5, 约为标高 7 mmExcel行高所使用单位为磅（1cm=28.6磅），列宽使用单位为1/10英寸（既1个单位为2.54mm)excel里的单位和c m(厘米)可以这样转换：行高: 1毫米＝2.7682个单位 1厘米＝27.682个单位1个单位＝0.3612毫米列宽： 1毫米＝0.4374个单位 1厘米＝4.374 个单位 1个单位＝2.2862毫米excel里的单位和c m(厘米)可以这样转换：行高: 1毫米＝2.7682个单位 1厘米＝27.682个单位1个单位＝0.3612毫米列宽： 1毫米＝0.4374个单位 1厘米＝4.374 个单位 1个单位＝2.2862毫米行高是以磅为单位1mm=2.835磅列宽与EXC EL的标准字体有关=====================帮助中说-------出现在“标准列宽”框中的数字为适合于单元格的标准字体的数字0-9 的平均值。
小白自学ExcelVBA道路坐标高程计算程序流程
小白自学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 磅近似等于1/72 英寸，或大约等于1/28.35 厘米。
英寸：1英寸近似等于 2.54 厘米。
像素：与显示解析度有关，一般情况下显示解析度为：96像素/英寸,则96 像素= 1 英寸= 2.54 厘米二、EXCEL中的行高、列宽1、行高：以磅为单位。
即行高是等于Hight/28.35 厘米(在上例中即为14.25/28.35=0.5 厘米）。
也2、列宽：一个列宽单位等于“常规”样式中一个字符的宽度。
对于比例字体，则使用字符“0”（零）三、提示:在Excel中还有一个快速获得单元格行高列宽的方法：第一步：点击“图片”工具栏中的“直线”按钮；第二步：按住Alt键不放，用鼠标沿着单元格画直线，此时直线是沿着单元格的边框延伸，完成后松开鼠第三步：右击直线选择“设置自选图形格式”，在“大小”选项卡中的“大小和转角”区域中可以查看行高的单位是磅值列宽的单位是字符为了使打印出来的表格便于手工填写, 行高一般设为21-22.5, 约为标高7 mm Excel行高所使用单位为磅（1cm=28.6磅），列宽使用单位为1/10英寸（既1个单位为2.54mm)excel里的单位和cm(厘米)可以这样转换：行高: 1毫米＝2.7682个单位1厘米＝27.682个单位1个单位＝0.3612毫米列宽：1毫米＝0.4374个单位1厘米＝4.374 个单位1个单位＝2.2862毫米excel里的单位和cm(厘米)可以这样转换：行高: 1毫米＝2.7682个单位1厘米＝27.682个单位1个单位＝0.3612毫米列宽：1毫米＝0.4374个单位1厘米＝4.374 个单位1个单位＝2.2862毫米行高是以磅为单位1mm=2.835磅列宽与EXCEL的标准字体有关=====================帮助中说-------出现在“标准列宽”框中的数字为适合于单元格的标准字体的数字0-9 的平均值。
计算高程及横坡的EXCEL
1377.318 205872.78 0.1733 1.0400 336.1175 243.1708
1377.318 205972.78
13.95848 27.9170
259.0360
362.9944
0.693324
273.68776
右边桩 Y
右边距 左边距
5227.83592
10
10
5216.86694
205130 21236.82145 5211.67977 21245.7316 5207.139933 21254.64165
205134 21235.01717 5208.10964 21243.9273 5203.569933 21252.83751
205138 21233.21623 5204.53778 21242.1265 5199.998235 21251.03673
10
5181.15158
10
10
5177.56854
10
10
5173.98258
10
10
5170.39351
10
abcdef起点里程线元长度l起点x座标起点y座标起点方位角p左偏1右偏120510169100212585585232371242997512052016967109212142395142735245077512058727810021087862449039227299441xyxyx2051016921249650795236916512125856075232376219212674705320511421244063665225947362125297365221407148212618834820511821242250175222381992125116015217841843212600700620512221240438375218815742124934845214275679212582583420512621238628665215248412124753875210708446212564487320513021236821455211679772124573165207139933212546416520513421235017175208109642124392735203569933212528375120513821233216235204537782124212655199998235212510367320514221231419055200964012124032945196424633212492397120514621229626035197388121238536551928489182124744689缓和曲线曲偏角l任l总213l总2r180314159265缓和曲线弦长l任l总90r2l总2截断线元要素里程桩号左边桩中桩右边桩圆曲线曲偏角90l任314159265r圆曲线弦长2rsin90l任314159265r205150212278376519380986212367481518927088421245658672051542122605417519022908212349648518569032621243875482051582122427616518664554212331869518210704212420977220516221222503995183059062123141495178520822124032581205166212207380
EXCEL2010工程应用实例之标高计算系统
标高计算系统刘炳仓标高计算是在公路工程中属于测量方面的工作，这个工作并不难，但是比较麻烦，计算某一个里程的标高，只要查出相关参数，计算标高就不会出现什么问题，但是每次要去查出相关参数在工作程序上是比较烦人的，时间久了出现问题是不可避免的。
在公路施工过程中，测量工作在标高方面出现的问题并不少见，这对工程进度和成本都造成损失，为了减少这一错误，本人编写了《标高计算》表进行处理工作上的问题。
使用标高计算之前，首先把图纸中的相关竖曲线参数输入到《竖曲线参数》表中，检查无误后保存，在以后的工作中，要计算某一个里程的标高，只在《标高计算》表中输入计算里程，中桩的设计标高自动计算出来，当然这个标高是设计的路面高程。
知道了这个高程，同一点的其它高程那就是简单的加减工作了。
要说明的是本计算表不能对设计中出现的长短链进行自动处理，这需要在计算的时候手工处理。
设计这个表格之前，让我们先看看竖曲线的两个计算公式：直线段计算公式：H=i∗l1−lq+ℎ1；抛物线的计算公式：H=−l1−lq22R+l1−lq∗i+ℎ1；注：H为需要计算点的高程；i为坡度；l1为计算点里程；lq为竖曲线（直线）起点里程；h1为起点高程；R为竖线参数。
2.1、竖曲线参数（标签名：竖曲线参数）本表为竖曲线参数输入表，计算一个线段的标高之前，首先要输入这一段的参数，参数输入好之后，在《标高计算》表中就可以进行标高计算。
这个表中从A列到G列的参数是用户输入的，输入时要注意参数的输入格式：1、【曲线起点坡度】栏：上坡为正，下坡为负。
2、【切线长或直线长度】栏：起始点必需为直线，起始单元格数据是从起点到抛物线起点的直线长度。
3、【切线长或直线长度】栏：起始点以后的单元格填写的内容为抛物线的切线长度，直线对应的单元格不填数据。
4、在曲线类型栏内输入参数时，必需是“直线→抛物线→直线→抛物线→……”这种循环方式填写，即使是两条抛物线相接，它们中间也要插入直线段，插入的这条直线的长度为“0”，如果是两条不同坡度的直线相接，中间也要插入一条抛物线，抛物线的长度也为“0”；5、线型结束点的曲线半径填写值为“1”，切线长或直线长度栏填写值为“0”。
铁路QC成果：水准测量标高计算之Microsoft Excel编程
铁路QC成果：水准测量标高计算之Microsoft Excel编程段第二十九次QC 成果发表材料标高快算V2――水准测量标高计算之Microsoft Excel编程发表人：******段***车间QC小组 20**年4月2日第1页共18页标高快算V2――水准测量标高计算之Mrcrosoft Excel编程一、小组概况：小组名称 ***段***车间QC小组成立时间 2021年5月10日日课题名称 2021年6月10日登记时间 2021年11月10日活动期限 20**.5.1~20**. 12.30 注册号课题类型登记号活动次数攻关型 22次/月小组人员情况顺姓名号 1 2 3 4 5 6 7 *** *** *** *** *** *** *** 接受QC 教育情况接受QC 教育情况年龄性别 46 35 47 39 28 28 24 男男男男男男男职务领工员助工材料员计工员线路工线路工实习生文化程度中专大专大专大专中专中专大本组内职务负责课题布置技术咨询测量用具供应生活后勤保障程序编制试用技术咨询人均接受TQC教育72小时以上并获考试合格证书 2001年“*****基床病害”获一等奖2021年“****防护的工程实践” 图表 1 制表人：*** 时间：2021.3.25第2页共18页二、可行性分析***段现辖**、**、**、**、**和**六线，累计正线延长917.594km，站线全长418.456km，在长达数千公里的线路维修中，经常需要对纵断面进行抄平，观察其纵断面的坡度。
除了线路抄平，在路基防水工程中施工时也要用水准测量，以设计出合理的排水坡度。
在执行这些任务的过程中，一天测量下来累积的数据量非常大，这使得资料的整理和数据的计算变成一项非常繁重的工作。
原来用手工的方法直接在记录本上计算出标高，有如下几个缺点：?非常耗费时间，通常要2~3个小时的时间；?计算过程中难免读错数字、错按计算器的键等等，出现错误数据；?现场记录的格式、书写的清晰程度不一，影响数据的统一利用；?测量记录薄积累多了，保存起来也占有宝贵的办公空间。
Excel全线坐标高程计算v1.积木法版
鸣谢：本Excel计算表格主要由王中伟老师的“道路中边桩坐标计算程序110610”“立交匝道参数辅助计算程序（100111版）”整合而成，还有测量空间中半边书生的“纯Excel公式开发的施工测量数据计算表V1.4”的一些公式。
王中伟老师是一个非常有责任心研究心的好老师，多浏览他的QQ（595077）空间，你会学到很多有用的东西，请关注他的新书《卡西欧fx-5800P计算器与道路施工放样程序》（加邮费才25左右），很好的一本书。
半边书生的“纯Excel公式开发的施工测量数据计算表V1.4”，是一个开源的，非常有指导和建设意义的测量公式集，读懂它，你就可以自己分装加载一个适合自己的Excel工作簿。
当然，学习无止尽，前辈给我们垫了那么好的一条路，我们不要总是模仿不前，其实前面的那些都是基础的，真正属于我们自己的才刚刚开始！
最后说一下本人喽，我QQ740311548，我也是个初学者，现在是整理学习级别的，本人现在能力有限，请大家多多测评这个Excel计算表，有错误的地方请指出，大家相互切磋学习！大家有什么好的Excel软件一定不要独享哦，发到测量空间/ 大家共同创造出免费实用的软件！！
0”“立交匝道参数el公式开发的施工测间，你会学到很多有加邮费才25左右），，是一个开源的，非常己的Excel工作簿。
当其实前面的那些都是
的，本人现在能力有学习！大家有什么好的m/ 大家共同创造出。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Excel标高计算程序
新建一个Excel文件，把Sheet1表重命名为“竖曲线”，把Sheet2表重命名为“设计标高”。
（1）在竖曲线表中的A1-E1（合并）单元格输入线路名称，在A2-E2单元格中分别输入“变坡点编号”、“变坡点里程”、“变坡点标高”、“曲线半径”和“切线长”,从第三行开始输入对应数据，
（2）打开VB编辑器（Alt+F11），双击工程资源管理器中“设计标高”表图标，复制以下程序到界面上，保存后返回Excel窗口，在“设计标高”表中的第一列，从第二行开始输入要计算的里程桩号，完成后，在任一单元格中双击单元格，即可看见输入结果（在第二列），本程序默认遇到桩号列空单元格时不再向下计算。
Dim K As Double
Dim H As Double
Dim P1 As Double, P2 As Double, P3 As Double
Dim H1 As Double, H2 As Double
Dim R1 As Double, R2 As Double
Dim T1 As Double, T2 As Double
Dim D1 As Double, D2 As Double
Dim G1 As Long, G2 As Long
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Dim i As Long
Dim hang As Long
Dim cell
n = 0
For Each cell In Sheets("竖曲线").Range("a3:a65536")
If cell.Value <> "" Then
n = n + 1
Else
Exit For
End If
Next
i = 2
flag:
P2 = 0
P3 = 0
hang = 3
If Sheets("设计标高").Cells(i, 1) <> "" Then
K = Val(Cells(i, 1))
canshu:
P1 = P2
D1 = 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 Then
hang = hang + 1
GoTo canshu
Else
Call biaogao
Sheets("设计标高").Cells(i, 2) = Round(H, 3)
End If
Else
End
End If
i = i + 1
GoTo flag
End Sub
Function biaogao() As Double
On Error Resume Next
G1 = -1
If P2 - P1 > 0 Then G1 = 1
G2 = -1
If P3 - P2 > 0 Then G2 = 1
H = 0
If K < D1 + T1 Then
H = H1 + (K - D1) * P2 + G1 * (D1 + T1 - K) ^ 2 / (2 * R1)
ElseIf K <= D2 - T2 Then
H = H1 + (K - D1) * P2
Else
If R2 <> 0 Then
H = H2 - (D2 - K) * P2 + G2 * (K - (D2 - T2)) ^ 2 / (2 * R2)
Else
H = H2 - (D2 - K) * P2
End If
End If
End Function
本程序只计算单一线路的中桩标高，若想把多个线路的参数放在同一个表中时，只需对以上程序稍加改动即可。