Excelで2つの住所間の走行距離を計算する方法

  • これを共有
Hugh West

Microsoft Excelは非常に多機能な表計算ソフトです。 2つの住所間の走行距離もExcelで計算できます。 住所のリストがあり、その差を求める場合は、もちろんMS Excelを使用できます。 手計算でもできますが、それではあまりにも時間がかかりすぎます。このように、今回はExcelで2つの住所間の走行距離を計算する方法を紹介します。

練習用ワークブックをダウンロードする

以下のリンクからExcelファイルをダウンロードし、それに沿って練習することができます。

2つの住所間の走行距離を計算する.xlsm

2つの住所間のドライブ距離をExcelで計算する効果的な方法

1.三角関数を使った走行距離の計算

ここでは、さまざまな組み合わせの方法を紹介します。 さんかくかんすう を使えば、2つの住所間の走行距離をExcelで計算することができます。

例として、2つのアドレスを取り上げました。 1つ目のアドレスは オーストラリア、カムデン ニューサウスウェールズ州、マッカーサー・パーク その緯度・経度は 34.06312149 -118.2783975 2番目のアドレスは 米国ニュージャージー州ジャージーシティ その緯度・経度は 40.71799929 -74.04276812 を、それぞれご紹介します。

では、その組み合わせで ACOS , COS , SIN , & ラディアンズ この式は、2つの住所間の走行距離をマイル単位で効率的に計算します。

そのために

❶ セルを選択する D8 を最初に選択します。

❷次に、セルに次の数式を挿入します。

=acos(cos(radians(90-c6)) *cos(radians(90-c5)) +sin(radians(90-c6)) *sin(radians(90-c5)) * cos(radians(d6-d5))) =3959(ラジアン(90-c5))

❸ そのあと エンタメ ボタンをクリックします。

さて、この計算式では、「1. オーストラリア、カムデン ニューサウスウェールズ州、マッカーサーパーク。 米国ニュージャージー州ジャージーシティ マイルで表示されます。 このように、セル D8 というのは 2445.270922 マイルになります。

フォーミュラ・ブレークダウン

  • cos(radians(90-c6)) *cos(radians(90-c5)) - その ラディアンズ 関数は値をラジアンに変換し COS 関数が値の余弦を提供するので、緯度に対する余弦を掛け合わせる。 出力 - 0.365377540842758
  • コサイン - は、2つのアドレスの経度差の余弦値である。 出力 - 0.716476936499882
  • sin(ラジアン(90-c6)) *sin(radians(90-c5)) - は、90ラジアンから経度方向のずれを計算し、サイン値を乗算します。 出力 - 0.627884682513118
  • sin(ラジアン(90-c6)) *sin(ラジアン(90-c5)) *cos(ラジアン(d6-d5))。 - は、0.627884682513118 * 0.716476936499882となります。 出力 - 0.449864893802199
  • cos(ラジアン(90-c6)) *cos(radians(90-c5)) +sin(ラジアン(90-c6)) *sin(radians(90-c5)) *cos(radians(d6-d5)) - は、0.365377540842758 * 0.449864893802199となります。 出力 - 0.815242434644958
  • では、その ACOS 関数はその値をアークコサインする。 出力 - 0.617648629071256
  • 最後に、その値を掛け合わせると 3959 - 0.617648629071256 *3959 は結果をマイルで表示します。 出力 - 2445.270922

続きを読む エクセルで2つの住所間のマイルを計算する方法(2つの方法)

2.VBAコードによる2つの住所間の走行距離の計算

この項では ブイビーエー のコードを使ってユーザー定義関数を作成し、その関数を使ってExcelで2つの住所間の走行距離を計算します。

ここでは、2つのアドレスを使用しています。 1つ目のアドレスは オーストラリア、カムデン ニューサウスウェールズ州、マッカーサー・パーク その緯度・経度は 34.06312149 -118.2783975 2番目のアドレスは 米国ニュージャージー州ジャージーシティ その緯度・経度は 40.71799929 -74.04276812 を、それぞれご紹介します。

座標とは、緯度と経度を組み合わせたものです。 座標を生成するには、次のようにします。

  • 住所の緯度を最初に入力します。
  • そして、コンマを挿入する。
  • その後、同じ住所の経度を入力してください。

つまり、最初のアドレスの座標は 34.0631214903094,-118.27839753751 そして、2つ目のアドレスの座標は 40.7179992930381,-74.0427681204225 .

があります。 ブイビーエー のコードが必要です。 エーピーアイ を地図上に表示し、走行距離を計算します。 エーピーアイ は、Application Programming Interface(アプリケーション・プログラミング・インターフェース)の略です。 エーピーアイ のどちらかを接続します。 グーグルマップ または ビングマップ を、お好みでお選びください。

