教你如何通过ExcelVBA编写测量坐标计算程序_图文

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

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

2、BA是非常流行的应用程序开发语言VisualBasic的子集，事实上VBA是VB应用程序的版木，尽管存在冇些不同VBA和VB在结构上仍然

3、•分相似。如果你已经了解VB会发现学习VBA非常快。相应的学完VBA会给学习VB打下坚实的基础。理由：选择ExcelVBA编程的理由是因为它的计算功能非常强大，是现今任何编程计算器无法逾越的。它运用范围广，计算速度快，计算楷度高，合理化显示等。或许很多测量人员对ExcelVBA还有些陌生，主要是人家寄托于计算器、电脑、手机PDA等系列软件使用。ExcelVBA于大多数测量人员而没有系统学过计

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

5、VBA屮需要了解VBA的过程、变量、属性、方法、事件、语句等。ExcelVBA程序可以分为“录制広、B定义函数”，由于录制広编写计算类程序它限制了计算涵式过程，而无法达到自定义数据肓接运算的目的，所以人家可以通过按钮式点击进行口定义函数过程（述可以通过窗体定义过程）。基本常识:1、类型：常用类型分为Integer（整型）、Single（单梢度型）、Double（双梢度型）、String（字符串型）、Variant（数字）、Variant（字符）。2、变量：Dim变量名As数据类型。例：DimAAsDouble定义变量除了可以使

6、用Dim语句外，比较常的还有：static语句，Private语句，Public语句。3、常量：Const常最名As数据类型=常量的值。例：ConstPI=3.1415926535898常虽声明后不可对它再进行赋值。4、H语句：If逻辑表达式Then:IfQ<0Then语句块1!Q=-1Else■Else语句块2-Q=1EndIf:EndIf5、Do循环语句:DoWihle循环条件!DoWhileCells(j,1)<>Empty语句块1■X=N+(Cells(j,1)-D)*Cos(F)[ExitDo]-Y=E+(Cells

7、(j,1)・D)*Sin(F)语句块2:j=j+1Loop•Loop6、调用单元格数值:WithSheets（”单元格名称”）-WithSheets。处标计算”）E=.Cells(行，列);E=.Cells(4,2)D=.Cells（行，列）：D=.Cells(5,2)F=.Cells(行,列)•F=.Cells(6,2)EndWithEndWith说明：这里的.Cells（行，列）表示调川Sheets（“坐标计：T）单元格中指定数值。7、MsgBox事件语句:PrivateSubWorkbookOpen():PrivateS

8、ubWorkbookOpen()MsgBox"提示语句"MsgBox"欢迎使用直线坐标计算程序！nEndSub;EndSub主题：通过以上认识相信大家对VBA编程稍冇认识与了解，现在将进行测量坐标计算程序设计。给大家讲解的是“直线坐标中桩计算啲程序如何编写与运算。思路：根据单元格输入的已知数据并由With过程调用，建立Do循环计算模式自动填充待求点单元格处标。准备：本表需将安全级别设置为“低”，否则运行时点击计算按钮没右仮映。OfficeExcel设置方法如下:Excel2003版：工具〉a>/>aa安全性>a>选择较低的安全

9、级别aaa重新打开文件即可运行。Excel2007版：Office按tfi»>Excel选项〉:>>信任屮心〉>>信任屮心设置>>>宏设置>>>启用所冇宏。版本：程序测试演示版木MicrosoftOfficeExcel2003直线坐标计算原理:如下图所示，已知直线的起点坐标°