自编Excel测量计算程序

小白自学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 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在测量计算中的应用

二、闭合导线坐标计算Excel程序编制利用Excel进行闭合导线坐标计算，编写Excel计算程序，可参照计算编程界面4完成。

对照Excel界面4解答下列问题：1．写出B8～B10单元格的计算语句和导线点数字编号。

2．写出Bll单元格导线点号和Cll、Dll、Ell单元格的角度值。

解释‘＝136’、‘＝C6’，即引用某单元格值的含义。

引用与复制语句有什么区别？3．写出FT～Fll和F16计算语句。

4．解释F13单元格SUM(F6:F10)语句的含义。

5．写出相对地址、绝对地址和混合地址表达形式．举例说明什么是相对地址、绝对地址和混合地址？6．如何操作使导线点编号和水平角值靠单元格上线，而使方位角和边长值靠下线？7．写出计算某数乘幂的函数名(英文)，如何操作给某数开平方？8．如何给F16单元格复制F6计算语句？9．H6单元格方位角值的来源地址？是哪一个边的方位角？10．写出G13计算语句，解释计算值与G14单元格值检核的含义。

11．写出I13计算语句，如果通过复制F13语句得到I13语句应如何操作？12．写出J7～J10单元格语句和K7～K10单元格语句。

13．如何使用SUM(求和)、SIN、COS、POWER(乘幂)等函数？举例说明。

14．计算数值的三角函数值时，数值用度还是弧度？15．如何在公式编辑栏中编写计算语句(公式)？以G6单元格为例说明。

16．写出K14、M14、K15、K16单元格数据的来源。

这些数据在测量学中含义是什么？17．解释K15、K16单元格语句中POWER函数和计算结果的含义。

18．解释N11、O11单元格计算结果与N6、O6检核的含义。

19．增加或减少闭合导线点数该计算程序能否通用，应做什么修改？以导线点数由5个点增至10个点为例说明。

20．给工作表重命名。

将Sheetl、Sheet2、Sheet3、Sheet4重命名为闭合导线、附合导线、三角平差和三角坐标，写出操作步骤。

纯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编制工程量计算书

巧用Excel编制工程量计算书巧用Excel编制工程量计算书Excel 最重要的应用就是利用公式进行计算。

无论输入是纯粹的数字运算，还是引用其他单元格计算，只要在一个单元格中输入公式，就能得到结果。

这个直接显示结果的设计对于绝大多数场合来说都是适用的，但某些情况下就不那么让人满意了。

比如说在做工程施工的预结算编写，使用Excel，既要写出工程量的计算式，也要看到它的结果，于是这样相同的公式在Excel里面要填两次，一次在文本格式的单元格中输入公式，一次是在数据格式的单元格中输入公式让Excel 计算结果。

如何既能看到公式又能看到结果呢？这个问题笔者认为可以从两个方面考虑：一种方法是所谓“已知结果，显示公式”，先在数据格式单元格中输入公式让Excel计算结果，然后在相邻的单元格中看到公式；另一种方法所谓“已知公式，显示结果”，就是先在一个文本格式的单元格中输入公式，在相邻的单元格中看到结果。

★已知结果，显示公式假设C列为通过公式计算得到的结果（假设C1为“=A1+B1”，或者直接是数字运算“=2+3”)，而相邻的D列是你需要显示公式的地方（即D1应该显示为“=A1+B1”或者“=2+3”）。

1. 打开“工具”菜单选择“选项”命令，出现“选项”对话框。

2. 在“常规”选项卡中，选中“R1C1引用方式”选项。

3. 定义名称，将“引用位置”由“=GET.CELL(6,Sheet1!RC[-1])”即可。

这里的RC[-1]含义是如果在当前单元格的同行前一列单元格中有公式结果，则在当前单元格中得到公式内容，即在含公式结果单元格的同行后一列单元格显示公式内容；如果将RC[-1]改为RC[1]，则在公式结果的同行前一列单元格显示公式内容。

