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

1、VBA简介
VBA的全称是VisualBasicforApplications的简称。其意思是开发环境被整合到了某个应用程序的VisualBasic语言。作为一种自动化语言工具，提供了计算人员充分的自由，做几乎任何其他编程语言或者环境能做的事情，避免重复的手工劳动。它可以使常用的程序自动化,可以创建自定义的解决方案。
“一段宏代码”和“一段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)打开VisualBasic编辑器，并对每个命令按钮编辑相应的VBA代码，不是每行代码都要自己一行行写，例如编写“清空数据”命令按钮所对应的代码时可以结合宏录制，将对界面中计算出来的数据清除的过程用宏录制出来，然后将录制出来的代码适当地加以修改复制到相应的“清空数据”命令按钮“单击”所要执行的过程当中去。如下段代码就是在录制宏代码的基础上修改出来的“清除数据”按钮单击的过程代码。
(4)点击完成综合曲线中桩计算后，锁定当前表中的单元格，避免数据被误改动，表格被误操作。计算成果如下图例所示。
4、结语
公路工程计算中，经常会有类似的许多类似的大量的、重复的、有逻辑性的计算工作，只要巧妙利用EXCEL表格，并结合VBA，就可以发挥其强大的功能，实现快速、准确地完成大量的计算数据，提高工作效率。同时，我们也需要非常谨慎、细致地编此类自动计算表格，并多方位、多数据大量重复检验，保证表格计算成果的正确性。