Sådan beregnes afstand i Excel med Google Maps

Hugh West

16-10-2023 Avanceret Excel
  • Del Dette
Hugh West

Excel har en lang række anvendelsesmuligheder. Og mens du bruger VBA så ser det ud til, at vi kan gøre hvad vi vil i Excel. Så selvfølgelig kan vi finde afstanden mellem steder I denne artikel viser jeg en hurtig vejledning til at beregne afstanden i Excel med Google Maps med skarpe trin og klare illustrationer.

Download arbejdsbog til øvelser

Du kan downloade den gratis Excel-arbejdsbog her og øve dig på egen hånd.

Beregn afstanden med Google-Maps.xlsm

Brug af en brugerdefineret funktion til at beregne afstand i Excel med Google Maps

Her vil vi finde afstanden mellem MacArthur Park og Jersey City ved hjælp af Google Maps.

Først skal vi vide en vigtig ting: For at beregne afstanden i Excel ved hjælp af Google Maps skal vi bruge en API nøgle. API står for Programmeringsgrænseflade for applikationer Excel opretter forbindelse til Google Maps ved hjælp af API-nøglen til indsamling af de nødvendige data. Nogle kort giver gratis API-nøgler som Bing Maps. Men Google Maps giver ikke gratis API. Selv om du administrerer et gratis API på en eller anden måde, vil det ikke fungere perfekt. Så du skal købe API-nøglen til Google Maps. API nøgle fra dette link.

Her har jeg formået at få en gratis API Det virker ikke rigtigt, men bruges blot som eksempel. Vi bruger VBA til at oprette en brugerdefineret funktion ved navn Beregne_Distance til finde afstanden Den vil have tre argumenter- Udgangssted , Destination , og API-nøgle Lad os nu starte procedurerne.

Trin:

  • Tryk på ALT + F11 for at åbne den VBA-vindue .

  • Klik derefter som følger: Indsæt> Modul for at oprette et nyt modul.

  • Senere skal du skrive følgende koder i vinduet- 
 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
  • Så er der intet, du skal bare gå tilbage til dit ark.

Opdeling af kode:

  • Først brugte jeg en Public Function-procedure Beregne_Distance .
  • Derefter erklærede du nogle variabler første_Værdi, anden_Værdi og sidste_Værdi for argumenterne i vores brugerdefinerede funktion.
  • Indstil værdierne for variablerne (hver værdi er selvbeskrivende), og indstil mitHTTP objekt i ServerXMLHTTP til at udnytte den GET metode (som bruges senere, vil denne objekt-egenskab gøre det muligt at bruge POST metode også).
  • Url er kombinationen af alle de tidligere indstillede værdier, den åbne egenskab for mitHTTP objekt brugte det.
  • Efter tildeling af værdierne udfører biblioteksfunktionen resten af beregningen.

Nu kan du se, at vores funktion er klar til brug.

  • På Celle C8 , skriv følgende formel-
=Calculate_Distance(C4,C5,C6)

  • Til sidst skal du blot trykke på INDTAST knappen for at få afstanden. Den viser afstanden i Måleenhed .

Læs mere: Sådan beregnes kørselsafstand mellem to adresser i Excel

Fordele og ulemper ved beregning af afstand med Google Maps

  • Du skal have et gyldigt API-nøgle .
  • Ovenstående kode vil give resultatet i Måleenhed .
  • Den brugerdefinerede funktion bruger stednavne direkte, og det er ikke nødvendigt at bruge koordinater.
  • Sørg for, at du har brugt et gyldigt sted.

Fordele og ulemper ved beregning af afstand med Google Maps

Fordele

  • For et stort par steder er det ganske muligt, fordi vi kan bruge Håndtag til påfyldning værktøj til at kopiere formlen. Det er ikke muligt i Google Maps
  • Det er en ret hurtig måde at gøre det på.
  • Det er ikke nødvendigt at bruge koordinater.

Ulemper

  • Det kan ikke fungere med koordinater.
  • Du får ikke kortet eller ruten, men kun afstanden.
  • Det vil ikke fungere med den omtrentlige overensstemmelse mellem stednavne.

Konklusion

Jeg håber, at de ovenfor beskrevne procedurer vil være gode nok til at beregne afstanden i Excel med Google Maps. Du er velkommen til at stille spørgsmål i kommentarfeltet og give mig feedback. Besøg ExcelWIKI for at udforske mere.

Forrige indlæg Hvordan man beregner volumen i Excel (7 forskellige måder)
Næste indlæg Sådan bruges stregkodescanner til inventar i Excel (med nemme trin)

Hugh West er en meget erfaren Excel-træner og analytiker med over 10 års erfaring i branchen. Han har en bachelorgrad i regnskab og finans og en kandidatgrad i Business Administration. Hugh har en passion for undervisning og har udviklet en unik undervisningstilgang, der er nem at følge og forstå. Hans ekspertviden om Excel har hjulpet tusindvis af studerende og fagfolk verden over med at forbedre deres færdigheder og udmærke sig i deres karriere. Gennem sin blog deler Hugh sin viden med verden og tilbyder gratis Excel-tutorials og onlinetræning for at hjælpe enkeltpersoner og virksomheder med at nå deres fulde potentiale.