Az Excel alkalmazások széles skáláját kínálja. És miközben az Excel használata VBA akkor úgy tűnik, hogy bármit megtehetünk az Excelben, amit csak akarunk. Így természetesen a megtalálni a távolságot a helyek között térkép segítségével Excelben. Ebben a cikkben egy gyors útmutatót mutatok a távolság kiszámításához Excelben a Google Maps segítségével, éles lépésekkel és világos illusztrációkkal.

Gyakorlati munkafüzet letöltése

Az ingyenes Excel munkafüzetet letöltheti innen, és saját maga is gyakorolhatja.

Felhasználó által definiált függvény használata a távolság kiszámításához Excelben a Google Maps segítségével

Itt, mi lesz a távolság megállapítása MacArthur Park és Jersey City között a Google Maps segítségével.

Először is tudnunk kell egy fontos dolgot. Ahhoz, hogy a távolságot Excelben kiszámíthassuk a Google Maps segítségével, szükségünk lesz egy API kulcs. API jelentése Alkalmazás programozási interfész . Excel csatlakozik a Google Mapshez az API kulcs segítségével a szükséges adatok gyűjtéséhez. Néhány térkép ingyenes API kulcsot biztosít, mint például a Bing Maps. De a Google Maps nem biztosít ingyenes API-t. Bár valahogyan kezeli az ingyenes API-t, az nem fog tökéletesen működni. Tehát, meg kell vásárolnia a API kulcsot erről a linkről.

Itt sikerült egy ingyenes API Nem működik megfelelően, csak példaként használjuk. Használjuk a VBA létrehozni egy felhasználó által definiált funkció a nevet viseli. Calculate_Distance a címre. a távolság megállapítása Három érvvel rendelkezik. Kiindulási hely , Úti cél , és API kulcs Most pedig kezdjük el az eljárást.

Lépések:

• Sajtó ALT + F11 a VBA ablak .

• Ezután kattintson a következők szerint: Beszúrás> modul egy új modul létrehozásához.

• Később írja be a következő kódokat az ablakba-

 Public Function Calculate_Distance(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, """távolság"" : {") = 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)) Calculate_Distance = CDbl(tmp_Value) Exit Function ErrorHandl: Calculate_Distance = -1 End Function 

• Akkor semmi, csak menj vissza a lapodhoz.

Kódbontás:

• Először is, használtam egy Public Function eljárást Calculate_Distance .
• Ezután deklarált néhány változót első_érték, második_érték és utolsó_érték a felhasználó által definiált függvényünk argumentumaihoz.
• Állítsa be a változók értékeit (minden érték önleíró), és állítsa be a mitHTTP objektum a ServerXMLHTTP a GET metódus (később használva, ez az objektum tulajdonság lehetővé teszi a POST módszerrel is).
• Url a korábban beállított értékek kombinációja, a nyitott tulajdonság a mitHTTP objektum használta.
• Az értékek hozzárendelése után a könyvtárfüggvény elvégzi a számítás további részét.

Most már látja, hogy a függvényünk készen áll a használatra.

• A oldalon. C8-as sejt írja be a következő képletet-

• Végül csak nyomja meg a BELÉPÉS gombot a távolság lekérdezéséhez. A távolságot a Mérőegység .

Bővebben: Hogyan számítsuk ki a két cím közötti távolságot az Excelben

Előnyök és hátrányok a távolság kiszámítása során a Google Maps segítségével

• Érvényes igazolvánnyal kell rendelkeznie API kulcs .
• A fenti kód a kimenetet a Mérőegység .
• A felhasználó által definiált függvény közvetlenül a helyneveket használja, nincs szükség a koordináták használatára.
• Győződjön meg róla, hogy érvényes helyet használt.

A távolság kiszámításának előnyei és hátrányai a Google Maps segítségével

Előnyök

• Egy nagy pár helyen ez teljesen megvalósítható, mert használhatjuk a Töltse ki a fogantyút eszközzel másolja a képletet. Ez nem lehetséges a Google Maps
• Ez egy elég gyorsabb módszer.
• Nem szükséges koordinátákat használni.

Hátrányok

• Koordinátákkal nem működik.
• Nem kapja meg a térképet vagy az útvonalat, csak a távolságot.
• A helységnevek közelítő egyezésével nem fog működni.

Következtetés

Remélem, hogy a fent leírt eljárások elég jók lesznek ahhoz, hogy kiszámítsuk a távolságot Excelben a Google Maps-szel. Nyugodtan tegyen fel bármilyen kérdést a megjegyzés rovatban, és kérem, adjon nekem visszajelzést. Látogasson el. ExcelWIKI hogy többet tudjon meg.