Excelil on palju erinevaid rakendusi. Ja kui kasutada VBA siis tundub, et me saame Excelis teha mida iganes. Nii et loomulikult saame me leida kohtade vaheline kaugus kasutades kaarti Excelis. Selles artiklis näitan kiire juhendi, kuidas arvutada vahemaad Excelis Google Mapsiga koos teravate sammude ja selgete illustratsioonidega.

Lae alla praktiline töövihik

Võite tasuta Exceli töövihiku siit alla laadida ja ise harjutada.

Kasutaja määratud funktsiooni kasutamine kauguse arvutamiseks Excelis koos Google Mapsiga

Siin me leida kaugus MacArthur Parki ja Jersey City vahel, kasutades Google Mapsi.

Kõigepealt peame teadma üht olulist asja. Selleks, et arvutada vahemaa Excelis Google Maps'i abil, vajame me ühte API võti. API tähistab Rakenduse programmeerimisliides . Excel ühendub Google Mapsiga, kasutades API võtit vajalike andmete kogumiseks. Mõned kaardid pakuvad tasuta API võtmeid nagu Bing Maps. Aga Google Maps ei paku tasuta API-d. Kuigi te haldate tasuta API-d kuidagi, mis ei tööta ideaalselt. Seega peate ostma API võti sellelt lingilt.

Siin on mul õnnestunud tasuta API klahvi. See ei tööta korralikult, kasutatakse lihtsalt näitena. Kasutame VBA luua kasutaja määratud funktsioon nimega Calculate_Distance aadressile leida kaugus Sellel on kolm argumenti - Alguspaik , Sihtkoht ja API võti Alustame nüüd menetlustega.

Sammud:

• Press ALT + F11 avada VBA aken .

• Seejärel klõpsake järgmiselt: Insert> moodul uue mooduli loomiseks.

• Hiljem sisestage aknasse järgmised koodid-

 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, """distance"" : {") = 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 

• Siis ei midagi, minge lihtsalt tagasi oma lehe juurde.

Koodide lahtimõtestamine:

• Esiteks, ma kasutasin avaliku funktsiooni protseduuri Calculate_Distance .
• Seejärel deklareeritakse mõned muutujad first_Value, second_Value ja last_Value meie kasutaja määratud funktsiooni argumentide jaoks.
• Määrake muutujate väärtused (iga väärtus on isekirjeldav) ja seadke mitHTTP objekt ServerXMLHTTP kasutada GET meetodi (mida kasutatakse hiljem, see objekti omadus võimaldab kasutada POST meetodit).
• Url on kõigi varem määratud väärtuste kombinatsioon, avatud omaduse mitHTTP objekt kasutas seda.
• Pärast väärtuste määramist teeb raamatukogu funktsioon ülejäänud arvutused.

Nüüd näete, et meie funktsioon on valmis kasutamiseks.

• Veebilehel Ruut C8 , sisestage järgmine valem-

• Lõpuks vajutage lihtsalt SISESTA nuppu, et saada vahemaa. See näitab vahemaa kohta Mõõtja ühik .

Loe edasi: Kuidas arvutada sõidu kaugust kahe aadressi vahel Excelis

Plussid ja miinused kauguse arvutamisel Google Mapsiga

• Teil peab olema kehtiv API võti .
• Ülaltoodud kood annab väljundi Mõõtja ühik .
• Kasutajapoolne funktsioon kasutab kohanimesid otse, koordinaate ei ole vaja kasutada.
• Veenduge, et olete kasutanud kehtivat kohta.

Google Mapsiga kauguse arvutamise eelised ja puudused

Eelised

• Suure paari koha puhul on see üsna teostatav, sest me saame kasutada Täitmise käepide tööriistaga valemit kopeerida. See ei ole võimalik, kui kasutada Google Maps
• See on üsna kiirem viis.
• Koordinaate ei ole vaja kasutada.

Puudused

• See ei saa töötada koordinaatidega.
• Te ei saa kaarti ega marsruuti, vaid saate ainult vahemaa.
• See ei tööta kohanimedega ligikaudse kokkulangevuse korral.

Kokkuvõte

Ma loodan, et eespool kirjeldatud protseduurid on piisavalt head, et arvutada vahemaa Excelis koos Google Mapsiga. Võite vabalt küsida mis tahes küsimust kommentaaride sektsioonis ja palun andke mulle tagasisidet. Külastage. ExcelWIKI rohkem uurida.