excel计算两经纬度之间距离宏 .pdfVIP

[最新]excel 计算两经纬度之间距离宏 利用 excel 计算两经纬度之间距离及角度 1. 按 ALT+F11 进入 VBA 编译器 2. 在工程管理器中插入“模块”，然后将下 面代码粘 贴到模块里 计算两经纬度之间距离=cal_long_lat(经度 1,纬度 1,经度 2,纬度 2) Public Function Cal_Long_Lat(ByVal long1 As Double, ByVal lat1 As Double, ByVal long2 As Double, ByVal lat2 As Double) As Double Const PI As Double = 3.1415926535 Dim AngleLong1, AngleLat1, AngleLong2, AngleLat2 As Double AngleLong1 = long1 * PI / 180 AngleLat1 = lat1 * PI / 180 AngleLong2 = long2 * PI / 180 AngleLat2 = lat2 * PI / 180 Dim sinX, cosX As Double sinX = Sin(Angle