小白自学ExcelVBA道路坐标高程计算程序流程
道路坐标计算excel公式
在Excel中，可以使用以下公式来计算道路坐标：
计算两点间的距离：
使用距离公式：D = sqrt((x2-x1)^2 + (y2-y1)^2)。
其中，x1、y1是第一个点的坐标，x2、y2是第二个点的坐标。
计算直线距离（两点间的最短距离）：
使用直线距离公式：D = abs(y2-y1) + abs(x2-x1)。
计算斜率：
使用斜率公式：m = (y2-y1) / (x2-x1)。
计算角度：
使用角度公式：θ = arctan(m)。
其中，arctan是反正切函数，m是斜率。
计算坐标变换（平移和旋转）：
使用平移公式：x' = x + tx，y' = y + ty。
其中，tx和ty是平移量。
使用旋转公式：x' = x * cos(θ) - y * sin(θ)，y' = x * sin(θ) + y * cos(θ)。
其中，cos和sin是余弦和正弦函数，θ是旋转角度。
这些公式可以根据具体需求进行组合和调整，以计算道路坐标和其他相关参数。
请注意，这些公式假设坐标系为笛卡尔坐标系，并且输入的坐标值是实数。
如果使用其他坐标系或涉及复数计算，可能需要使用不同的公式或函数。
道路中边桩坐标计算EXCEL程
道路中边桩坐标计算EXCEL程
道路中边桩坐标计算EXCEL程是一种用于快速计算道路中边桩的相对位置及其坐标的Excel程序。
它使用一个小工具来帮助用户将边桩定义在数学坐标系（X-Y坐标系）中。
EXCEL程是一个Excel表格，用户可以在表格中输入边桩数据，并根据输入的边桩数据计算出边桩的位置和坐标。
具体而言，用户需要首先输入各个边桩的起始位置（X0, Y0）、方向（角度）和距离（L），然后点击Excel 程中的计算按钮，Excel程就会按照输入的数据计算出边桩的位置和坐标，并显示在Excel表格中。
用户可以通过Excel程来计算出边桩的位置和坐标，这有助于道路工程的施工计划等的制定。
此外，用户可以根据施工计划进行边桩安装，确保道路的安全性和可靠性。
Excel程的使用非常简单，可以帮助用户更快更准确的计算出边桩的位置和坐标。
因此，Excel程可以大大提高道路施工的效率。
Excel程还提供了一些其他的功能，比如用户可以将边桩位置和坐标可视化，以便更好的理解边桩的位置。
此
外，用户还可以利用Excel程对边桩的位置和坐标进行校验，以确保边桩的准确性。
总之，道路中边桩坐标计算EXCEL程是一款十分有用的小工具，可以大大提高道路施工的效率，保证边桩的准确性，并且可视化边桩的位置和坐标，有助于更好的理解边桩的位置。
怎样计算高速公路路线坐标及高程
一个excle模板的制作在当今社会，eｘcle的使用已经是越来越来频繁了,几乎涉及所有的行业,路桥施工也不例外。
我在某路桥公司曾经负责过某项目部的测量工作。
大家都知道，测量最主要的就是计算了,如坐标、高程、横坡度等。
我现在给大家推荐一款我自己编制的关于测量计算的exｃel模板.首先我会跟大家介绍一下模板的作用,然后再一一讲解此模板的制作过程.首先给大家看一下此模板的界面如下：也许大家咋一看，切~ 这算啥，我也会做这张表格，实在是太简单了．不错,如果仅仅是靠手动输入这样子的数字,也许只要懂一点点eｘcｌｅ的人都会制作出这张表格吧。
不过,这张表格并不是你表面所看到的仅仅是几个数字而已，其内在的公式才是它的亮点。
也许这样讲大家还不是很清楚,我继续给大家截个图,看看它里面的公式是什么。
大家注意到上面的公式了吗,并不是仅仅是输入数字就完事的，它是一个自定义函数zb ｘ(）,那么后面的都是一样吗？完全正确,后面的都是自定义函数,它们分别是zby（）、sqx(）、hpｚ()、hpｙ（)。
也许大家会问,恩，是不错,但是有什么用呢？那让我先给大家简述一下这个自定义函数的用法。
竟然是一个函数,那么它就必须要有一个自变量，这几个函数的自变量又是什么呢?其实这个模板里面所有函数的自变量只有一个，就是桩号。
什么意思?就是只要你给出任意一个桩号，都能得到其对应的坐标、中桩高程和横坡度.假设我们要K３8+０00～K38+200段落内每隔2０M一个断面所有点的坐标、中桩高程、以及左右横坡。
我就用这个模板给大家演示一下（此模板暂时数据只针对黄祁高速公路六标项目部）。
先在桩号那一列把K3８+000～K38+200输入进去,可不要真的把字母“K”和加号“+”给输进去,只用输入纯数字就行了，否则计算会出错,之所以在模板里显示的是那样子,只不过是自定义的单元格式而已。
第二步剩下的仅仅就是拖动公式了，后面的都是公式,所以可以一起拖下来，先选定后面的所有单元格,然后向下直接拖动至最后,那么你需要的数据就全部出来了。
利用VB编程控制Excel处理测量数据
文章编号:1672-8262(2007)04-96-04 中图分类号:P209 文献标识码:B 利用VB 编程控制Excel 处理测量数据阳德胜33 收稿日期:2006—10—08作者简介:阳德胜(1971—),男,测绘工程师,从事道路勘测工作。
(广东省公路勘察规划设计院,广东广州 510507)摘 要:介绍了利用VB 610编程控制电子表格Excel 处理测量数据的编程方法与技巧,从而实现测量数据处理可视化和制表自动化,提高了测量数据处理的效率和准确性。
关键词:VB;Excel;编程;测量数据1 引 言VB 是人们常用的一种高级程序设计语言,利用VB 开发的程序可作为OLE (Object linking and e mbed 2ding )容器。
Excel 作为一种非常普及的办公自动化软件,可以用作OLE 服务器,向外部输出某些属性、方法和事件。
通过OLE 自动化,VB 程序可以调用Excel 的功能,因此,可以利用VB 编程控制Excel 处理测量数据。
本文以公路测量数据处理为例介绍这方面的一些编程方法和技巧。
2 VB 与Excel 链接VB 与Excel 的链接步骤和常用命令如下:(1)打开VB6.0,进入VB 程序设计界面,从下拉菜单“工程”中选择“引用”,进一步选择“M icr os oft Ex 2cel 910Object L ibrary ”,再选择“确定”,表示在工程中要引用Excel 类型库。
(2)在通用对象的声明过程中定义Excel 对象:D i m excel1A s Excel .App licati on D i m excel1Book A s Excel .Work Book D i m excel1Sheet A s Excel .Worksheet(3)创建Excel 对象SET excel1=Create Object (“Excel .App licati on ”)(4)建立一个新Excel 工作簿文件Set excel1Book =excel1.Workbooks ().Add……excel1Book .SaveA s [路径]\“文件名”(5)打开一个旧Excel 工作簿文件Set excel1Book =excel1.Workbooks .Open ([路径]\“文件名”)(6)设置Excel 对象可见(或不可见)excel1.V isible =True (False )(7)增加Excel 工作表,并命名Sheets .AddSet excel1Sheet =excel1Book .Worksheets ("sheet n")Sheets ("Sheet n").SelectSheets ("Sheet n").Na me ="工作表名"(n 表示第n 个工作表)(8)设置Excel 工作表Set excel1Sheet =excel1Book .Worksheets ("工作表名")(9)给工作表单元格(r ow,col )赋值excel1Sheet .Cells (r ow,col )=值或算式(10)读工作表单元格(r ow,col )的值Sheets ("工作表名").Select X =excel1Sheet .Cells (r ow,col )(11)保存Excel 工作簿Active Workbook .Save(12)退出Excelexcel1.Quit(13)交还控制权给Excelset excel1=nothing3 利用VB 程序控制Excel 制表打开Excel,选择“工具\宏(M )\录制新宏(R )”,按常规方法制表,再选择“停止录制”,然后对所录制的内容进行分析,就可以获得绘制各种Excel 表格的方法和命令,将录制的内容复制插入VB 程序中,在执行程序的过程中,将自动生成所设计的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本程序只计算单一线路的中桩标高，若想把多个线路的参数放在同一个表中时，只需对以上程序稍加改动即可。
Excel VBA在公路路线坐标计算中的应用
Excel VBA在公路路线坐标计算中的应用摘要：通过分析公路路线坐标计算原理，创建Excel VBA的对象模型，可通俗易懂，方便准确地完成公路路线坐标计算，值得推广应用，文中以作者编写的“Excel公路坐标计算程序”为算例，说明介绍。
关键词：坐标计算，Excel VBA，坐标转换，数据读取传输引言作为公路测量工作者，公路路线坐标计算是一件最基础和最重要的工作之一。
虽然目前有部分公路坐标计算软件，但往往价格不低，而且通常操作复杂。
Microsoft 的常用办公软件Excel提供的VBA程序，功能强大，且与Excel工作表实现无缝接合，只要灵活应用，即可方便、快捷地解决测量中大量的、机械的数据处理过程。
文中介绍道路曲线坐标计算三种基本形式—直线、圆曲线、缓和曲线的中边桩计算公式，分析利用Excel表格及其VBA程序计算公路坐标的一般方法和关键节点，同时以两个不同类型的路线为实例具体说明计算过程和精度分析。
1 公路路线坐标计算基本原理1.1 中线坐标计算一般公路的路线坐标计算普遍采用三种线型：直线、圆曲线和缓和曲线。
其相应的中线坐标计算公式如下：1）直线（见图1）x=x0+S0×cos(a0)y=y0+S0×sin(a0)2)圆曲线（见图2）x=x0+S0×cos(a0+β)y=y0+S0×sin(a0+β)其中β为偏角，S0为弦长，其值为：β=90×L0/（R×π）S0=2×R×sin(β)切线方位角：a= a0+2×β3) 缓和曲线（见图3）Xi’=L－L5/(40A2)＋L9/(3456A8)－L13/(599040A12)＋……Yi’=L3/(6A2)－L7/(336A6)＋L11/(42240A10)－……L=|Li-L0| A=上述直线段和圆曲线段可直接计算出中桩坐标，但缓和曲线由于采用切线正支距法，是以直缓或缓直为原点的直角坐标系，还必须用坐标平移和旋转计算出该点在大地平面直角坐标系XOY中的坐标（x,y），公式为：x= x0+ Xi’cos(a0)- Yi’sin(a0)y= y0+ Yi’sin(a0)+ Yi’cos(a0)其转换后的切线方位角为：a=a0+180±L2/(3A2)1.2边桩坐标计算边桩坐标计算利用计算出来的中线坐标及其切线方位角，按az=a-90……左边桩方位角ay=a+90……左边桩方位角以及边桩至中桩距离Sb，推算边桩坐标：Xz(y)=x中+Sb×cos(az(y))Yz(y)=y中+Sb×sin(a z(y))2Excel VBA与Excel工作表的关联Office Excel工作簿中包含若干工作表，各工作表之间既相互独立，又相互关联，同时各工作表与Excel VBA又相互关联，因此只要在工作表上输入路线要素及计算桩号，通过VBA编程，就可通过VBA宏坐标计算将计算结果导入工作表。
教你如何通过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 VBA的道路测设计算程序设计
基于Excel VBA的道路测设计算程序设计曾剑生;王汉雄【摘要】Excel是office办公软件中的一个组件,而VBA是office应用程序共享的一种通用自动化语言,可以使常用的程序自动化,并可以创建自定义的解决方案.分析了利用Excel VBA处理数据的特点和优点,并结合道路工程测设工作实际,运用Excel VBA编程实现道路测设计算程序设计,给出了一种进行道路测设数据处理的便捷和直观方法.【期刊名称】《铁道勘察》【年(卷),期】2010(036)005【总页数】3页(P14-16)【关键词】Excel VBA;道路测设;程序设计【作者】曾剑生;王汉雄【作者单位】南宁东测科技有限公司,广西南宁,530023;黄淮学院建筑工程系,河南驻马店,463000【正文语种】中文【中图分类】P208在道路工程勘测和施工阶段,需要进行大量的数值计算。
对于专业技术人员来说,需要一种使用上方便灵活,并且易学易懂便于操作的数据处理平台。
Microsoft Office Excel 2003是Microsoft Office 2003办公套装软件的一个重要组成部分,用来帮助用户完成信息保存、数据计算处理、数据分析决策、信息动态发布等工作。
同时Excel又是一个开放的平台,允许用户使用编程语言开发出符合特定工作需要的应用程序,而VBA(Visual Basic For Application)语言就是一种非常流行、也非常成熟的开发工具。
1 Excel VBA编程进行数据处理的特点和优点利用Excel 2003的“宏”功能可以很好地进行数据处理。
“宏”是指一系列Excel能够执行的VBA语句,存储于Visual Basic模块中,这些语句和函数组合在一起,形成了一个单独的命令,以实现任务执行的自动化。
可以通过VB编辑器创建宏。
用VBA编程比用函数功能更便捷,其特点和优点如下:(1)Excel是office办公软件中的一个组件,适应范围广,有良好的群众应用基础,工程技术人员一般都熟悉其使用方法和规则。
坐标正算、反算计算方法及在Excel中的VBA编程
坐标正算、反算计算方法及在Excel 中的VBA 编程测量中经常需要将某点相对坐标系坐标转换成线路的里程、偏距，或根据线路某一里程偏距计算出对应的相对坐标系坐标，为寻求一种快速简单高效的计算方法，本文对线路正算反算的原理进行了阐述，并结合Excel VBA 编程，将编程和Excel 的拖拽的功能相结合，编制出实用计算表，特别适用于需要大量计算边桩、围护桩的情况。
关键词：坐标方位角坐标正算坐标反算 V AB 编程循环迭代直接算法一、坐标方位角的反算1.坐标方位角反算如图1所示，已知点A 、B 的坐标，求直线AB坐标方位角α。
图1坐标方位角反算直线AB 之间的坐标增量：AB B AAB B Ax x x y y y ∆=−∆=−当0,0AB AB x y ∆>∆>时，角α位于第一象限角：arctan ABABy x α∆=∆当0,0AB AB x y ∆<∆>时，角α位于第二象限角：arctan 180AB ABy x α∆=+°∆当0,0AB AB x y ∆<∆<时，角α位于第三象限角：arctan 180AB ABy x α∆=+°∆当0,0AB AB x y ∆>∆<时，角α位于第二象限角：arctan360AB AB y x α∆=+°∆2.坐标方位角反算的VBA 编程可用VBA 将上述过程定义为一个名为angel()的函数，代码如下：Function angel(x0As Double, y0 As Double, x1 As Double, y1 As Double) As Double dx = x1- x0dy = y1- y0If dx > 0 And dy > 0 Thenangel = Atn(dy / dx)End IfIf dx < 0 And dy > 0 Thenangel = Atn(dy / dx) + 3.14159265358979End IfIf dx < 0 And dy < 0 Thenangel = Atn(dy / dx) + 3.14159265358979End IfIf dx > 0 And dy < 0 Thenangel = Atn(dy / dx) + 3.14159265358979 * 2End IfEnd Function二、直线段坐标正算与反算1.直线段正算图2直线段计算已知HZ 点坐标（x1,y1）、里程N HZ ，ZH 点坐标（x2,y2），正算时已知P 点对应的中桩里程Np 和偏距e （规定沿着线路前进方向，左边偏距为负，右边偏距为正），Np>N HZ ，求P 点对应的坐标。
小白自学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电子表格在公路-铁路工程缓和曲线坐标计算中的应用
3、鼠标选中表格的第二栏(B列)中39820一行，在表头上方的编辑栏内先输入“=”号，
然后输入X坐标的计算公式（公式1、公式2），该公式显示在表头的计算栏内，按回车键，电脑将进行自动计算，坐标计算结果显示在对应的表格里；同理在对应的第三栏（C列）输入Y坐标的计算公式，按回车键，坐标计算结果会自动显示在Y栏对应的表格里，求得的X值和Y值即为K39+820X坐标计算公式在Excel表格编辑栏显示格式如下：
=3770069.532+SQRT(((A6-39815.899)-(A6-39815.899)_/(40*615_*174.293_)+(A6-39815.899)/(3456*615_*174.293_)-(A6-39815.899)
4、将鼠标分别放在k39+820所在行对应的X、Y坐标栏的右下角，当出现“+”号时，按住鼠标左键往下拖，各桩号的坐标成果就会自动显示在对应的X、Y栏内。
输入公式时一定要注意，角度要换算成弧度,计算成果要和图纸上给出的已知点坐标进行比较，看看是否和图纸成果一致，确保正确无误后，可以根据自己的需要设计出不同形式的输出表格，打印或者传输到全站仪内存中，作为施工放样资料进行工程定位和施工过程控制。
计算高程及横坡的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
Excel 公路中线 坐标计算
：Excel 公路中线坐标计算现阶段我国公路工程中已普遍使用大地坐标进行线型的控制及测设，在施工中经常要对中线坐标进行复核、加密，才能满足公路工程施工的需要。
本文是结合公路工程的实际需要，利用Exce电子表格制作的用于由直线、圆曲线、缓和曲线组成的一般公路线型中桩、边桩等计算的通用模版，用于减轻计算工作的劳动强度和提高计算结果的准确度。
一、采用公式1 直线段1.1 中桩坐标计算公式1.2 边桩坐标计算公式2 缓和曲线段2.1 中桩坐标计算公式当P点位于顺时针方向时,其方位角为αE→p=αA→B+90°；当P点位于逆时针方向时,其方位角为αE→p=αA→B-90°。
2.2 边桩坐标计算公式3 圆曲线段3.1 中桩坐标计算公式当E点位于顺时针方向时取“+”,当E点位于逆时针方向时取“-”。
3.2 边桩坐标计算公式XP、YP——未知点P的坐标X1、Y1——各线型起点的坐标（第二曲线段为终点）XA、YA、XB、YB——P点边桩A点、B点的坐标（A为左侧、B为右侧）α1→2——直线段起点的方位角αA→B——各线形起点的切线方位角（第二曲线段为终点）L——P点距各线形起点的长度LS——缓和曲线段缓和曲线长R——各曲线段的半径β——P点的切线角（曲线左转时取“-”、曲线右转时取“+”）T1、T2——P点至边桩A、B的距离（A为T1、B为T2）二、计算模板的建立步骤表1－1表1－21．新建一个工作薄，在其中输入如表1所示的内容；2. 选中工作表A列，打开格式菜单，选中“单元格”，在单元格菜单中选中“数字”栏，自定义单元格格式为“K000＋000.000”。
按此方法分别将其他列设置为如表1所示单元格格式；3. 将“4”行做为路线起点数据行，在“5”行中进行公式编辑；4．在“J5”单元格中输入“=IF(C5=4,RADIANS(IF((G5+H5/60+I5/60/60)<180,(G5+H5/60+I5/60/60)+180,(G5+H5/60+I5/60/60)-18 0)),IF(C5=5,RADIANS(IF(B5=0,G5+H5/60+I5/60/60-E5/2/D5*180/PI(),G5+H5/60+I5/60/60+E5/2/D5*180 /PI())),RADIANS(G5+H5/60+I5/60/60)))”；5．在“K5”单元格中输入“＝A5－$A$4”；6．在“L5”单元格中输入“=$L$4+IF(C5=1,K5*COS(J5),IF(C5=2,2*D5*SIN(K5/2/D5)*IF(B5=0,COS(J5-K5/2/D5),COS(J5+K5/2/D5) ),IF(C5=3,(K5-K5^5/40/D5^2/E5^2)*COS(J5)+(K5^3/6/D5/E5-K5^7/336/D5^3/E5^3)*IF(B5=0,COS(J5-90 *PI()/180),COS(J5+90*PI()/180)),IF(C5=4,(K5-K5^5/40/D5^2/E5^2)*COS(J5)+(K5^3/6/D5/E5-K5^7/33 6/D5^3/E5^3)*IF(B5=0,COS(J5-90*PI()/180),COS(J5+90*PI()/180)),2*D5*SIN(K5/2/D5)*IF(B5=0,COS( J5-K5/2/D5),COS(J5+K5/2/D5))))))”；7．在“M5”单元格中输入“=$M$4+IF(C5=1,K5*SIN(J5),IF(C5=2,2*D5*SIN(K5/2/D5)*IF(B5=0,SIN(J5-K5/2/D5),SIN(J5+K5/2/D5) ),IF(C5=3,(K5-K5^5/40/D5^2/E5^2)*SIN(J5)+(K5^3/6/D5/E5-K5^7/336/D5^3/E5^3)*IF(B5=0,SIN(J5-90 *PI()/180),SIN(J5+90*PI()/180)),IF(C5=4,(K5-K5^5/40/D5^2/E5^2)*SIN(J5)+(K5^3/6/D5/E5-K5^7/33 6/D5^3/E5^3)*IF(B5=0,SIN(J5-90*PI()/180),SIN(J5+90*PI()/180)),2*D5*SIN(K5/2/D5)*IF(B5=0,SIN( J5-K5/2/D5),SIN(J5+K5/2/D5))))))”；8．在“N5”单元格中输入“=IF(B5=0,J5-RADIANS(IF(C5=2,K5/D5*180/PI(),IF(C5=3,K5^2/2/D5/E5*180/PI(),IF(C5=4,K5^2/2/D5 /E5*180/PI(),IF(C5=5,K5/D5*180/PI()))))),J5+RADIANS(IF(C5=2,K5/D5*180/PI(),IF(C5=3,K5^2/2/D5 /E5*180/PI(),IF(C5=4,K5^2/2/D5/E5*180/PI(),IF(C5=5,K5/D5*180/PI()))))))”；9．在“P5”单元格中输入“=IF(C5=4,L5+O5*COS(N5+90*PI()/180),L5+O5*COS(N5-90*PI()/180))”；10．在“Q5”单元格中输入“=IF(C5=4,M5+O5*SIN(N5+90*PI()/180),M5+O5*SIN(N5-90*PI()/180))”；11．在“S5”单元格中输入“=IF(C5=4,L5+O5*COS(N5-90*PI()/180),L5+O5*COS(N5+90*PI()/180))”；12．在“T5”单元格中输入“=IF(C5=4,M5+O5*SIN(N5-90*PI()/180),M5+O5*SIN(N5+90*PI()/180))”；13．选定“5行”向下复制到表格最后一行；14．点击“文件”菜单中的“另存为”选项，输入文件名为“坐标计算”在文件类型中选择为“模版”并点击“保存”。
EXCEL进行中桩坐标、高程计算
用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。
教你如何通过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 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需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。
EXCEL计算坐标程序
EXCEL计算坐标程序Excel是一款强大的电子表格软件，可以进行各种数据计算和处理。
在Excel中，可以使用函数来计算坐标。
下面是一个示例程序，用于计算坐标的相关操作。
首先，在Excel中创建一个新的工作表。
在A列中输入横坐标的值，在B列中输入纵坐标的值。
例如，将横坐标的值依次输入到A1、A2、A3...单元格中，将纵坐标的值依次输入到B1、B2、B3...单元格中。
接下来，我们可以使用Excel中的函数来计算坐标的相关信息。
下面是一些常用的函数：1.求和函数在C列中输入`=SUM(A1:A10)`，即可求出A1到A10单元格的和，也就是横坐标的总和。
类似地，可以在D列中输入`=SUM(B1:B10)`，求出纵坐标的总和。
2.平均函数在E列中输入`=AVERAGE(A1:A10)`，即可求出A1到A10单元格的平均值，也就是横坐标的平均值。
类似地，可以在F列中输入`=AVERAGE(B1:B10)`，求出纵坐标的平均值。
3.极值函数在G列中输入`=MIN(A1:A10)`，即可求出A1到A10单元格中的最小值，也就是横坐标的最小值。
类似地，可以在H列中输入`=MIN(B1:B10)`，求出纵坐标的最小值。
同理，在I列中输入`=MAX(A1:A10)`，求出横坐标的最大值，在J列中输入`=MAX(B1:B10)`，求出纵坐标的最大值。
4.统计函数在K列中输入`=COUNT(A1:A10)`，即可统计A1到A10单元格中的数值个数，也就是横坐标的个数。
类似地，可以在L列中输入`=COUNT(B1:B10)`，统计纵坐标的个数。
5.方差函数在M列中输入`=VAR(A1:A10)`，即可求出A1到A10单元格中的方差，也就是横坐标的方差。
类似地，可以在N列中输入`=VAR(B1:B10)`，求出纵坐标的方差。
6.标准差函数在O列中输入`=STDEV(A1:A10)`，即可求出A1到A10单元格中的标准差，也就是横坐标的标准差。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
小白自学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”表示。
双精度浮点数科学记数法格式：±aD±c或±ad±c在一些现代的被优化用来进行高速数学计算的处理器上双精度型实际上比单精度的快。
所有超出人类经验的数学函数，如sin( )，cos( ) ，和sqrt( )均返回双精度的值。
当你需要保持多次反复迭代的计算的精确性时，或在操作值很大的数字时，双精度型是最好的选择。
个人理解：PI是储存数据的符号，把3.14159265358979赋值储存进去，公共常量，意思是大家都可以调用的固定值，双精度浮点型应该是规定PI能储存的数据类型（什么整数啦、日期啦、小数啦、文字啦之类的），还有储存量（估计双精度比单精度储存的多）之类的规定。
②Public Type StaPoint……End Type谷歌翻译：Public Type StaPoint（联系上下文“定义桩号点”应该是Stake Point）公共类型桩号点百度文库：VB中Type语句的功能及用法Type 语句只能在模块级使用。
使用Type 语句声明了一个用户自定义类型后，就可以在该声明范围内的任何位置声明该类型的变量。
可以使用Dim、Private、Public、ReDim 或Static 来声明用户自定义类型的变量。
在标准模块中，用户自定义类型按缺省设置是公用的。
可以使用Private 关键字来改变其可见性。
而在类模块中，用户自定义类型只能是私有的，且使用Public 关键字也不能改变其可见性。
在Type...End Type 块中不允许使用行号和行标签。
用户自定义类型经常用来表示数据记录，记录一般由多个不同数据类型的元素组成。
个人理解：①号句定义了常量的代码（经常用π值，就把3.1415固定到PI里，方便调用）。
②使用Type语句分段（StaPoint/桩号点、Slope/坡段、CurveSec/基本曲线）、批量自定义变量的代码，这几段都是定义的双精度，之所以分段，联系下文，估计是方便经常调用。
值得注意的是CurveSec/基本曲线定义这一段，对于ST_Sta/起点、EN_Sta、/终点的定义，调用了前面StaPoint/桩号点的定义，两句话，直接把基本曲线所需要使用参数代号都定义了，呵呵，这就是Type语句吧，可以相互调用，方便定义！2.2 咦？？？？？？这个分割线是怎么回事？为什么会跟下一段的Sub Auto_Open().....End Sub分开呢？点一下Sub Auto_Open().....End Sub右上角的“声明”就变成“Auto_Open”，声明什么意思？Auto_Open又是什么意思？点击声明的下拉列表，好家伙，全是程序（sub）代号，应该是起到一个引所目录的作用吧！触发某段代码运行.....对于上面的Sub Auto_Open()......End Sub代码的功能的功能聪明的我已经猜到，是打开Excel表格，就会跳到标签为“欢迎”的页面。
③Sub……. End Sub谷歌翻译：Sub……. End Sub（联系上下文“定义桩号点”应该是Stake Point）程序结束程序百度搜索：Sub……. End Sub语句的功能及用法语法[Public | Private] Sub name [(arglist)][statements][Exit Sub][statements]End SubSub 语句的语法包含以下部分Public 表示Sub 过程可被所有Script 中的所有其他过程访问。
Private 表示Sub 过程只可被声明该过程的Script 中的其他过程访问。
Name Sub 的名称，遵循标准变量命名约定。
Arglist 代表在调用时要传递给Sub 过程的参数的变量列表。
用逗号隔开多个变量。
Statements 在Sub 过程主体内所执行的任何语句组。
用户自定义类型经常用来表示数据记录，记录一般由多个不同数据类型的元素组成。
在Sub 过程中使用的变量分为两类：一类是在过程内显式声明的，另一类则不是。
在过程内显式声明的变量（使用Dim 或等效方法）总是局部变量。
对于那些没有在过程中显式声明的变量也是局部的，除非在该过程外更高级别的位置显式地声明它们。
Sub 过程是包含在Sub 语句和End Sub 语句中的一系列Visual Basic 语句。
每次调用过程时都执行过程中的语句，从Sub 语句后的第一个可执行语句开始，到遇到的第一个End Sub、Exit Sub 或Return 语句结束。
个人理解：Sub语句中sub作为开头，是让计算机一阅读代码就知道，你执行的是一个程序，而不是默认的定义一些数据，当然要先定义，才能执行，前面的①②代码都是公共定义，是计算机最先执行的，sub里有自己小范围的dim定义。
据观察给sub后加名字，名字最后必须是（），至于为什么要加（），别问我，我是小白，我不知道！！！但启动调用程序时，就直接用写名字就行了。
2.3 一切反动派都是纸老虎丫丫了个呸的！这一层一层的代码都是什么呀！太祖有云，一切反动派都是纸老虎！上去戳他去！行动听指挥，一步一步来！④Dim zy, i, j As Integer谷歌也没搜到Dim是个啥玩意，就当成定义的意思了，定义zy, i, j为整数类型（Integer），后面还有个定义成字符型（String）的，就是可以储存字母之类的。
⑤PM(3, 5)Dim PM(3, 5) As Double里出现了个PM(3,5)百度知道：excel vba 中PM(3,5)是什么意思?1、cells(行坐标，列坐标）表示一个单元格的位置，如：A1 :CELLS(1,1) B2:CELLS(2,2) C2: CELLS(2,3)2、VBA中没有PM() 属性，（1）可能是自定义的数组，如：dim PM(10,10)则PM(3,5)就是这个数组的一个元素（2）或是单元格区域，如：set PM=RANGE("B2")则 B2为 PM(1，1) ，PM(3,5)就是单元格 F4个人理解：Dim PM(3, 5) As Double是定义3×5=15个PM（？，？）数组元素，双精度的，可以使用这十五个PM（？，？）符号进行储存，注意第二个问号前有个空格。
⑥With Sheets("平面资料")……End With百度知道：VBA中的WITH 语句用法及含义通俗点讲with的作用就是简化代码，让代码简洁易懂让你不需要输入重复的内容例如：With [A1].RowHeight = 10.ColumnWidth = 15End With相当于[A1].RowHeight = 10[A1].ColumnWidth = 15省去了输入很多[A1]也就是说with中以. 开头的就相当于WITH后的对象.什么什么什么⑦Rows("6:500").ClearContents谷歌翻译：Rows("6:500").ClearContents行清除内容百度知道：excel的vb中Rows( 6:500 ).ClearContents是什么意思？将第6行到第500行的内容清除。
谷歌翻译：Worksheets("Sheet1").Range("A1:G37").ClearContents工作表范围清除内容2.4 探索与发现其实就单纯的表格数据计算，所使用的VBA编程知识，是非常非常少的，换个VB编程高手，来看咱们工程坐标计算所使用的代码规则，简直就是加减乘除而已。
事实上也是如此，你只要耐心的跟同样小白的我，一起花十几分钟看完这篇流程，你已经有能力看懂88%的代码，并且可以简单的修改应用。
传说ExcelVBA可以直接接入CAD….这就要等大家去探索发现了，嘿嘿！！废话少说，还有几段小代码规则，大家再来看看吧！⑧If .Cells(i + 2, 3) = "" Then…. End If如果你连if、while、for这些条件循环语句都不懂的话，那你真比我还小白了，哈哈！！！这段代码并不难，之所以拿出来研究，还是为了消除大家的畏惧心理，嘿嘿！！百度搜索：这个语句可判断If Cells(j, 2) ="" Then 这个单元格“Cells(j, 2)”是空白单元格吗？如果cells（j，2）为空的话，这时候下一步，这里的双引号是空的意思。