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

《如何通过Excel VBA编写测量坐标计算程序》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、教你如何通过ExcelVBA编写测量坐标计算程序（入门篇）摘要：认识VBA、理解VBA，并利用OfficeExcelVBA编写测量坐标计算程序。关键词：ExcelVBA程序坐标编写了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。可以用Excel的宏语言来使Excel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——VisualBasicForApplication(VBA)，可以认为VBA是非常流行的应用程序开发语言VisualBasic的子集，事实上VB

2、A是VB应用程序的版本，尽管存在有些不同VBA和VB在结构上仍然十分相似。如果你已经了解VB会发现学习VBA非常快。相应的学完VBA会给学习VB打下坚实的基础。理由：选择ExcelVBA编程的理由是因为它的计算功能非常强大，是现今任何编程计算器无法逾越的。它运用范围广，计算速度快，计算精度高，合理化显示等。或许很多测量人员对ExcelVBA还有些陌生，主要是大家寄托于计算器、电脑、手机PDA等系列软件使用。ExcelVBA对于大多数测量人员而没有系统学过计算机语言程序设计的人群来讲有一定含糊，不过只要有基本数学知识、测量常识和逻辑理解的人，

3、都能通过ExcelVBA编写设计出称心如意的测量程序。目标：基于ExcelVBA的测量坐标计算程序的设计目标是将繁琐计算过程转入到计算机中，利用程序语言的重复性原理，在计算机中可将坐标计算得出更精确的结果，使坐标计算更加可靠。最终目标是让用户可以通过ExcelVBA自行完成坐标计算程序设计。认识：学习VBA到底需要什么基础和了解些什么？学习VBA需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。在VBA中需要了解VBA的过程、变量、属性、方法、事件、语句等。ExcelVBA程序可以分为“录制宏、自定

4、义函数”，由于录制宏编写计算类程序它限制了计算涵式过程，而无法达到自定义数据直接运算的目的，所以大家可以通过按钮式点击进行自定义函数过程（还可以通过窗体定义过程）。基本常识：1、类型：常用类型分为Integer（整型）、Single(单精度型)、Double(双精度型)、String（字符串型）、Variant(数字)、Variant(字符)。2、变量：Dim变量名As数据类型。例：DimAAsDouble定义变量除了可以使用Dim语句外，比较常的还有：static语句，Private语句，Public语句。3、常量：Const常量名As数

5、据类型＝常量的值。例：ConstPI=3.1415926535898常量声明后不可对它再进行赋值。4、If语句：If逻辑表达式Then┆IfQ<0Then语句块1┆Q=-1　　　　Else┆Else语句块2┆Q=1EndIf┆EndIf5、Do循环语句：DoWihle循环条件┆DoWhileCells(j,1)<>Empty语句块1┆X=N+(Cells(j,1)-D)*Cos(F)[ExitDo]┆Y=E+(Cells(j,1)-D)*Sin(F)语句块2┆j=j+1Loop┆Loop6、调用单元格数值：WithSheets("单元格名称

6、")┆WithSheets("坐标计算")N=.Cells(行,列)┆N=.Cells(3,2)E=.Cells(行,列)┆E=.Cells(4,2)D=.Cells(行,列)┆D=.Cells(5,2)F=.Cells(行,列)┆F=.Cells(6,2)EndWith┆EndWith说明：这里的.Cells(行,列)表示调用Sheets("坐标计算")单元格中指定数值。7、MsgBox事件语句：PrivateSubWorkbook_Open()┆PrivateSubWorkbook_Open()MsgBox"提示语句"┆MsgBox"欢

7、迎使用直线坐标计算程序！"EndSub┆EndSub主题：通过以上认识相信大家对VBA编程稍有认识与了解，现在将进行测量坐标计算程序设计。给大家讲解的是“直线坐标中桩计算”的程序如何编写与运算。思路：根据单元格输入的已知数据并由With过程调用，建立Do循环计算模式自动填充待求点单元格坐标。直线坐标计算原理：如下图所示，已知直线的起点坐标O（xo，yo）、起点切线方位角ao、直线长度L。直线的止点坐标Z（xz，yz）、止点方位角az计算如下：已知计算数据：输入直线要素起点坐标xo3378605.445起点坐标yo453648.704起点桩号

8、O7586.707计算方位角ao98.565562程序操作步骤：1、设置表格框架（可以根据自己的要求设计），图示如下：2、在菜单栏上面点击右键弹出下拉式对话框选中“VisualB