了解数据类型

Question

第一次发帖！ 我正在努力解决编写宏 VBA 函数以在 Microsoft Excel 中使用的一个非常基本的方面。

我正在尝试构建的函数将采用两组坐标并找到它们之间的距离。我已经能够输入我需要的公式并得到我想要的答案，但是因为这个公式是计算地球曲率周围的距离，所以公式很长，需要针对每个新情况手动更改。 所以我尝试创建一个新的宏函数来存储公式并简单地将四个相关坐标点作为变量。但是，当我尝试使用新功能时，现在出现 #VALUE 错误。

我一直使用的公式是：

=(3280.84*(6371 *(2*ATAN2(SQRT(1-(SIN(ABS(目的地纬度-起始纬度)*PI()/180) /2)^2+COS(原纬度 *PI()/180)*COS(目的地纬度 *PI()/180)*SIN(ABS(目的地经度-原点 经度)*PI()/180/2)^2)),SQRT((SIN(ABS(目的地) 纬度-原纬度)*PI()/180/2)^2+COS(原纬度 *PI()/180)*COS(目的地纬度 *PI()/180)*SIN(ABS(目的地经度-起始经度 )*PI()/180/2)^2))))))

这给了我以美国英尺为单位的距离。

我试图在下面的 Excel VBA 窗口中将其转换为更简单的函数：

Public Function LatLngDistance(Lat1 As Single, Lng1 As Single, Lat2 As Single, 
Lng2 As Single)

LatLngDistance = (3280.84 * (6371 * (2 * Application.Atan2(Application.SQRT(1 - (Application.Sin(Abs(Lat1 - Lat2) * Application.Pi() / 180 / 2) ^ 2 + Application.Cos(Lat2 * Application.Pi() / 180) * Application.Cos(Lat1 * Application.Pi() / 180) * Application.Sin(Abs(Lng1 - Lng2) * Application.Pi() / 180 / 2) ^ 2)), Application.SQRT(Application.Sin(Abs(Lat1 - Lat2) * Application.Pi() / 180 / 2) ^ 2 + Application.Cos(Lat2 * Application.Pi() / 180) * Application.Cos(Lat1 * Application.Pi() / 180) * Application.Sin(Abs(Lng1 - Lng2) * Application.Pi() / 180 / 2) ^ 2)))))

End Function

因为我在尝试使用此函数时收到 #VALUE 错误，所以我相信我的错误是错误地将四个变量标记为错误的数据类型。

Answer 1

Application.Cos、Application.Sin 和 Application.SQRT 在 VBA 中不起作用。像这样使用内置的 VBA 函数

LatLngDistance = (3280.84 * (6371 * (2 * Application.Atan2(Sqr(1 - (Sin(Abs(Lat1 - Lat2) * Application.Pi() / 180 / 2) ^ 2 + Cos(Lat2 * Application.Pi() / 180) * Cos(Lat1 * Application.Pi() / 180) * Sin(Abs(Lng1 - Lng2) * Application.Pi() / 180 / 2) ^ 2)), Sqr(Sin(Abs(Lat1 - Lat2) * Application.Pi() / 180 / 2) ^ 2 + Cos(Lat2 * Application.Pi() / 180) * Cos(Lat1 * Application.Pi() / 180) * Sin(Abs(Lng1 - Lng2) * Application.Pi() / 180 / 2) ^ 2)))))