Cara Menghitung Jarak Antara Dua Koordinat di Excel (2 Metode)

Hugh West

16-10-2023 Rumus Excel
  • Bagikan Ini
Hugh West

Dalam banyak kasus, Anda mungkin perlu menemukan jarak antara dua koordinat atau dua lokasi. Di Microsoft Excel Anda dapat melakukan ini dalam ukuran massal dalam durasi yang singkat. Artikel ini mendemonstrasikan dua metode untuk menghitung jarak antara dua koordinat di Excel.

Unduh Buku Kerja Praktik

Anda bisa mengunduh buku latihan dari tautan di bawah ini.

Hitung Jarak Antara Dua Koordinat.xlsm

Dasar-dasar Sistem Koordinat

Sistem koordinat adalah sebuah sistem, khususnya dalam geometri, yang menggunakan satu atau lebih angka untuk mencari posisi sebuah titik atau untuk menghitung parameter geometris lainnya. Ada banyak jenis sistem koordinat, misalnya: Sistem Koordinat Kartesian, Sistem Koordinat Geodetik, dll.

Apakah Sistem Koordinat Kartesian itu?

Sistem Koordinat Kartesian adalah sistem yang menggunakan sumbu-sumbu referensi untuk mencari posisi atau menghitung data geometris. Koordinat suatu titik ditentukan dari jarak sumbu-sumbu referensi tersebut. Sebagai contoh:

Dalam bidang 2-D, sumbu X menunjukkan bidang horizontal dan sumbu Y menunjukkan bidang vertikal. Jadi, jika seseorang memberikan koordinat sebuah titik (2,3), itu berarti titik tersebut berjarak 2 unit dari bidang horizontal dan 3 unit dari bidang longitudinal.

Rumus Jarak untuk Sistem Koordinat Kartesian

Rumus aritmetika untuk menghitung jarak dalam Sistem Koordinat Kartesian 2-D adalah sebagai berikut:

d=√((x2-x1)^2+(y2-y1)^2)

Di sini,

  • x 1 = Jarak titik 1 dari sumbu x.
  • x 2 = Jarak titik 2 dari sumbu x.
  • y 1 = Jarak titik 1 dari sumbu y.
  • y 2 = Jarak titik 2 dari sumbu y.
  • d = Jarak antara titik 1 dan titik 2.

Apakah Sistem Koordinat Geodetik itu?

Sistem Koordinat Geodetik adalah jenis sistem koordinat yang menggunakan ellipsoid sebagai referensi untuk menemukan posisi suatu titik dan mengukur parameter geometris lainnya. Kita biasanya menggunakan garis lintang dan garis bujur untuk menemukan posisi dalam sistem koordinat ini.

Di sini, garis lintang berarti jarak ke arah utara atau selatan dari khatulistiwa, dan garis bujur berarti jarak ke arah timur atau barat dari meridian utama. Juga, nilai positif dari garis lintang dan garis bujur berarti utara dan timur, dan nilai negatif berarti selatan dan barat.

Rumus Jarak untuk Sistem Koordinat Geodetik

Rumus aritmatika untuk menghitung jarak antara dua koordinat dalam Sistem Koordinat Geodetik adalah sebagai berikut:

