Microsoft Excel adalah program spreadsheet yang sangat serbaguna. Program ini menawarkan berbagai macam tugas yang bahkan tidak dapat Anda bayangkan. Anda bahkan dapat menghitung jarak mengemudi antara dua alamat di Excel. Jika Anda memiliki daftar alamat untuk menemukan perbedaan di antara mereka, Anda tentu saja dapat menggunakan MS Excel. Anda juga dapat menghitung jarak secara manual. Tapi itu akan memakan waktu terlalu lama. Seperti yang Anda milikiJadi dalam artikel ini, saya akan menunjukkan kepada Anda cara menghitung jarak mengemudi antara dua alamat di Excel.

Unduh Buku Kerja Praktik

Anda bisa mengunduh file Excel dari tautan berikut ini dan berlatih bersama file tersebut.

2 Cara Efektif untuk Menghitung Jarak Berkendara antara Dua Alamat di Excel

1. Menggunakan Fungsi Trigonometri untuk Menghitung Jarak Berkendara

Di sini, saya akan menunjukkan kepada Anda untuk menggabungkan berbagai fungsi trigonometri untuk menghitung jarak mengemudi antara dua alamat di Excel.

Sebagai contoh, saya mengambil dua alamat. Alamat pertama adalah Taman MacArthur, Camden NSW, Australia Garis lintang dan garis bujurnya adalah 34.06312149 dan -118.2783975 masing-masing. Alamat kedua adalah Jersey City, New Jersey, Amerika Serikat Garis lintang dan garis bujurnya adalah 40.71799929 dan -74.04276812 masing-masing.

Sekarang, saya akan menggabungkan ACOS , COS , SIN ...&; RADIANS Rumus ini secara efektif akan menghitung jarak mengemudi antara dua alamat dalam mil.

Untuk itu,

❶ Pilih sel D8 pertama.

❷ Kemudian masukkan rumus berikut ke dalam sel.

Setelah itu, tekan tombol MASUK tombol.

Sekarang, Anda akan melihat bahwa formula telah menghitung jarak mengemudi antara MacArthur Park, Camden NSW, Australia, dan Jersey City, New Jersey, Amerika Serikat dalam mil. Dengan demikian, Anda akan melihat hasilnya di sel D8 yaitu 2445.270922 mil.

Rincian Formula

• COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) - yang RADIANS fungsi mengkonversi nilai ke dalam radian dan fungsi COS fungsi menyediakan kosinus dari nilai-nilai, kosinus untuk garis lintang kemudian dikalikan. Keluaran - 0.365377540842758
• COS(RADIANS(D6-D5)) - memberikan nilai kosinus untuk perbedaan bujur di antara kedua alamat. Keluaran - 0.716476936499882

• SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) - menghitung pengalihan bujur dari 90 radian dan mengalikan nilai sinus. Keluaran - 0.627884682513118

• SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) *COS(RADIANS(D6-D5)) - menjadi 0.627884682513118 * 0.716476936499882. Keluaran - 0.449864893802199

• COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) +SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) *COS(RADIANS(D6-D5)) - menjadi 0.365377540842758 * 0.449864893802199. Keluaran - 0.815242434644958

• Kemudian ACOS fungsi arccosines nilai. Keluaran - 0.617648629071256

• Akhirnya, mengalikan nilai dengan 3959 - 0.617648629071256 *3959 memberikan hasil dalam mil. Keluaran - 2445.270922

Baca selengkapnya: Cara Menghitung Mil antara Dua Alamat di Excel (2 Metode)

2. Hitung Jarak Berkendara antara Dua Alamat Menggunakan Kode VBA

Dalam bagian ini, saya akan menggunakan VBA kode untuk membuat fungsi yang ditentukan pengguna. Kemudian saya akan menggunakan fungsi itu untuk menghitung jarak mengemudi antara dua alamat di Excel.

Di sini, saya menggunakan dua alamat. Alamat pertama adalah Taman MacArthur, Camden NSW, Australia Garis lintang dan garis bujurnya adalah 34.06312149 dan -118.2783975 masing-masing. Alamat kedua adalah Jersey City, New Jersey, Amerika Serikat Garis lintang dan garis bujurnya adalah 40.71799929 dan -74.04276812 masing-masing.

