![[新版]excel计算方位角](https://swf.iask.com/UL7AS3CvvLx.svg?ssig=kzfOdLNxve&Expires=1721245778&KID=sina,ishare&range=0-9760)
[新版]excel计算方位角
用Excel计算距离和方位角
以上表为例，新建一个Excel表格，用10个单元格A、B、C、D、E、F、G、H、I、J。A4、B4分别输架站点的X、Y坐标，C4、D4分别输前视点(或后视点)的X、Y坐标。E4=C4-A4，F4=D4-B4,G4=ATAN(F4/E4)*180/PI(),或者G4=DEGREES(ATAN(F4/E4)) (ATAN是反正切值tan-1,PI()是圆周率π,直接输ATAN和PI(),DEGREES是弧度转换角度)H4=IF(E4*F4,0，IF(E4,0,G4,180+G4),IF(E4,0, 180+G4，360+G4)),点I4右击鼠标选择设置单元格进入数字选择自定义,在类型下面框内编辑”,h,?mm′ss″”, 按确定，,,和 ”符号在电脑键盘上选择输，?′″符号在输入法键盘单位符号上选择输。I4=H4/24,或者直接I4=TEXT(H4/24, ”,h,?mm′ss″”),J4=SQRT(E4^2+ F4^2)或J4=SQRT(E4* E4+ F4* F4)(SQRT表示根号)。架站点坐标一般不变，只不过前视点(或后视点)的坐标在变化，我们将架站点坐标A4、B4锁定成$A$4、$B$4,将E、F、G、H单元格隐藏，只显示6个单元格。
首先Excelvba界面(Alt+F11)，之后“工程-VBAproject”内(即显示着Microsoft Excel对象和sheet1等等的地方)右键--插入--模块，会得到一个“模块1”，工作区会出现一个窗口，将以下红色代码复制到此窗口内即可。之后返回到Excel中，就可以和Excel的内部函数一样应用了。
比如在A1、B1、A2、B2单元格内分别输入A点坐标X1、Y1、B点坐标X2、Y2。 在其他单元格内输入=FWJ(A1,B1,A2,B2)便可得到从A点到B点的方位角了，在另一单元格内输入=JL(A1,B1,A2,B2)即可得到AB点间距离。 VB源码彩色显示 注:在[code]...[/code]内就以下面格式显示文字，双击源码拷贝到剪
切板 Function FWJ(x1, y1, x2, y2) '求解两点方位角函数，返回结果为度
Dim xx As Double, yy As Double, P As Double
P = 3.14159265358979
xx = x2 - x1
yy = y2 - y1
If xx = 0 Then FWJ = IIf(yy > 0, Pi, 3 * P) If yy = 0 Then
FWJ = IIf(xx > 0, 0, 2 * P)
Else
FWJ = Atn(Abs(yy / xx))
If yy > 0 Then FWJ = IIf(xx > 0, FWJ, P - FWJ)
If yy < 0 Then FWJ = IIf(xx > 0, 2 * P - FWJ, P + FWJ)
End If
FWJ = FWJ * 180 / P
End Function
Function JL(x1, y1, x2, y2) '求解两点距离 JL = Sqr((y2 - y1) ^ 2 + (x2 - x1) ^ 2) End Function
本文档为【[新版]excel计算方位角】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483