Google マップを使用して Excel で距離を計算する方法

Excel にはさまざまなアプリケーションがあります。 VBA の使用中 そうすれば、Excel でやりたいことが何でもできるようです。もちろん、場所間の距離を見つけることもできます エクセルの地図を使っています。この記事では、Google マップを使用して Excel で距離を計算するためのクイック ガイドを、シャープなステップと明確なイラストで示します。

ここから無料の Excel ワークブックをダウンロードして、自分で練習できます。

ユーザー定義関数を使用して Excel で Google マップとの距離を計算する

ここで、距離を見つけます Google マップを使用して、マッカーサー パークとジャージー シティの間を移動します。

まず、重要なことを知る必要があります。 Google マップを使用して Excel で距離を計算するには、 API が必要です。 鍵。 API アプリケーション プログラミング インターフェースの略 . Excel は、必要なデータを収集するために API キーを使用して Google マップに接続します。一部のマップでは、Bing Maps などの無料の API キーが提供されます。しかし、Google マップは無料の API を提供していません。無料の API をどうにかして管理しても、完全には機能しません。 API を購入する必要があります。 このリンクのキー。

ここでは、無料の API を管理しています 鍵。例として示すために使用されているだけで、正しく機能しません。 VBA を使用します ユーザー定義関数を作成する Calculate_Distance という名前 距離を見つける . 3 つの引数があります - Starting Place 、目的地 、API キー .それでは、手続きを始めましょう。

手順:

• ALT + F11 を押します VBA ウィンドウを開く .

• 次に、次のようにクリックします:挿入> モジュール 新しいモジュールを作成します。

• 後で、ウィンドウに次のコードを入力してください-

Public Function Calculate_Distance(start As String, dest As String)
Dim first_Value As String, second_Value As String, last_Value As String
first_Value = "https://maps.googleapis.com/maps/api/distancematrix/json?origins="
second_Value = "&destinations="
last_Value = "&mode=car&language=pl&sensor=false&key=YOUR_KEY"
Set mitHTTP = CreateObject("MSXML2.ServerXMLHTTP")
Url = first_Value & Replace(start, " ", "+") & second_Value & Replace(dest, " ", "+") & last_Value
mitHTTP.Open "GET", Url, False
mitHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
mitHTTP.Send ("")
If InStr(mitHTTP.ResponseText, """distance"" : {") = 0 Then GoTo ErrorHandl
Set mit_reg = CreateObject("VBScript.RegExp"): mit_reg.Pattern = """value"".*?([0-9]+)": mit_reg.Global = False
Set mit_matches = mit_reg.Execute(mitHTTP.ResponseText)
tmp_Value = Replace(mit_matches(0).Submit_matches(0), ".", Application.International(xlListSeparator))
Calculate_Distance = CDbl(tmp_Value)
Exit Function
ErrorHandl:
Calculate_Distance = -1
End Function

• その後は何もありません。シートに戻ってください。

コードの内訳:

• まず、Public Function プロシージャ Calculate_Distance を使用しました .
• その後、いくつかの変数 first_Value、second_Value、および last_Value を宣言しました ユーザー定義関数の引数用。
• 変数の値を設定し (各値は自己記述的です)、mitHTTP を設定します ServerXMLHTTP のオブジェクト GET を利用する メソッド (後で使用します。このオブジェクト プロパティにより、POST メソッドも同様です）。
• URL 以前に設定したすべての値の組み合わせです。mitHTTP の open プロパティ オブジェクトがそれを使用しました。
• 値を割り当てた後、ライブラリ関数が残りの計算を行います。

これで、関数を使用する準備ができました。

• セル C8 内 、次の式を入力してください-

• 最後に ENTER を押してください。 ボタンで距離を取得します。 メートル単位で距離を表示します .

続きを読む: Excel で 2 つの住所間の運転距離を計算する方法

Google マップで距離を計算する際の長所と短所

• 有効な API キー が必要です .
• 上記のコードは、メートル単位で出力を提供します .
• ユーザー定義関数は地名を直接使用します。座標を使用する必要はありません。
• 正しい場所を使用していることを確認してください。

Google マップで距離を計算するメリットとデメリット

利点

• 複数の場所の場合、フィル ハンドルを使用できるため、かなり実現可能です。 数式をコピーするツール。 Google マップでは不可能です
• そのほうがかなり早いです。
• 座標を使用する必要はありません。

短所

• 座標では機能しません。
• 地図やルートはわかりませんが、距離だけがわかります。
• 地名のおおよその一致では機能しません。

結論

上記の手順で、Google マップを使用して Excel で距離を計算するのに十分であることを願っています。コメント欄で質問をして、フィードバックをお寄せください。 ExcelDemy にアクセス

関連記事

• Excel で 2 つの GPS 座標間の距離を計算する方法
• Excel で方位と距離から座標を計算する
• Excel でマハラノビス距離を計算する方法 (ステップ バイ ステップ)
• Excel で 2 つの住所間のマイルを計算する (2 つの方法)
• Excel でマンハッタン距離を計算する方法 (2 つの適切な方法)
• Excel でレーベンシュタイン距離を計算する (4 つの簡単な方法)