目次
多くの場合、必要なのは 距離を測る この記事では、Excelで2つの座標間の距離を計算する2つの方法を説明します。
練習用ワークブックをダウンロードする
練習帳は以下のリンクからダウンロードできます。
2つの座標間の距離を計算する.xlsm座標系の基礎
座標系とは、特に幾何学において、点の位置を特定したり、他の幾何学的パラメータを計算するために1つ以上の数値を使用するシステムのこと。 座標系には多くの種類があり、例えば、直交座標系、測地座標系などが挙げられる。
直交座標系とは？
直交座標系とは、任意の位置や幾何学的なデータを計算するために基準軸を使用するシステムです。 ある点の座標は、それらの基準軸の距離から決定されます。 たとえば、次のようなものです。
2次元平面において、X軸は水平面、Y軸は垂直面を示す。 つまり、ある点の座標を（2,3）とすると、その点は水平面から2単位、垂直面から3単位離れていることを意味する。
直交座標系における距離の公式
2次元直交座標系での距離計算の算術式は以下の通りです。
d=√((x2-x1)^2+(y2-y1)^2)
これです。
- x 1 = 点 1 の x 軸からの距離。
- x 2 = 点 2 の x 軸からの距離。
- y 1 = 点 1 の y 軸からの距離。
- y 2 = 点 2 の y 軸からの距離。
- d = 点1と点2の間の距離。
測地座標系とは？
測地座標系とは、楕円体を基準として点の位置を特定し、その他の幾何学的パラメータを測定する座標系の一種です。 この座標系での位置特定には、一般的に緯度と経度が用いられます。
ここで、緯度とは赤道からの南北の距離、経度とは本初子午線からの東西の距離を意味する。 また、緯度と経度の正の値は北と東を、負の値は南と西をそれぞれ意味する。
測地座標系における距離の計算式
測地座標系で2つの座標間の距離を計算する算術式は以下の通りです。
d=acos(cos(radian(90-lat1))*cos(radian(90-lat2)))+cos(radian(90-lat1))+cos(radian(90-lat2))
sin（ラジアン（90-緯度1））*sin（ラジアン（90-緯度2）*cos（ラジアン（long1-long2）））*3959
これです。
- ラテ1 = 位置1の緯度
- ラテ2 = 位置2の緯度
- ロング1 = 位置1の経度
- ロングツー = 位置2の経度
- d = 位置1と位置2の距離（マイル）。
Excelで2つの座標間の距離を計算する2つの方法（直交座標系）
異なる状況にある点1と点2の座標があるデータセットがあり、それらの間の距離を計算したいとします。 では、そのための方法を2つ紹介します。
1.算術式で距離を計算する
手動で算術式を入れると簡単に距離を計算できます。 では、以下の手順で距離を計算してみましょう。
ステップス :
- まず、次のカラムを作成します。 距離です。
- 次に、セルを選択します。 G6 を入力し、次の計算式を挿入します。
これです。 G6 は距離列の開始セルである。 また C6、D6、E6、F6 の開始セルを示す。 x 1 , x 2 , y 1, と y 2 また、ここでは SQRT関数 は平方根を求めるために使用されます。
- 最後に フィルハンドル を入力すると、距離が表示されます。
2.Excelで2つの座標間の距離を計算するVBAコードの適用
を使用することもできます。 ブイビーエー のコードを使って、直交座標系での距離を計算する関数を作成し、それを使って計算します。 では、以下の手順で行ってください。
ステップス :
- まず、以下を押します。 ALT + F11 を開いてください。 ブイビーエー ウィンドウに表示されます。
- ここで、以下を選択します。 このワークブック と 右クリック を付けています。
- 次に、順次選択します。 インサート > モジュール .
- このとき、次のコードをコピーして、空欄に貼り付けてください。
'このコードでは、デカルト座標系で距離を計算する関数を作成します Public Function DistCartesian(x1 As Double, y1 As Double, x2 As Double, y2 As Double) '距離を計算する算術式を使って、A = (x2 - x1) ^ 2 + (y2 - y1) ^ 2 関数を作成します DistCartesian = Math.Sqr(A) End Function 
- その後 F5 を実行します。 ここでは、このコードは新しい関数 ディストカーテシアン 直交平面上の2つの座標間の距離を計算するのに役立ちます。
- 次に、セルを選択します。 G6 を入力し、次の計算式を挿入します。
ここで、この関数の引数は x 1 , y 1 , x 2, と y 2 を、それぞれご紹介します。
- 最後に フィルハンドル を、残りのセルに対して
続きを読む Excelで2つのGPS座標の間の距離を計算する方法
Excelで2つの座標間の距離を計算する2つの方法（測地座標系）
測地系で、2つの場所の緯度と経度があったとします。 では、以下の手順で わたりま .
1.算術式で距離を計算する
距離計算の最も早い方法の一つは、手動で距離計算の算術式を置くことです。 では、以下の手順で測地座標系での2つの座標間の距離を計算してみましょう。
ステップス :
- のカラムを追加します。 距離(マイル) .
- 次に、セルを選択します。 G6 を入力し、次の計算式を挿入します。
これです。 C6 , D6、E6。 と F6 の列の最初のセルを示す。 緯度1 (°) , 経度1 (°) , 緯度2(°)。 と 経度2 (°) を、それぞれご紹介します。
⧬ 計算式の説明
この式では
- RADIANS機能 の値を変換するために使用されます。 デグリー (°) の値に変換します。 ラジアン の単位になります。
- COS機能 は、角度の余弦を求めるために使用します。
- SIN機能 は、角度の正弦を求めるために使用します。
- ACOS機能 は，数値のアークコサインまたは逆コサインを返すために使用される。
- 最後に、数 3959を掛け合わせたもの まで 距離を詰める マイル数 .その代わり 6371で掛ける で結果を得ることができます。 キロメートル .
- 最後に フィルハンドル は、コラムの続きで距離感を掴んでください。
続きを読む Excelで2都市間の距離を計算する方法
2.Excelで2つの座標間の距離を計算するVBAコードの適用
を使用することもできます。 ブイビーエー のコードで測地座標系での距離を計算する関数を作成し、それを使って計算します。 では、以下の手順で行ってください。
ステップス :
- まず、以下を押します。 ALT + F11 を開いてください。 ブイビーエー ウィンドウに表示されます。
- ここで、以下を選択します。 このワークブック と 右クリック を付けています。
- 次に、順次選択します。 インサート > モジュール .
- モジュールを挿入したら、以下のコードをコピーして、空欄に貼り付けてください。
'このコードは測地座標系での距離（マイル）を計算する関数を作成します Public Function DistGeo(Lati1 As Double, Longi1 As Double, Lati2 As Double, Longi2 As Double) With WorksheetFunction P = Cos(.Radians(90 - Lati1)) Q = Cos(.Radians(90 - Lati2)) R = Sin(.Radians(90 - Lati1)) S = Sin(.Radians(90 - Lati2)) T = Cos(.Radians(Longi1 - Longi2)) '3959 を6371に変更して、あなたの求めるものを取得しましょう。結果 (キロメートル) DistGeo = .Acos(P * Q + R * S * T) * 3959 End With End Function 
- このとき F5 を実行するために、新しい関数を作成します。 ディストジオ で距離の計算ができるようになります。 測地系座標系 .
- その後、セルを選択 G6 を書き、次の式を書いてください。
=DistGeo(C6,D6,E6,F6)です。
ここでは、その引数を ディストジオ 関数は 緯度1（°）、経度1（°）、緯度2（°）。 と 経度2 (°) を、それぞれご紹介します。
- 最後に フィルハンドル を列の残りのセルに適用する。
続きを読む Excelで2つの住所間の走行距離を計算する方法
結論
最後になりましたが、この記事でお探しのものが見つかりましたら幸いです。 何かご不明な点がございましたら、下記にコメントをお願いいたします。 このような記事をもっと読みたい方は、当社のウェブサイトをご覧ください。 エクセルウィキ .
