Excel memiliki berbagai macam aplikasi. Dan saat menggunakan VBA maka tampaknya kita bisa melakukan apapun yang kita inginkan di Excel. Jadi tentu saja, kita bisa menemukan jarak antar tempat Pada artikel ini, saya akan menunjukkan panduan cepat menghitung jarak di excel dengan Google Maps dengan langkah-langkah yang tajam dan ilustrasi yang jelas.

Unduh Buku Kerja Praktik

Anda bisa mengunduh buku kerja Excel gratis dari sini dan berlatih sendiri.

Menggunakan Fungsi yang Ditentukan Pengguna untuk Menghitung Jarak di Excel dengan Google Maps

Di sini, kita akan menemukan jarak antara MacArthur Park dan Jersey City menggunakan Google Maps.

Pertama, kita perlu mengetahui hal yang penting. Untuk menghitung jarak di Excel menggunakan Google Maps, kita akan membutuhkan API kunci. API singkatan dari Antarmuka Pemrograman Aplikasi Excel terhubung dengan Google Maps menggunakan kunci API untuk mengumpulkan data yang diperlukan. Beberapa peta menyediakan kunci API gratis seperti Bing Maps. Tetapi Google Maps tidak menyediakan API gratis. Meskipun Anda mengelola API gratis entah bagaimana itu tidak akan berfungsi dengan sempurna. Jadi, Anda harus membeli kunci API gratis. API kunci dari tautan ini.

Di sini, saya telah mengelola API Ini tidak berfungsi dengan baik, hanya digunakan untuk menunjukkan sebagai contoh. Kita akan menggunakan VBA untuk membuat fungsi yang ditentukan pengguna bernama Hitung_Jarak untuk menemukan jarak Ini akan memiliki tiga argumen- Tempat Awal , Tujuan dan Kunci API Sekarang mari kita mulai prosedurnya.

Langkah-langkah:

• Tekan ALT + F11 untuk membuka Jendela VBA .

• Berikutnya, klik seperti berikut ini: Sisipkan> Modul untuk membuat modul baru.

• Kemudian, ketikkan kode-kode berikut ini di jendela-

 Public Function Hitung_Jarak(start As String, dest As String, Alink As String) As Double Dim first_Value As String, second_Value As String, last_Value As String Dim mitHTTP As Object first_Value = "//maps.googleapis.com/maps/api/distancematrix/json?origins=" second_Value = "&destinations=" last_Value = "&mode=car&language=pl&sensor=false&key=" & Alink 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, """jarak"" : {"") = 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)) Hitung_Jarak = CDbl(tmp_Value) Exit Function ErrorHandl: Hitung_Jarak = -1 End Function 

• Kemudian tidak ada, kembali saja ke lembar Anda.

Perincian Kode:

• Pertama, saya menggunakan prosedur Fungsi Publik Hitung_Jarak .
• Kemudian mendeklarasikan beberapa variabel first_Value, second_Value, dan last_Value untuk argumen fungsi yang ditentukan pengguna kita.
• Tetapkan nilai untuk variabel-variabel (setiap nilai bersifat deskriptif sendiri), dan atur mitHTTP objek di ServerXMLHTTP untuk memanfaatkan DAPATKAN (digunakan nanti, properti objek ini akan memungkinkan penggunaan metode POST juga).
• Url adalah kombinasi dari semua nilai yang ditetapkan sebelumnya, properti terbuka dari mitHTTP objek yang digunakannya.
• Setelah menetapkan nilai fungsi perpustakaan melakukan sisa perhitungan.

Sekarang Anda lihat, fungsi kita sudah siap digunakan.

• Dalam Sel C8 , ketik rumus berikut-

• Terakhir, cukup tekan tombol MASUK untuk mendapatkan jarak. Ini akan menunjukkan jarak dalam Unit meteran .

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

Pro dan Kontra Saat Menghitung Jarak dengan Google Maps

• Anda harus memiliki Kunci API .
• Kode di atas akan memberikan output dalam Unit meteran .
• Fungsi yang ditentukan pengguna menggunakan nama tempat secara langsung, tidak perlu menggunakan koordinat.
• Pastikan, Anda telah menggunakan tempat yang valid.

Keuntungan dan Kerugian Menghitung Jarak dengan Google Maps

Keuntungan

• Untuk beberapa tempat yang besar, ini cukup layak karena kita bisa menggunakan Isi Gagang untuk menyalin rumus. Itu tidak mungkin dilakukan di Google Maps
• Ini adalah cara yang cukup cepat.
• Tidak perlu menggunakan koordinat.

Kekurangan

• Ini tidak bisa bekerja dengan koordinat.
• Anda tidak akan mendapatkan peta atau rute, hanya saja Anda akan mendapatkan jaraknya.
• Ini tidak akan berfungsi dengan perkiraan kecocokan nama tempat.

Kesimpulan

Saya harap prosedur yang dijelaskan di atas akan cukup baik untuk menghitung jarak di Excel dengan Google Maps. Jangan ragu untuk mengajukan pertanyaan apa pun di bagian komentar dan tolong beri saya umpan balik. ExcelWIKI untuk menjelajahi lebih jauh.