君，已阅读到文档的结尾了呢~~
坐标方位角机导线复核计算
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
方位角及导线闭合计算
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口教你如何通过Excel VBA编写测量坐标计算程序_测量吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：27,043贴子：
教你如何通过Excel VBA编写测量坐标计算程序收藏
教你如何通过Excel VBA编写测量坐标计算程序（入门篇）摘
要：认识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.8常量声明后不可对它再进行赋值。
4、If语句：If
逻辑表达式 Then
If Q&0 Then
Q=-1　　　　Else
5、Do循环语句：Do Wihle 循环条件
┆ Do While Cells(j, 1) && Empty
X = N + (Cells(j, 1) - D) * Cos(F)
Y = E + (Cells(j, 1) - D) * Sin(F)
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)
说明：这里的.Cells(行, 列)表示调用Sheets("坐标计算")单元格中指定数值。
7、Msgox事件语句：Private Sub Workbook_Open()┆ Private Sub Workbook_Open()
MsgBox "提示语句"
MsgBox "欢迎使用直线坐标计算程序！"End Sub
┆ End Sub
主题：通过以上认识相信大家对VBA编程稍有认识与了解，现在将进行测量坐标计算程序设计。给大家讲解的是“直线坐标中桩计算”的程序如何编写与运算。
思路：根据单元格输入的已知数据并由With过程调用，建立Do循环计算模式自动填充待求点单元格坐标。
准备：本表需将安全级别设置为“低”，否则运行时点击计算按钮没有反映。
Office Excel 设置方法如下：
Excel 2003版：工具&&&宏&&&安全性&&&选择较低的安全级别&&&重新打开文件即可运行。
Excel 2007版：Office按钮&&&Excel选项&&&信任中心&&&信任中心设置&&&宏设置&&&启用所有宏。
版本：程序测试演示版本
Microsoft Office Excel 2003直线坐标计算原理：如下图所示，已知直线的起点坐标 、起点切线方位角ao、直线长度L。直线的止点坐标、止点方位角az计算如下：已知计算数据：输入直线要素
起点坐标xo
起点坐标yo
计算方位角ao
程序操作步骤：1、设置表格框架（可以根据自己的要求设计），图示如下：2、在菜单栏上面点击右键弹出下拉式对话框选中“Visual Basic”。3、调用后的Visual Basic菜单栏显示如下。4、插入命令按钮（按钮主要用于鼠标点击时触发函数运行）。5、插入命令按钮后样式，在上面点击右键→命令按钮 对象→编辑→输入“坐标计算”名称（可以根据自己要求输入）。同样方法添加“数据清除”按钮。6、在“坐标计算”按钮上面点击右键→查看代码，即可进入代码编辑区域。同样方法编辑“数据清除”按钮代码。7、代码输入区域，在蓝色线条位置粘贴“VBA主要源码”代码然后点击左上角Excel图标即可返回Excel电子表格界面。（这里还可以在VBAProject上面点击右键→插入模块→将代码粘贴到模块中通过路径指引，但是在这里就直接将代码粘贴在按钮内部减少了添加模块的繁琐）。VBA主要源码：
Option Explicit '显式声明模块中的所有变量
Private Sub CommandButton1_Click()'按钮下粘贴以下代码：Dim j As Integer '
═╮Dim Ai, Bi, Ci, Di, Ei, Fi, Gi, Hi As Double '
║Dim N, E, D, X, Y, F As Double '
║定义变量Const Pi = 3.79 '
With Sheets("坐标计算")
If Trim(.Cells(3, 2)) = "" Then MsgBox "请输入“起点坐标X”！", vbInformation, "提示": Exit Sub '
If Trim(.Cells(4, 2)) = "" Then MsgBox "请输入“起点坐标Y”！", vbInformation, "提示": Exit Sub '
If Trim(.Cells(5, 2)) = "" Then MsgBox "请输入“起点桩号K”！", vbInformation, "提示": Exit Sub '
║检测数据
If Trim(.Cells(6, 2)) = "" Then MsgBox "请输入“起点方位角F”！", vbInformation, "提示": Exit Sub '
技术贴。。
温馨提示：由于百度贴吧无法直接粘贴来自QQ空间的图片，若需阅读全文请访问作者的QQ空间。作者Q Q：
登录百度帐号推荐应用圆曲线坐标计算软件|圆曲线坐标计算程序下载 v1.50.15绿色版_ - pc6下载站}