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

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

1、教你如何通过ExcelVBA编写测量坐标计算程序  发布日期：2013-01-11  来源：网络  作者：未知  浏览次数：1704摘  要：认识VBA、理解VBA，并利用Office Excel VBA编写测量坐标计算程序。关键词：Excel VBA 程序 坐标 编写了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。可以用Excel的宏语言来使Excel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application(VBA)，可以认为VB

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

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

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

5、  3、常量：Const 常量名 As 数据类型 ＝ 常量的值。例：Const PI =3.1415926535898常量声明后不可对它再进行赋值。  4、If语句：If  逻辑表达式 Then      ┆     If Q<0 Then              语句块1     ┆            Q=-1　　　　Else             ┆        Else             语句块2     ┆            Q=1        End If           ┆        End If  5、Do循环语句：Do 

6、Wihle 循环条件        ┆ Do While Cells(j, 1) <> Empty          语句块1        ┆    X = N + (Cells(j, 1) - D) * Cos(F)     [Exit Do]           ┆    Y = E + (Cells(j, 1) - D) * Sin(F)          语句块2        ┆        j = j + 1      Loop               ┆    Loop  6、调用单元格数值：With Sheets("单元格名称")┆  Wit

7、h Sheets("坐标计算")       N = .Cells(行, 列)┆         N = .Cells(3, 2)       E = .Cells(行, 列)┆         E = .Cells(4, 2)        D = .Cells(行, 列)┆         D = .Cells(5, 2)       F = .Cells(行, 列)┆         F = .Cells(6, 2)     End With             ┆      End With说明：这里的.Cells(行, 列)表示调用Sheets("