Excel VBA を学ぶなら moug モーグ | 即効テクニック | ２地点の緯度経度からその地点間の距離を返すユーザ定義関数

サンプルマクロは、始点の緯度経度および終点の緯度経度の４つの引数に対して、その２地点間の距離を返すユーザ定義関数です。 Function Sample(StartLatitude As Double, StartLongitude As Double _ , EndLatitude As Double, EndLongitude As Double) As Double Dim myNS As Double, myEW As Double With Application.WorksheetFunction myNS = (StartLatitude - EndLatitude) / 360 * 40000# myEW = (StartLongitude - EndLongitude) / 360 * 40000# _ * Cos(.Average(StartLatitude, EndLa