4. 如果“引用位置”中含有“RC[-1]”，则在含公式结果单元格的同行后一列单元格中输入“=FormulaofResult”即可得到公式；如果“引用位置”中含有“RC[1]”，则在含公式结果单元格的同行前一列单元格中输入“=FormulaofResult”即可得到公式。

excel表格自动计算工程量

竭诚为您提供优质文档/双击可除excel表格自动计算工程量篇一：excel编辑工程量计算表(一看就会_再也不求人) exceleValuate函数一例（公式与结果共显）eValuate是eexcel4．0版的宏表函数。

excel2000、excel20xx和excel20xx中还支持，但只可用于名称定义中。

语法：eValuate(formula_text)Formula_text是一个要求值的以文字形式表示的表达式。

注：使用eValuate类似于在编辑栏的公式内选定一个表达式并按下了［重新计算］键（在microsoftexcelforwindows中是F9）。

eValuate用一个值来替换一个表达式。

公式与结果共显的例子：假设c列为输入的没有等号公式（假设c1为“a1+b1”)，而相邻的d列是你需要存放公式计算结果的地方（即d1显示a1和b1单元格相加的结果）。

1.选中d1，然后打开“插入”菜单选择“名称”命令中的“定义”子命令，出现“定义名称”对话框。

2.在“在当前工作表中的名称”输入栏中输入定义的名称“gongshi”，在下方的“引用位置”编辑栏中输入“=eValuate(sheet1!c1)”，单击[确认]按钮退出。

3.在d1中输入“=gongshi”。

4.然后选中按住右下角的填充柄向下拉动填充即可。

5.填充后要按[F9]进行重算，如果c列的公式有改动，也需要及时按[F9]进行重算。

下面我们讨论上述方法的一个主要问题。

怎样不进行第5步的[F9],使c列的公式有改动，d列的值自动更新？答案是：d1列的公式要改成=gongshi&t(now())。

试试是否可以自动更新了。

附：t、now函数帮助说明t返回value引用的文本。

语法t(value)Value为需要进行检验的数值。

说明：如果值是文本或引用文本，t返回值。

如果值不引用文本，t返回空文本("")。

通常不需在公式中使用函数t，因为microsoftexcel可以自动按需要转换数值的类型，该函数用于与其他电子表格程序兼容。

自动批量生成公路道路测量资料EXCELWPS表格水准测量平面放线

自动批量生成公路道路测量资料EXCELWPS表格水准测量平面放线暂无格式错误，但是第一段话中的“更高效更准确的功能操作”和“实用程序”有点重复，可以改为“提供了更高效、更准确的测量功能，让用户轻松完成各种记录表的制作。

该程序包含导线点、水准点、平曲线（线元法）、纵断面、横坡超高计算等多个功能，能够快速记录、录入和管理测量资料。

”测量资料的使用说明：1.导线点记录在导线点记录中，用户可以输入导线点的编号、坐标、高程等信息，方便后续的测量工作。

2.水准点记录水准点记录可以帮助用户记录水准点的编号、高程等信息，方便后续的测量和计算。

3.平曲线（线元法）计算平曲线计算是测量中常用的功能之一，用户可以输入起点、终点、曲线半径等信息，程序会自动计算出曲线的各项参数。

4.纵断面计算纵断面计算可以帮助用户计算出地形的高程变化情况，用户可以输入各个点的高程值，程序会自动绘制出纵断面图。

5.横坡超高计算横坡超高计算可以帮助用户计算出道路或铁路的横向高差，用户可以输入各个点的高程值和距离，程序会自动计算出横坡超高值。

总之，测量资料程序是一款功能强大、实用方便的测量工具，能够帮助用户快速记录、计算和管理测量资料，提高工作效率和准确性。

一)、功能特色该软件具有以下功能特色：1.支持多种数据格式的导入和导出，方便与其他软件进行数据交换。

2.提供了多种数据处理方法，包括平曲线、竖曲线、断链等，能够满足不同的测量需求。

