测量程序集excel自动计算表格
电子表格Excel VBA测量程序分享
电子表格Excel VBA测量程序分享2012-2-13 11:16阅读(6977)简介：Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，Visual Basic forApplications（VBA）是一种VisualBasic的一种宏语言，是基于Visual Basic for Windows 发展而来的，主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。
也可说是一种应用程式视觉化的Basic Script，VBA的使用可以达成执行特定功能或是重复性高的操作。
适用：Microsoft Office Excel办公软件NO.1：曲线坐标计算程序VBA说明：本程序适用于Office Excel运行，属于多交点坐标正算、反算程序，包括：多交点曲线要素、坐标正算、坐标反算、放样计算、竖曲线高程等。
下载：曲线坐标计算程序VBA 1.0（单交点坐标正算）曲线坐标计算程序VBA 2.0（单交点坐标正算、反算）曲线坐标计算程序VBA 2.3（单交点坐标正算、反算、自动化）曲线坐标计算程序VBA 3.0（多交点坐标正算、反算）曲线坐标计算程序VBA 4.0~4.9（交点法、线元法、竖曲线等一体化程序）2012-11-15 更新测量坐标计算程序 V5（交点法、线元法、直线、竖曲线等多种计算程序）2013-07-27 更新NO.2：测量计算程序集成VBA 1.6说明：本程序适用于Office Excel运行，通过VBA编写的测量集成程序，属于单交点曲线，包括：坐标正算、坐标反算、坐标放样、角度转弧度、任意切线方位角、坐标展点、边角后方交会、坐标面积计算、无定向平差、水准平差、竖曲线高程、导线观测手薄、线元法坐标正算、线元法坐标反算、直线坐标正反算等。
下载：点击下载NO.3：线元法坐标正反算VBA说明：本程序适用于Office Excel运行，是线元法坐标正算、反算一体程序，可以计算多线元数据，适用性广（包括：复曲线、S型曲线、匝道）等。
造价算量,使用这个Excel函数可以帮你自动算出工程量.doc
造价算量，使用这个Excel函数可以帮你自
动算出工程量
大部分同学采用这种方式：把计算式复制，然后再工程量列内输入“=计算式”。
如下：
这个方式，很费时间，还不能同步更新，如果计算式列需要调整还得重新复制进去。
所以给大家推荐一个函数，自动计算工程量，还能同步更新。
流程如下：1、选择公式——定义名称
2、修改名称（任意名称都行）——引用位置（=evaluate+需要计算工程量的公式列表格）
3、一定记住删除“$”这个符号，使其成为相对表格
4、在工程量列输入刚才定义的名称“=工程量”
5、在表格右下角可以选择往下拉，让下面表格填充该公式
6、这样一来，整个计算式就都自动计算工程量了，还能自动更新。
纯Excel公式开发的施工测量数据计算表V1.4
纯Excel公式开发的施工测量数据计算表版本号：1.4功能：可以根据输入的起点桩号、各交点坐标、各交点的圆曲线半径、缓和曲线长（支持不对称缓和曲线）直接生成标准的《直线曲线及转角表》和积木法平曲线参数表。
可以计算非对称基本型（直-缓1-圆-缓2）以及下列由其变化而成共6种线型的任意交角中边桩坐标。
1、单一完整缓和曲线；分缓1和缓2两种情况，此曲线为前直线、圆曲线和另一缓和曲线长度均为0的特殊曲线。
2、单一圆曲线，即前直线和缓和曲线长度均为零的曲线。
3、卵型曲线，即圆曲线长为0的曲线（前直线有无不限，此类曲线在程序中要加入防止R被作除数时出错）4、缓1+圆曲线型曲线，即缓2长度为零的曲线（前直线长度不限）5、圆曲线+缓2型曲线，即前直线和缓1长度为零的曲线。
6、单一直线，即所有缓和曲线和圆曲线的长度均为零的曲线（常用于路线终点直线计算，此类曲线需防止已知量为零并被当作被除数时出错）可以根据输入的桩号自动生成用于AutoCAD脚本绘图的代码，拷贝后保存为*.scr文件，在任意版本AutoCAD中加载展绘中线和桩号。
可以用近似公式计算竖曲线高程。
对于以变量赋值形式作为数据库的CASIOfx-5800P计算器程序，可自动生成交点法、积木法、竖曲线数据库。
使用说明：此表用纯Excel公式编成，理论上可计算多达30000个交点，但考虑到实际情况，只拉出了200个交点的表格，所有的已知数据在此表中输入，结果在《直曲表》中查看。
此表格经多条100公里以上的线路计算，误差均小于1mm，可用于设计数据复核。
因为很多线路的桩号，缓和曲线参数，主点桩号等数值均只取2位小数，而交点坐标一般会给出小数点后三位，半径和缓和曲线长一般均为整数，用此表计算可以帮助有程序的朋友在建立数据库时提高计算精度。
又有朋友手上只有积木法的程序，对于交点法不想另编，本表又提供了一种从交点法表格直接转为积木法的功能，已知数据还是没有变，根据交点个数，拉了800行。
教你如何通过ExcelVBA编写测量坐标计算程序
教你如何通过ExcelVBA编写测量坐标计算程序（入门篇）摘要：认识VBA、理解VBA，并利用Office Excel VBA编写测量坐标计算程序。
关键词：Excel VBA 程序坐标编写了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。
可以用E xcel的宏语言来使E xcel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application(VBA)，可以认为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需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。
在VBA中需要了解VBA的过程、变量、属性、方法、事件、语句等。
如何使用Excel制作表格并自动进行计算
Vo l.27No .10Oct.2011第27卷第10期2011年10月赤峰学院学报(自然科学版)J o urnal o f Chifeng University (Natural S cience Editio n )1序言随着企事业单位管理水平的不断提高,各行各业都有自己专用的表格来记录数据,Excel 制作的电子表格不但美观,同时还可以使用内置的公式及函数实现数据的自动计算,既准确又快捷.因而它已经成为各单位制作电子表格的首选软件.2表格制作例:学生成绩表如表1所示.如何使用Excel 制作表格并自动进行计算段新宇(赤峰学院人事处,内蒙古赤峰024000)摘要:本文以学生成绩单为例介绍了使用Excel 制作表格的方法及如何运用Excel 中的公式对表中的数据进行自动计算.关键词:Excel ;表格;公式中图分类号:TP391.13文献标识码:A文章编号:1673-260X (2011)10-0046-02表1学生成绩表(部分)其制作过程如下:(1)打开Excel 窗口Excel 启动后,即打开Excel 应用程序工作窗口,如图1所示.(2)调整表格的各行、列的宽度当表格中各行、列的宽度不一致时,可通过菜单方式或用鼠标拖动方式进行调整.①菜单方式单击要改变行高的那一行或要改变列宽的那一列中的任一单元格,选择【格式】菜单中的【行】子菜单中的【行高】或【列】子菜单中的【列宽】项,在打开的对话框中输入数值.②鼠标方式将鼠标移到要改变行高的那一行的行号的边缘或要改变列宽的那一列的列号边缘,当鼠标变成形状后,按住左键拖动鼠标进行调整.(3)标题输入如果表有标题,则选中表的第1行所有的单元格,然后单击【格式】工具栏上的【合并及居中】按钮,将它们合并成一个单元格并使其中的数据以居中对齐的方式显示,然后在其中输入表的标题.表中行标题输入时,只要双击相应的单元格,使光标变成I 字形,即可进行输入.当标题长度过长时,可选择【格式】菜单中的【单元格】,屏幕出现“单元格格式”对话框,单击其中的“对齐”选项卡的标签,选择“自动换行”复选框,再单击“确定”按钮,即可实现自动回行.如果想要在单元格中另起一行输入数据(如表1中的第二列),则按Alt+Enter 键.图1Excel 应用程序窗口(4)数据输入选择要输入数据的单元格,输入相应的数据.在表1中,只要输入学号、姓名、平时成绩、卷面成绩这四列数据即可.由于成绩表要求按学生学号顺序排列,则学号列可使用自动填充方式,实现方法有两种:①利用填充柄进行填充在A2和A3两个单元格内输入前两个学生的学号,选中A2:A3单元格区域,移到光标至选中区域右下角,当出现“+”形状填充柄时,按住鼠标左键向下拖动即可.②利用对话框进行填充在A2单元格内输入第一个学生的学号,单击【编辑】菜单中的【序列】子菜单中的“序列”,在序列对话框中进行填充设置,如图2所示.数据输入结束后,效果如图3所示.(5)设置表格边框由于表1中的第二列行标题中有一斜线,为此边框设置可分两步进行:①选中B1单元格,单击【格式】菜单中的【单元格】,屏幕出现“单元格格式”对话框,单击其中的“边框”选项卡的标签,如图4所示.单击,然后再单击“确定”按钮.②选中整个表格区域,再次进入“单元格格式”对话框,单击其中的“边框”选项卡的标签,单击外边框和内部两个按钮,然后再单击“确定”按钮.3数据的自动计算在表1中,卷面成绩*80%列的值是卷面成绩列的值乘以0.8,而总成绩等于平时成绩加上卷面成绩*80%,要实现这两列值的自动计算,其步骤如下:①选定F2单元格,在数据编辑区输入公式:“=E2*0.8”,单击工作表任意位置或按Enter 键或单击左边的√按钮,结果显示在F2单元格内.②用鼠标拖动F2单元格的自动填充柄至该列的末尾,放开鼠标,计算结果显示在拖动的区域内.③选定G2单元格,在数据编辑区输入公式:“=D2+F2”,使结果显示在G2单元格内,再用鼠标拖动G2单元格的自动填充柄.效果如图5所示.———————————————————参考文献:〔1〕方美琪.全国计算机等级考试一级教程.高等教育出版社.〔2〕教育部考试中心.全国计算机等级考试一级MS Office 教程.南开大学出版社.图2序列对话框及设置情况图3输入数据后的效果图4单元格格式对话框图5学生成绩表(部分)效果图tifn ot exi st !４７--. All Rights Reserved.。
三、四等水准测量记录Excel自动计算程序
∑[ ⑾+⑿ ] =17.619
∑⒁= 8.8095 2∑⒁= 17.619
⒁
0.5355
0.8785
1.082
1.0215
1.408
0.8245
0.853
0.6Hale Waihona Puke 350.86910
BM27 -0.7 -2
0.869
每 页 校 核
∑⒂= 743.9 -）∑⒃= 745.9 = -2 ∑⒂+∑⒃= 1489.8m
∑[ ⑶+⑻ ] = 87.014 -）∑[ ⑹+⑺ ] = 69.395 = 17.619
水准尺读数 K+黑-红 黑 面 ⑶ ⑹ ⑾ 2.312 1.725 0.587 1.894 1.251 0.643 2.054 1.126 0.928 1.898 0.867 1.031 2.099 1.026 1.073 2.442 1.083 1.359 1.879 1.005 0.874 1.675 0.872 0.803 1.675 0.982 0.693 1.894 1.075 0.819 红 面 ⑻ ⑺ ⑿ 7.098 6.414 0.584 6.583 6.038 0.645 6.841 5.812 0.929 6.586 5.653 1.033 6.884 5.714 1.07 7.128 5.871 1.357 6.667 5.692 0.875 6.361 5.658 0.803 6.462 5.668 0.694 6.582 5.863 0.819 ⑽ ⑼ ⒀ 0.001 -0.002 0.003 -0.002 0 -0.002 0 0.001 -0.001 -0.001 0.001 -0.002 0.002 -0.001 0.003 0.001 -0.001 0.002 -0.001 0 -0.001 0.001 0.001 0 0 0.001 -0.001 -0.001 -0.001 0 K为尺常数： KA=4.787 KB=4.687 已知高程： BM26 1000.000 BM27 1008.801 0.694 平均高差 备 注
怎样编写怎样编写工程试验检测等其他领域的Excel自动计算程序等其他领域的Excel自动计算程序
怎样编写工程试验检测等其他1 2 3 4 5 6 7 8 9 10 11 12 13 14 1516 17 18 19 20 21 22 23 24 25浙江地区公路工程路基试验段资料 (2011-06-13 11:04:43)后张法预应力梁张拉计算书 (2011-05-02 17:30:23)砼拌合站报验 (2011-04-30 16:45:17)试验仪器操作规程 (2011-04-30 16:25:13)其他试验浮称法密度模拟计算 (2011-05-05 11:35:39)钢筋保护层厚度记录 (2011-05-05 11:35:10)承载比CBR曲线模拟程序 (2011-05-05 11:28:09)后张法预应力梁张拉计算书 (2011-05-02 17:30:23)砼拌合站报验 (2011-04-30 16:45:17)钢筋保护层厚度记录 (2011-05-05 11:35:10)承载比CBR曲线模拟程序 (2011-05-05 11:28:09)公路工程试验作业指导书大全 (2011-06-09 18:18:53)TB 10754-2010高速铁路轨道工程施工质量验收标准 (2011-06-09 12:07高速铁路轨道工程施工技术指南[2010]241号 (2011-06-09 12:04:19)压实度压实系数试验灌砂灌水环刀自动计算 (2011-05-12 19:14:54)液塑限模拟计算程序铁路工程 (2011-04-28 21:48:35)压实度评定计算 (2011-04-28 10:13:49)普通混凝土配合比设计程序 (2011-07-22 18:27:31)隧道注浆配合比试验 (2011-06-13 11:15:42)四舍六入五考虑Excel数值修约宏函数FIXED5 (2011-04-23 12:01:59)公路工程试验作业指导书大全 (2011-06-09 18:18:53)TB 10754-2010高速铁路轨道工程施工质量验收标准 (2011-06-09 12:07高速铁路轨道工程施工技术指南[2010]241号 (2011-06-09 12:04:19)压实度压实系数试验灌砂灌水环刀自动计算 (2011-05-12 19:14:54)浮称法密度模拟计算 (2011-05-05 11:35:39)26 27 28 29 30 31 32 33 34 35 36 37 3839 40 41水泥试验报告 记录自动计算（含有Fixed5函数）细骨料试验报告 记录自动计算（含有Fixed5函数）粗骨料试验报告 记录自动计算（含有Fixed5函数）K30平板荷载试验自动计算 (2011-09-07 17:57:47)K30平板载荷仪校验记录 (2011-09-07 16:45:26)DOC版JGJ52-2006普通混凝土用砂、石质量及检验方法标准 (2011-09-07试验检测工程师考试经常考的简答题 (2011-09-05 12:00:43)M7.5砂浆配合比全套资料 (2011-09-11 12:36:54)C40配合比全套资料 (2011-09-11 12:35:32)液塑限模拟计算程序铁路工程 (2011-04-28 21:48:35)压实度评定计算 (2011-04-28 10:13:49)普通混凝土配合比设计程序 (2011-07-22 18:27:31)拓普康全站仪联机驱动 (2011-06-13 11:22:45)隧道注浆配合比试验 (2011-06-13 11:15:42)浙江地区公路工程路基试验段资料 (2011-06-13 11:04:43)试验仪器操作规程 (2011-04-30 16:25:13)说明：计算请按功能键F9μf等其他领域的Excel自动计算程序：需要编出满足我们要求的分计筛余百分数)μf他试验程序及资料59)12:07:19)19)4)12:07:19)19)4)09-07 09:50:23)下表.500。
Excel表格自动计算技巧
Excel表格自动计算技巧一、显示单元格例有计算式的结果的设置方法首先：插入-名称-定义在弹出的对话框“当前工作薄的名称”中输入: X或“结果”的自定义名称，再在“引用位置”处粘贴＝EVALUATE(SUBSTITUTE(S UBSTITUTE(SUBSTITUTE(SUBSTITUTE(计算!$C$1,"[","("),"]",")"),"×","*"),"÷"," /")) 公式(注意要有“＝”号。
再对公式中“计算!$C$1”选择上，然后再到需要做公式的单元格中点击即可。
如要相对引用，则要删除$字符。
已经OK，你在C1输入表达式比如15+5×3 ，在D1中输入=x 看看(应该是30)。
二、如何在Excel中输入计算式后另一单元显示计算结果菜单--插入--名称--定义：输入AA(任意取名)，在下面输入公式:=EVALUATE($A$1)然后在B1单元格输入公式：=AA但本式不能识别如：[ 、×、÷等符号进行计算，使用第一种较好。
三、如何在Excel中编写自定义函数，象在表格中调用SUM()一样？第一种情况：单元格A1 = 2；单元格B1 = 2；单元格C1 = 2单元格D1=(A1+B1)×C1 显示结果为8 ；那么如何才能在单元格E1中显示(2+2)×2的计算表达式，并且建立关联，当单元格D1变成=(A1+BA)^C1 计算式后，显示结果为16；那么E1也就自动显示为(2+2)^2的计算表达式，也就是说随着单元格D1的计算公式变化，单元格E1显示的计算表达式也随之变化。
第二种情况：是当计算的单元格任意变化时，怎么办？比如说计算式E1=A1+B1+C1+D1，也有D2=A2+B2+C2，还有F3=A1+B1+C1+D1+E1时。