EXCEL结合VBA在道路综合曲线中桩坐标计算中的应用 道路圆曲线的坐标计算

　　摘要：在公路中桩线路放样工作中，在没有专业设计软件辅助计算情况下，道路中桩特别是带有缓和曲线的复合曲线上的中桩里程与坐标里程与坐标的计算是很繁琐的事，需要进行大量的、复杂的计算，费神费时间，且极易出错。如何快速而又精确地计算出公路复合曲线中桩里程与坐标？笔者利用寄生于Microsoft Excel的VBA，编制计算程序，对解决复杂的综合曲线中桩里程与坐标的计算进行了有益的尝试。
　　关键词：VBA 综合曲线 坐标计算
　　中图分类号：TP29 文献标识码：A 文章编号：1007-9416(2012)01-0043-02
　　
　　1、VBA简介
　　VBA的全称是Visual Basic for Applications的简称。其意思是开发环境被整合到了某个应用程序的Visual Basic语言。作为一种自动化语言工具，提供了计算人员充分的自由，做几乎任何其他编程语言或者环境能做的事情，避免重复的手工劳动。它可以使常用的程序自动化,可以创建自定义的解决方案。
　　“一段宏代码”和“一段VBA代码”是等价的。Office的自动录制功能可以帮你录制一个宏，实际上就是把对EXCEL表格的计算、格式操作等用VBA代码的形式记录下来。在录制宏的基础上编写VBA代码可以极大地节省编写代码的工作量，特别是在对计算表格的单元格格式操作时。
　　2、工作机理分析
　　通过在VBA模块表中编写(或宏录制)代码用VBA执行操作，然后以多种方法中的任意一种来执行宏。VBA模块保存在Excel工作簿中，一个工作簿可以存储任意数量的VBA模块。VBA模块由过程组成。一段过程是执行某些操作的程序代码。下面是一个计算“圆曲线坐标”的简单子过程的例子：
　　VBA模块还可以保存函数过程。函盘过程能执行计算并返回一个值。函数可以从另一个VBA过程中调用，甚至可以用于一个工作表公式。下面是一个名为fsbc(这是由二个已知点坐标反算边长，dx、dy这两个值作为参数提供)的函数的例子。
　　Excel提供100多类可供VBA操纵的对象，对象分层排列。在VBA代码中，通过指定对象在其对象层中的位置来引用这个对象，并使用句号作为分隔符。例如，引用特定的单元格，方法如下所示：
　　Application.Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1")
　　如果Sheet1是活动工作表，则可把引用简化为：Range("A1")。通过以句号作为分隔符结合对象和属性来引用属性。例如，引用当前活动工作表上单元格A1中的数值，如下所示：Range("A1").Value。可以给变量赋值。要把Sheet1上单元格A1中的数值赋给叫做fsbc的变量，使用以下VBA语句：fsbc= Range("A1").Value
　　对象还有方法。方法是对象所进行的操作。例如，Range对象的其中一个方法是ClearContents(清除内容)。该方法清除区域中的内容。通过利用句号结合方法和对象来指定方法。例如，要清除单元格A1的内容，使用下列语句：
　　Worksheets("Sheet1").Range("A1:C12").ClearContents
　　3、具体实现
　　(1)新建ECXEL表格，保存为公路综合曲线放样计算表格。制作计算数据表界面（如图所示），并锁定文字单元格，防止被改动。其中将已知数据、曲线元素、曲线主点里程坐标按类分别设定数据输入、输出区域。
　　(2)打开VBA工具条，点击控件工具箱，在界面如图所示位置分别添加“曲线计算”、“数据保存”、“加桩”、“清空数据”几个命令按钮。
　　(3)打开Visual Basic编辑器，并对每个命令按钮编辑相应的VBA代码，不是每行代码都要自己一行行写，例如编写“清空数据”命令按钮所对应的代码时可以结合宏录制，将对界面中计算出来的数据清除的过程用宏录制出来，然后将录制出来的代码适当地加以修改复制到相应的“清空数据”命令按钮“单击”所要执行的过程当中去。如下段代码就是在录制宏代码的基础上修改出来的“清除数据”按钮单击的过程代码。
　　(4)点击完成综合曲线中桩计算后，锁定当前表中的单元格，避免数据被误改动，表格被误操作。计算成果如下图例所示。
　　4、结语
　　公路工程计算中，经常会有类似的许多类似的大量的、重复的、有逻辑性的计算工作，只要巧妙利用EXCEL表格，并结合VBA，就可以发挥其强大的功能，实现快速、准确地完成大量的计算数据，提高工作效率。同时，我们也需要非常谨慎、细致地编此类自动计算表格，并多方位、多数据大量重复检验，保证表格计算成果的正确性。
本文为全文原貌 未安装PDF浏览器用户请先下载安装 原版全文