3.可以自动生成水准点成果表、导线点成果表、原始数据表等多种报表，方便用户查看和使用。

4.提供了超高数据表和标准路面参数表等实用工具，方便用户进行道路设计和施工。

二)、平曲线平曲线是道路设计中常用的一种曲线类型，其特点是曲率变化平缓，适合用于大半径曲线的设计。

该软件提供了平曲线的自动计算功能，用户只需输入起点、终点和设计要求等参数，即可自动生成平曲线的坐标点和曲线参数。

为了保证计算精度，该软件还提供了多种平曲线计算方法，包括三点式、五点式、七点式等，用户可以根据实际情况选择不同的计算方法。

自己编EXCEL算量表

自己编EXCEL算量表MS Office办公软件中的电子表格EXCEL是强大的计算工具，结合造价行业的实际，和大家一起研究如何利用EXCEL进行算量的问题。

工程量计算是预算当中工作量最大的，也是预算员最费神的，所以提高算量的工作效率，成了每个预算员美好愿望，今天让我们来实现这个美好愿望吧。

先谈谈几种算量的方式：一、传统方式算量：传统的算量工作，都是在计算稿上列出计算公式，利用计算器计算结果及汇总。

其弊端是利用计算器计算结果及汇总的工作，容易出错，又费时间。

二、专业算量软件算量：现在很多造价管理软件公司推出了专门的算量软件，如广联达、鲁班、神机妙算等等。

其特点是在算量软件中画好施工图，工程量的计算是软件自动计算的，增加了画图这个步骤(也是工作量最大的)，少了列式计算的步骤，对于做标底是挺方便的。

其弊端是软件价格高，对于工程的细部处理不灵活，对帐不方便等。

三、EXCEL算量：其整体的工作思路和传统方式算量一样，但是通过一些处理，可以减少计算及汇总的步骤，大大提高工作效率。

其优点是计算灵活，对帐方便。

特别注意：EXCEL的宏安全等级必须设置为低级(excel2003中)或无(excel2000中)，在“工具”-“宏“”-“安全性”中设置！好了，开始我们今天的主题，利用EXCEL编制工程量计算表格模板。

编制的关键是实现计算公式与结果兼得。

打开excel，保存为“工程量计算模板”，模板编制步骤：一、设计界面：1)、选择shellt1工作表，双击命名为“计算稿”，按图设计好界面：注意：“项目名称”需要2列，D列输入“项目名称”用，F列输入“构件名称”用。

2)、选择shellt2工作表，双击命名为“单位库”，在A列的第1行开始逐行输入常用的计量单位，如：m³、m²、m….(操作技巧：输入平方“m²”，只需输入m后，按住“ALT”输入数字键盘“178”，m³输入“179”)一、单元格设置：1)、在“计算稿”工作表中设置计量单位下拉菜单：在菜单栏中，点击“插入”→“名称”→“定义”，出现弹出窗口如下：在当前工作薄中的的名称下面输入“dw”，按“添加”，在“引用位置”输入“=单位库!$A:$A”，按“确定”关闭窗口。

线路坐标计算程序 excel版

0.000 0.0
0.000
61475.206 61475.206 61581.433
322634.074 322634.074 322413.245
61475.206 61475.206 61581.433
值.在计算新的里程或加桩里程坐标时,一定要先将最右边
K36+272.626
62240.230
62240.230 62239.509 62238.966
319960.104
319960.104 319987.468 320007.461
0.000
0.000 31.260 31.300
K36+272.626
K36+272.626 K36+300.000 K36+320.000
18.6
缓和曲线长度L 150
°
ˊ
″
第一计算方位角 A1
91.50083333
91
30
3
切线长度T 1146.422
曲线长度l 2260.845
直缓点桩号ZH K36+272.626
缓圆点桩号HY K36+422.626
曲中桩号QZ K37+403.049
圆缓点桩号YH K38+383.471
缓直点桩号HZ K38+533.471
右边桩坐标 Y
319960.104
对应弦长切线方位角
319960.104
319960.104 319986.636 320006.597
0.000
0.000 27.374 47.374
0.000
0.000 27.374 47.374
320110.030