d=acos(cos(radian(90-lat1))*cos(radian(90-lat2))+

sin(radian(90-lat1))*sin(radian(90-lat2)*cos(radian(long1-long2)))*3959

Di sini,

  • lat1 = Lintang lokasi 1
  • lat2 = Lintang lokasi 2
  • long1 = Bujur lokasi 1
  • long2 = Bujur lokasi 2
  • d = Jarak antara lokasi 1 dan lokasi 2 dalam mil

2 Metode untuk Menghitung Jarak Antara Dua Koordinat di Excel (Sistem Koordinat Kartesius)

Misalkan, Anda memiliki dataset di mana Anda memiliki koordinat titik 1 dan titik 2 dalam situasi yang berbeda dan Anda ingin menghitung jarak di antara keduanya. Sekarang, saya akan menunjukkan kepada Anda dua cara untuk melakukannya.

1. Menggunakan Rumus Aritmatika untuk Menghitung Jarak

Anda dapat dengan mudah menghitung jarak dengan memasukkan rumus aritmatika secara manual. Sekarang, ikuti langkah-langkah di bawah ini untuk menghitung jarak.

Langkah-langkah :

  • Pertama, buat kolom berikutnya untuk Jarak.
  • Berikutnya, pilih sel G6 dan masukkan rumus berikut ini.
=SQRT((E6-C6)^2 + (F6-D6)^2)

Di sini, G6 adalah sel awal untuk kolom jarak. Juga, C6, D6, E6, dan F6 sel menunjukkan sel awal untuk x 1 , x 2 , y 1, dan y 2 Juga, di sini Fungsi SQRT digunakan untuk mencari akar kuadrat.

  • Terakhir, seret Isi pegangan untuk sisa kolom dan Anda mendapatkan jarak Anda.

2. Menerapkan Kode VBA untuk Menghitung Jarak Antara Dua Koordinat di Excel

Anda juga bisa menggunakan VBA untuk membuat fungsi untuk menghitung jarak dalam sistem koordinat kartesian dan kemudian menggunakannya untuk perhitungan. Sekarang, ikuti langkah-langkah di bawah ini untuk melakukannya.

Langkah-langkah :

  • Pertama, tekan ALT + F11 untuk membuka VBA jendela.
  • Sekarang, pilih Buku Kerja ini dan Klik Kanan di atasnya.
  • Berikutnya, pilih secara berurutan Sisipkan > Modul .

  • Pada titik ini, salin kode berikut dan tempelkan ke dalam kotak kosong. 
 'Kode ini akan Membuat Fungsi untuk Menghitung Jarak dalam Sistem Koordinat Kartesian Public Function DistCartesian(x1 As Double, y1 As Double, x2 As Double, y2 As Double) 'Kami menggunakan rumus aritmatika untuk menghitung jarak untuk membuat fungsi A = (x2 - x1) ^ 2 + (y2 - y1) ^ 2 DistCartesian = Math.Sqr(A) End Function

  • Setelah itu, tekan F5 untuk menjalankan kode. Di sini, kode ini telah membuat fungsi baru DistCartesian untuk Anda yang akan membantu Anda menghitung jarak antara dua koordinat dalam bidang kartesius.
  • Sekarang, pilih sel G6 dan masukkan rumus berikut ini.
=DistCartesian(C6,D6,E6,F6)

Di sini, argumen fungsi ini adalah x 1 , y 1 , x 2, dan y 2 masing-masing.

  • Terakhir, seret Isi pegangan untuk sel yang tersisa.

Baca selengkapnya: Cara Menghitung Jarak antara Dua Koordinat GPS di Excel

2 Metode untuk Menghitung Jarak Antara Dua Koordinat di Excel (Sistem Koordinat Geodetik)

Misalkan, dalam Sistem Koordinat Geodetik, Anda memiliki garis lintang dan garis bujur dari dua lokasi yang berbeda. Sekarang, ikuti langkah-langkah di bawah ini untuk menghitung jarak antara kedua lokasi tersebut .

1. Menggunakan Rumus Aritmatika untuk Menghitung Jarak

Salah satu cara tercepat untuk menghitung jarak adalah dengan meletakkan rumus aritmatika untuk menghitung jarak secara manual. Sekarang, ikuti langkah-langkah di bawah ini untuk menghitung jarak antara dua koordinat dalam Sistem Koordinat Geodetik.

Langkah-langkah :

  • Pertama, tambahkan kolom untuk Jarak (Mil) .
  • Kemudian, pilih sel G6 dan masukkan rumus berikut ini.
=ACOS(COS(RADIANS(90-C6))*COS(RADIANS(90-E6))+SIN(RADIANS(90-C6))*SIN(RADIANS(90-E6))*COS(RADIANS(D6-F6)))*3959

Di sini, C6 , D6, E6, dan F6 menunjukkan sel pertama untuk kolom Garis Lintang 1 (°) , Bujur 1 (°) , Lintang 2 (°), dan Bujur 2 (°) masing-masing.

⧬ Penjelasan Rumus

Dalam rumus ini:

  • Fungsi RADIANS digunakan untuk mengonversi nilai di dalam Derajat (°) unit ke suatu nilai di dalam Radian unit.
  • Fungsi COS digunakan untuk menemukan kosinus dari suatu sudut.
  • Fungsi SIN digunakan untuk menemukan sinus dari suatu sudut.
  • Fungsi ACOS digunakan untuk mengembalikan arccosine atau invers cosine dari sebuah angka.
  • Terakhir, jumlah 3959 dikalikan untuk mendapatkan jarak dalam Miles Sebaliknya, Anda bisa kalikan dengan 6371 untuk mendapatkan hasil dalam Kilometer .

  • Terakhir, seret Isi pegangan untuk sisa kolom untuk mendapatkan jarak Anda.

Baca selengkapnya: Bagaimana Menghitung Jarak Antara Dua Kota di Excel

2. Menerapkan Kode VBA untuk Menghitung Jarak Antara Dua Koordinat di Excel

Anda juga bisa menggunakan VBA untuk membuat fungsi untuk menghitung jarak dalam Sistem Koordinat Geodetik dan kemudian menggunakannya untuk perhitungan. Sekarang, ikuti langkah-langkah di bawah ini untuk melakukannya.

Langkah-langkah :

  • Pertama, tekan ALT + F11 untuk membuka VBA jendela.
  • Sekarang, pilih Buku Kerja ini dan Klik Kanan di atasnya.
  • Berikutnya, pilih secara berurutan Sisipkan > Modul .

  • Setelah menyisipkan modul, salin kode berikut ini dan tempelkan di ruang kosong. 
 'Kode ini akan membuat fungsi untuk menghitung jarak (mil) dalam sistem koordinat geodetik 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)) 'Ubah 3959 menjadi 6371 untuk mendapatkanhasil dalam KiloMeter DistGeo = .Acos(P * Q + R * S * T) * 3959 End With End Function

  • Pada titik ini, tekan F5 untuk menjalankan kode. Dengan melakukan itu, Anda akan membuat fungsi baru DistGeo yang akan membantu Anda menghitung jarak dalam Sistem Koordinat Geodetik .
  • Setelah itu, pilih sel G6 dan tuliskan rumus berikut ini.

=DistGeo(C6,D6,E6,F6)

Di sini, argumen dari DistGeo fungsi adalah Garis Lintang 1 (°), Garis Bujur 1 (°), Garis Lintang 2 (°), dan Bujur 2 (°) masing-masing.

  • Terakhir, seret Isi pegangan untuk sel-sel yang tersisa dari kolom.

Baca selengkapnya: Cara Menghitung Jarak Berkendara antara Dua Alamat di Excel

Kesimpulan

Akhir kata, saya harap Anda menemukan apa yang Anda cari dari artikel ini. Jika Anda memiliki pertanyaan, silakan berikan komentar di bawah ini. Jika Anda ingin membaca lebih banyak artikel seperti ini, Anda dapat mengunjungi situs web kami ExcelWIKI .

Postingan sebelumnya Cara Menyisipkan Baris Total di Excel (4 Metode Mudah)
Postingan berikutnya Cara Menambahkan Kutipan Tunggal di Excel (5 Metode Mudah)

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.