Pada I akan menghasilkan koordinat untuk masing-masing alamat. Koordinat adalah kombinasi dari garis lintang dan garis bujur. Untuk menghasilkan koordinat,

• Ketik garis lintang dari suatu alamat terlebih dulu.
• Kemudian sisipkan koma.
• Setelah itu, ketikkan garis bujur dari alamat yang sama.

Jadi, koordinat alamat pertama adalah 34.0631214903094,-118.27839753751 Dan koordinat alamat kedua adalah 40.7179992930381,-74.0427681204225 .

The VBA kode membutuhkan API peta untuk menghitung jarak mengemudi. API Anda dapat menggunakan API untuk menghubungkan salah satu Google Map atau Peta Bing apa pun yang Anda sukai.

Tetapi menciptakan Google Map API dibayar. Sebaliknya, Anda dapat membuat sebuah API dari Bing MAP secara gratis.

Oleh karena itu, saya menggunakan Bing MAP API di sini.

• Untuk membuat Bing MAP API , klik di sini .

Saya telah membuat sebuah API . saya lampirkan API di bawah ini:

Sekarang, saatnya untuk menulis VBA kode. Untuk itu,

• Tekan ALT + F11 untuk membuka Editor VBA .
• Sekarang pergi ke Sisipkan ➤ Modul untuk membuka modul baru.

Setelah membuka Editor VBA , masukkan yang berikut ini VBA kode dalam modul yang dibuka.

 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=""& keyvalue & "&distanceUnit=mi" Set 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 =Round(Round(WorksheetFunction.FilterXML(mitHTTP.ResponseText, "//TravelDistance"), 3), 0) End Function 

Perincian Kode

• Di sini, saya telah menciptakan fungsi yang ditentukan pengguna bernama Jarak_Mengemudi.
• Kemudian saya menggunakan 3 parameter: startlocation , tujuan dan nilai kunci. Ini adalah posisi dari dua alamat dan API nilai masing-masing.
• Kemudian saya menggunakan beberapa variabel seperti First_Value , Nilai_Kedua , Last_value , mitHTTP ...&; mitUrl. Variabel-variabel ini digunakan untuk menyimpan nilai yang berbeda.
• Kemudian menggabungkan nilai-nilai (disimpan di dalam mitUrl ) dan menggunakan beberapa metode objek ( Terbuka , SetRequestHeader , Kirim ). Beginilah cara saya berhasil menghitung jarak mengemudi melalui API .

Ini VBA kode menghasilkan fungsi yang ditentukan pengguna yang disebut Jarak_Mengemudi .

Fungsi Jarak_Mengemudi membutuhkan 3 argumen secara total.

Berikut ini sintaksis generik dari Jarak_Mengemudi fungsi.

Sekarang, saatnya menerapkan fungsi yang ditentukan pengguna. Untuk itu,

• Pilih sel E10 .
• Kemudian masukkan rumus berikut:

• Sekarang, tekan MASUK .

Rincian Formula

• E5 adalah Lokasi_Mulai_Lokasi_Koordinat .
• E6 adalah Koordinat_Lokasi_Akhir .
• C8 adalah API dari Bing MAP .

Fungsi ini menghitung jarak mengemudi antara dua alamat dalam mil. Lihat sel E10 Ia akan melihat nomornya, 2790 .

Jadi jarak mengemudi antara MacArthur Park, Camden NSW, Australia, dan Jersey City, New Jersey, Amerika Serikat adalah 2790 mil.

Baca selengkapnya: Cara Menghitung Jarak Antara Dua Alamat di Excel (3 Cara)

Bagian Latihan

Anda akan mendapatkan lembar Excel seperti tangkapan layar berikut ini, di akhir file Excel yang disediakan, di mana Anda dapat mempraktikkan semua metode yang dibahas dalam artikel ini.

Kesimpulan

Singkatnya, saya telah membahas 2 cara untuk menghitung jarak mengemudi antara dua alamat di Excel. Dan jangan ragu untuk mengajukan pertanyaan apa pun di bagian komentar di bawah ini. Kami akan mencoba menanggapi semua pertanyaan yang relevan secepatnya. Dan silakan kunjungi situs web kami Exceldemy untuk menjelajahi lebih jauh.