教你如何通过ExcelVBA编写测量坐标计算程序

教你如何通过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算量表

自己编EXCEL算量表MS Office办公软件中的电子表格EXCEL是强大的计算工具，结合造价行业的实际，和大家一起研究如何利用EXCEL进行算量的问题。

工程量计算是预算当中工作量最大的，也是预算员最费神的，所以提高算量的工作效率，成了每个预算员美好愿望，今天让我们来实现这个美好愿望吧。

先谈谈几种算量的方式：一、传统方式算量：传统的算量工作，都是在计算稿上列出计算公式，利用计算器计算结果及汇总。

其弊端是利用计算器计算结果及汇总的工作，容易出错，又费时间。

二、专业算量软件算量：现在很多造价管理软件公司推出了专门的算量软件，如广联达、鲁班、神机妙算等等。

其特点是在算量软件中画好施工图，工程量的计算是软件自动计算的，增加了画图这个步骤(也是工作量最大的)，少了列式计算的步骤，对于做标底是挺方便的。

其弊端是软件价格高，对于工程的细部处理不灵活，对帐不方便等。

三、EXCEL算量：其整体的工作思路和传统方式算量一样，但是通过一些处理，可以减少计算及汇总的步骤，大大提高工作效率。

其优点是计算灵活，对帐方便。

特别注意：EXCEL的宏安全等级必须设置为低级(excel2003中)或无(excel2000中)，在“工具”-“宏“”-“安全性”中设置！好了，开始我们今天的主题，利用EXCEL编制工程量计算表格模板。

编制的关键是实现计算公式与结果兼得。

打开excel，保存为“工程量计算模板”，模板编制步骤：一、设计界面：1)、选择shellt1工作表，双击命名为“计算稿”，按图设计好界面：注意：“项目名称”需要2列，D列输入“项目名称”用，F列输入“构件名称”用。

2)、选择shellt2工作表，双击命名为“单位库”，在A列的第1行开始逐行输入常用的计量单位，如：m³、m²、m….(操作技巧：输入平方“m²”，只需输入m后，按住“ALT”输入数字键盘“178”，m³输入“179”)一、单元格设置：1)、在“计算稿”工作表中设置计量单位下拉菜单：在菜单栏中，点击“插入”→“名称”→“定义”，出现弹出窗口如下：在当前工作薄中的的名称下面输入“dw”，按“添加”，在“引用位置”输入“=单位库!$A:$A”，按“确定”关闭窗口。

测量excel编程

浅谈Excel测量编程摘要：本文论述的主要目的是使用最简单的工具，采用最简单的方法，解决最实际的问题。

以Excel 为编辑平台，适用与大多数的公路工程中线逐桩坐标计算。

可拷贝至掌上电脑中应用，部分智能手机支持Excel电子表格的浏览，携带方便，适用于公路工程施工测量的野外作业。

关键词：坐标计算编程简单野外作业引言为工程测量提供一种简便、计算精度高、速度快的编程方法，如有需要还可根据计算的数据生成线路图以便检查数据，满足于一般公路工程测量的需要。

适用性强，Excel电子表格为大多数计算机必备软件，通用性极强。

以供大家一起讨论研究。