しかし、作成することで Google Map API が支払われます。 逆に、このような場合は エーピーアイ Bing MAP を無償で提供します。

このように、私は Bing MAP API をご覧ください。

  • 無料で作成する場合 Bing MAP API , ここをクリック .

を作成しました。 エーピーアイ を添付しています。 エーピーアイ を下回る。

AhFG0hk5nKCcQlk80MRaSk1ZtoYUYsX98BCLWi7p7MKZ-VrzOWptdUwsvj9D3L9F

さて、いよいよ書き出しです。 ブイビーエー コードです。

  • プレス ALT + F11 を開いてください。 VBAエディタ .
  • では、次に進みます。 インサート モジュール をクリックすると、新しいモジュールが表示されます。

開封後 VBAエディタ を挿入する。 ブイビーエー のコードをオープンしたモジュールで表示します。

 Option Explicit Public Function Driving_Distance(startlocation As String, destination As String, keyvalue As String) Dim First_Value As String, Second_Value As String, Last_Value As String, mitHTTP As Object, mitUrl As String First_Value = "//dev.virtualearth.net/REST/v1/Routes/DistanceMatrix?origins=" Second_Value = "&destinations=" Last_Value = "&travelMode=driving&o=xml&key="mitHTTP = CreateObject("MSXML2.ServerXMLHTTP") mitUrl = First_Value & startlocation & Second_Value & destination & Last_Value mitHTTP.Open "GET", mitUrl, False mitHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" mitHTTP.Send ("") Driving_Distance = "Distance", mitHTTP = First_Value, "DistanceUnit=i", "distanceUnit="d "mid "mit("mm").とする。Round(Round(WorksheetFunction.FilterXML(mitHTTP.ResponseText, "//TravelDistance"), 3), 0) End Function 

コードの内訳

  • ここでは、ユーザー定義関数である ドライビングディスタンス
  • そして、3つのパラメータを使いました。 始点位置 , 行き先 そして のキーバリューを指定します。 これらは、2つのアドレスの位置と エーピーアイ の値をそれぞれ設定します。
  • そして、いくつかの変数を使いました。 最初の値 , セカンドバリュー , 最後の値 , ミットハットティーピー , & mitUrl. これらの変数は、異なる値を格納するために使用されます。
  • そして、その値を組み合わせて mitUrl )を使用し、いくつかのオブジェクトメソッド( オープン , SetRequestHeader , 送信 を通じて、なんとか走行距離を計算することができました。 エーピーアイ .

この ブイビーエー というユーザー定義関数を生成するコードです。 走行距離 .

機能 走行距離 よう 3論点 を合計したものです。

以下は、その一般的な構文です。 走行距離 関数を使用します。

=Driving_Distance(Start_Location_Coordinate,End_Location_Coordinate, API)

さて、いよいよユーザー定義関数の適用です。 そのためには

  • セレクトセル E10 .
  • そして、次の式を挿入します。
=走行距離(E5,E6,C8)

  • を押してください。 エンタメ .

フォーミュラ・ブレークダウン

  • E5 開始位置の座標 .
  • E6 終了位置の座標 .
  • C8 エーピーアイ Bing MAP .

この関数は、2つの住所間の走行距離をマイル単位で計算します。 セルをチェックアウトする E10 .数字が表示されます。 2790 .

ということで、車での移動距離は オーストラリア、カムデン ニューサウスウェールズ州、マッカーサーパーク。 米国ニュージャージー州ジャージーシティ でございます 2790 マイルになります。

続きを読む エクセルで2つの住所間の距離を計算する方法(3つの方法)

プラクティス部門

提供されたExcelファイルの最後に、以下のスクリーンショットのようなExcelシートが表示され、この記事で説明したすべての方法を実践することができます。

結論

要約すると、私はExcelで2つのアドレス間の駆動距離を計算する2つの方法について説明しました。 そして、以下のコメント欄に何か質問をすることを躊躇しないでください。 我々はできるだけ早くすべての関連するクエリに応答するようにします。 そして、私たちのウェブサイトをご覧ください。 Exceldemy をクリックすると、さらに詳しくご覧になれます。

Hugh West は、業界で 10 年以上の経験を持つ、非常に経験豊富な Excel トレーナー兼アナリストです。彼は会計と財務の学士号と経営管理の修士号を取得しています。ヒューは教えることに情熱を持っており、理解しやすい独自の教育アプローチを開発しました。彼の Excel に関する専門知識は、世界中の何千人もの学生や専門家がスキルを向上させ、キャリアで優れた成果を上げるのに役立ってきました。 Hugh はブログを通じて知識を世界に共有し、個人や企業が潜在能力を最大限に発揮できるよう無料の Excel チュートリアルとオンライン トレーニングを提供しています。