- 1、本文档共16页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
教你如何通过ExcelVBA编写测量坐标计算程序.
教你如何通过Excel VBA编写测量坐标计算程序
??发布日期:2013-01-11??来源:网络??作者:未知??浏览次数:1704
摘??要:认识VBA、理解VBA,并利用Office?Excel?VBA编写测量坐标计算程序。
关键词:Excel?VBA?程序?坐标?编写
了解:VBA是什么?简单的说就是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案。可以用Excel的宏语言来使Excel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——Visual?Basic?For?Application(VBA),可以认为VBA是非常流行的应用程序开发语言Visual?Basic的子集,事实上VBA是VB应用程序的版本,尽管存在有些不同VBA和VB在结构上仍然十分相似。如果你已经了解VB会发现学习VBA非常快。相应的学完VBA会给学习VB打下坚实的基础。
理由:选择Excel?VBA编程的理由是因为它的计算功能非常强大,是现今任何编程计算器无法逾越的。它运用范围广,计算速度快,计算精度高,合理化显示等。或许很多测量人员对Excel?VBA还有些陌生,主要是大家寄托于计算器、电脑、手机PDA等系列软件使用。Excel?VBA对于大多数测量人员而没有系统学过计算机语言程序设计的人群来讲有一定含糊,不过只要有基本数学知识、测量常识和逻辑理解的人,都能通过Excel?VBA编写设计出称心如意的测量程序。
目标:基于Excel?VBA的测量坐标计算程序的设计目标是将繁琐计算过程转入到计算机中,利用程序语言的重复性原理,在计算机中可将坐标计算得出更精确的结果,使坐标计算更加可靠。最终目标是让用户可以通过Excel?VBA自行完成坐标计算程序设计。
认识:学习VBA到底需要什么基础和了解些什么?
学习VBA需要认识英文字母、一般的单词(如:函数所用的过程)、数学基础知识、测量常识、逻辑性思维即可。
在VBA中需要了解VBA的过程、变量、属性、方法、事件、语句等。
Excel?VBA程序可以分为“录制宏、自定义函数”,由于录制宏编写计算类程序它限制了计算涵式过程,而无法达到自定义数据直接运算的目的,所以大家可以通过按钮式点击进行自定义函数过程(还可以通过窗体定义过程)。
基本常识:
? ?1、类型:常用类型分为Integer(整型)、Single?(单精度型)、Double?(双精度型)、String(字符串型)、Variant(数字)、Variant(字符)。
? ?2、变量:Dim?变量名?As?数据类型。例:Dim?A?As?Double
定义变量除了可以使用Dim语句外,比较常的还有:static语句,Private语句,Public语句。
? ?3、常量:Const?常量名?As?数据类型?=?常量的值。例:Const?PI?=3.1415926535898
常量声明后不可对它再进行赋值。
? ?4、If语句:
If??逻辑表达式?Then??????┆?????If?Q0?Then?
?????????????语句块1?????┆????????????Q=-1
Else?????????????┆????????Else
?????????????语句块2?????┆????????????Q=1
????????End?If???????????┆????????End?If
? ?5、Do循环语句:
Do?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(单元格名称)┆??With?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?????????????┆??????E
文档评论(0)