表1-1Excel测量（直线坐标）编程步骤例子如下：1.在图纸中找到直线、曲线及转角表；2. 新建一个excel工作薄，在其中输入如表1-1所示的内容：2.1在直线、曲线及转角表中找到起点（QD）输入起点桩号（2875.987）；2.2在直线、曲线及转角表中找到QD的坐标X0，Y0（726906.498，502750.971）分别输入至A3，B3栏目内；2.3在直线、曲线及转角表中找到方位角（度）156.344输入至D3栏目内；2.4在切线方位角βI3栏目中输入公式：=D3，就会直接出现切线方位角β为156.344；2.4在对所求X下方“E3”栏目内输入公式：=A3+(C3-G3)*COS(D3*PI()/180)；2.5在对所求Y下方“F3”栏目内输入公式：=B3+(C3-G3)*SIN(D3*PI()/180)；2.6在图纸中找到逐桩坐标表，在求桩号C3栏目内输入要计算的桩号：2875.987；2.7当输入求桩号：2875.987时，excel已自动计算出该点的所求X，所求Y，在E3，F3栏目内分别显示为：（726906.498,502750.971）；3.当要求多点的所求X，所求Y值时，使用绝对引用$A$3（表示绝对引用A3里面的数字，往下拉数值不变），下拉鼠标；同理下拉方位角（度）、起点桩号、切线方位角β，因为直线坐标计算中方位角（度）、起点桩号、切线方位角β是固定值；4.对照casio输点进行验证，首先在casio5800里面计算2960的坐标，计算结果为：X,Y(726829.5445，502784.6807),下拉求桩号下光标或插入单元格再输入2960，得X,Y(726829.5445，502784.6808)，误差可以记为“0”；5. 点击“文件”菜单中的“另存为”选项，输入文件名为“直线坐标计算”在文件类型中选择为“文档模版”并点击“保存”。

Excel测量坐标计算程序(附带计算器程序)

缓和曲线角 β2
0.056
切线长ቤተ መጻሕፍቲ ባይዱT1
476.548
JD至HZ方位角
（弧度）
（弧度）
HZ至JD方位角（度）
（度）
HY至JD方位角（弧度）
3.63453181 0.49293916 28.24333333 28°14′36″ 3.322837339
桩号、坐标结果表
QZ桩号
YH桩号
HZ桩号
40306.803
GotoA LblD(第二缓和曲线) Abs（M-(N+T+L+V)）→W W－W5÷（40R2V2）+W9÷（3456R4V4）→C-------------------------------支距X坐标 W3÷（6RV）－W7÷（336R3V3）+W11÷（42240R5V5）→D------------支距Y坐标 90W2÷（πRV）→O-----------------------------------------------------------------缓和曲线角 E＋CcosQ-BDsinQ＋Scos（Q+BO+90）→X◢ F＋CsinQ+BDcosQ＋Ssin（Q+BO+90）→Y◢ Pol（（X-P），（Y-Z））：Cls----------------------------------------------------方位角和距离程序 IfJ＜0：ThenJ+360 →J：ElseJ →J：Ifend：I◢J ►DMS◢
204.408414 1.42360245 204.413372 0.02089324
164.414334 0.74077489 164.416002 0.013516541

Excel进行测量计算的一点技巧

Excel进行测量计算的一点技巧时间:2009-12-28 21:12:53 来源:本站作者:覃东我要投稿我要收藏投稿指南利用Excel的强大计算功能，我们就可以解决许多测量内业计算工作，如果会用VB编程则还可以为Excel添加自定义函数，把一些测量计算的许多过程都可以扩展成Excel的函数，在使用上与Excel自带的函数方法一样。

下面就简单介绍一下本人在测量内业计算过程中使用Excel的点技巧，本文由测量员网站站长覃东所写，转载请注明出自“测量员()”。

在一个工程和项目中，有一批控制点会经常在测量工作和计算过程中用到，如果在计算过程中反复输入会不方便，而且增大了出错的概率。

我的做法是在一个工作簿中用一个表（sheet）来存贮所有已知点坐标信息，如图：注意在输入的时候要反复进行核对，因以后所有的测量计算都要在这个工作簿中进行，要用到某一个点的坐标时是通过其对应的名字进行引用的，如果在已知点坐标表中的数据出错将导致以后所有的计算结果都是错误的，因此要小心谨慎。

Excel可以给每一个单元格命一个名字，命名的方法很简单，在选中一个单元格后，在输入公式的文本框左边的框直接输入就可以了，也可能通过菜单“插入”、“名称”、“定义”来完成：在为单元格命名时要遵循一定的规则，比如控制点“BS01”的坐标X所在的单元格，我在命名时就命名为“Xbs01”，同样BS01的Y坐标所对应的单元格就命名为“Ybs01”，高程命名为“Hbs01”，只要遵循一定规则，则在以后的计算过程中在用到这个点的坐标时就可以不假思索地引用就可以了。

涉及到的其它命名规则，如点BS01至BS02间的方位角值单元格命名为“Abs01bs02”，距离则用“Dbs01bs02”。

把所有已知的测量控制点的图纸上提供的关键控制点的坐标一并输入到一个表中，同时再建一个表，存贮方位角值，并把需要用到的方位角计算出来，并一一命名：计算方位角的函数：azimuth()是通过VBA添加的，代码如下：’方位角计算函数Azimuth()’Sx为起点X，Sy为起点Y’Ex为终点X，Ey为终点Y’Style指明返回值格式’Style=-1为弧度格式’Style=0为“DD MM SS”格式’Style=1为“DD-MM-SS”格式’Style=2为“DD°MMˊSS""”格式’Style=其它值时返回十进制度值Function Azimuth(Sx As Double, Sy As Double, Ex As Double, Ey As Double, Style As Integer) Dim DltX As Double, DltY As Double, A_tmp As Double, Pi As DoublePi = Atn(1) * 4 ’定义PI值DltX = Ex - SxDltY = Ey - Sy + 1E-20A_tmp = Pi * (1 - Sgn(DltY) / 2) - A tn(DltX / DltY) ’计算方位角A_tmp = A_tmp * 180 / Pi ’转换为360进制角度Azimuth = Deg2DMS(A_tmp, Style)End Function使用方法：方位角计算函数中使用到的一个中间格式转换函数代码如下：’转换角度为度分秒’Style=-1为弧度格式’Style=0为“DD MM SS”格式’Style=1为“DD-MM-SS”格式’Style=2为“DD°MMˊSS""”格式’Style=其它值时返回十进制度值Function Deg2DMS(DegV alue As Double, Style As Integer)Dim tD As Integer, tM As Integer, tS As Double, tmp As DoubletD = Int(DegV alue)tmp = (DegV alue - tD) * 60tM = Int(tmp)tmp = (tmp - tM) * 60tS = Round(tmp, 1)Select Case StyleCase -1 ’返回弧度Deg2DMS = DegV alue * Atn(1) * 4 / 180Case 0Deg2DMS = tD & " " & Format(tM, "00") & " " & Format(tS, "00.0")Case 1Deg2DMS = tD & "-" & Format(tM, "00") & "-" & Format(tS, "00.0")Case 2Deg2DMS = tD & "°" & Format(tM, "00") & "ˊ" & Format(tS, "00.0") & """"Case ElseDeg2DMS = DegV alueEnd SelectEnd FunctionFunction Distance(Sx As Double, Sy As Double, Ex As Double, Ey As Double, Precision As Integer) As DoubleDim DltX As Double, DltY As DoubleDltX = Ex - SxDltY = Ey - SyDistance = Round(Sqr(DltX * DltX + DltY * DltY), Precision)End Function在所有的控制点及已知点坐标都输入完毕并命名后，就可以在工作簿中任意一个表中使用共命字进行引用计算：坐标系转换的计算如下：上图中的COS(ABC)与Sin(ABC)中的“ABC”表示点B至C的方位角。

教你如何通过Excel VBA编写测量坐标计算程序

教你如何通过Excel VBA编写测量坐标计算程序发布日期：2013-01-11 来源：网络作者：未知浏览次数：1704摘要：认识VBA、理解VBA，并利用Office Excel VBA编写测量坐标计算程序。

关键词：Excel VBA 程序坐标编写了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。

可以用Excel的宏语言来使Excel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application(V BA)，可以认为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需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。