V članku boste izvedeli, kako izračunati razdalja med dvema naslovoma v Excelu. Microsoft Excel ima to odlično posebno funkcijo in formulo za ugotavljanje razdalje med dvema krajema na svetu. Koordinate GPS dveh krajev, lahko zlahka določite razdaljo med krajema. v poljubni enoti.

Prenesi delovni zvezek za prakso

Izračun razdalje med dvema naslovoma.xlsm

3 načini za izračun razdalje med dvema naslovoma v Excelu

V našem naboru podatkov imamo Zemljepisna širina in . Zemljepisna dolžina za Ohio in . Aljaska Izmerili bomo razdaljo med njima.

Spletna stran Zemljepisne širine za Ohio in . Aljaska so . 40.4173 Severno in . 64.2008 Severno Prav tako je Zemljepisne dolžine za Ohio in . Aljaska so . 82.9071 Zahodno in . 149.4937 Zahodno oziroma.

1. Uporaba Haversinove formule za izračun razdalje med dvema naslovoma

Če ste dobri v matematiki, uporabite Haversine Formula Čeprav vam bo dal le približni rezultat, je ta zelo dober.

Najprej moramo poznati osnovna formula za dolžino loka . S to formulo jo primerjamo z razdaljo med dvema krajema na Zemlji. Formula je podana spodaj.

S = rθ

S = razdalja med dvema naslovoma

r = polmer Zemlje

θ = kot, ki ga v središče Zemlje uvajata oba naslova

Če pa imate Koordinate GPS dveh krajev, morate določiti iz Haversine Formula . Poglej na Haversine Formula prikazano spodaj.

Če to primerjate z formula za dolžino loka , boste dobili, kot je prikazano na naslednji sliki.

Predstavimo vam parametre Haversine Formula .

φ ₁ = zemljepisna širina prvega kraja

φ ₂ = zemljepisna širina drugega kraja

ℽ ₁ = Dolžina prvega kraja

ℽ ₂ = zemljepisna širina drugega kraja

Sedaj vam bom pokazal, kako to formulo uporabiti v Excelu korak za korakom.

Koraki:

• Najprej izdelajte celico za shranjevanje vrednosti razdalje in v celico vnesite naslednjo formulo C8 .

=2*6400*ASIN(SQRT((SIN(C6-C5)/2)^2+COS(C5)*COS(C6)*(SIN(D6-D5)/2)^2))

V formuli se uporablja ASIN , SQRT , SIN in . COS funkcije To je zelo preprosto, če si ogledate samo Haversine Formula . Razdaljo merimo v kilometrov , zato določimo polmer Zemlje v kilometrih, ki je 6400 km . ASIN se nanaša na inverzni sinus ali ArcSine Če primerjamo kote parametrov Haversine Formula z našo Excelovo formulo dobimo,

₁ = zemljepisna širina Ohia (C5)

₂ = zemljepisna širina Aljaske (C6)

ℽ ₁ = Dolžina države Ohio (D5)

ℽ ₂ = zemljepisna širina Aljaske (D6)

• Nato pritisnite VSTOP gumb za prikaz razdalje med Ohio in . Aljaska na spletnem mestu Kilometri .

• Če želite nato izmeri razdaljo v miljah , v celici uporabite naslednjo formulo C8 .

=2*3959*ASIN(SQRT((SIN(C6-C5)/2)^2+COS(C5)*COS(C6)*(SIN(D6-D5)/2)^2))

Pri tem smo uporabili isto formulo programa Excel, ki smo jo uporabili za določitev razdalje v miles Zato vzamemo polmer Zemlje v miles ki je 3959 .

Tako lahko izračunate razdalja med dvema naslovoma zemlje v Excelu z uporabo Haversine Formula .

Preberite več: Kako izračunati razdaljo med dvema koordinatama v Excelu (2 metodi)

2. Uporaba funkcij Excel CONCATENATE in SUBSTITUTE za izračun razdalje med dvema naslovoma

Ustvarite lahko Google Zemljevid povezavo za iskanje razdalja med dvema naslovoma z uporabo programa Excel CONCATENATE in . SUBSTITUTE Funkcije . V nadaljevanju si oglejte postopek.

Koraki:

• Najprej vnesite naslednjo formulo v C8 .

=CONCATENATE("//maps.google.co.uk/maps?f=d&source=s_d&saddr=", SUBSTITUTE(B5," ", "+"),"&daddr=",SUBSTITUTE(B6," ", "+"))

Ta formula bo ustvarila Google Zemljevid povezava, kako lahko potujete iz Ohio na . Aljaska . CONCATENATE funkcija bo dodala naslovi v povezavi in SUBSTITUTE funkcija bo vnesla ime naslovi .

• Nato pritisnite VSTOP in videli boste Google Zemljevid povezava v C8 .

• Nato uporabite to povezava v vrstico za iskanje na internetu in dobili boste razdalja informacije o teh dva naslova .

Na koncu lahko izračunate razdalja med dvema naslovoma Zemlje v Excelu z uporabo CONCATENATE in . SUBSTITUTE funkcije.

Preberite več: Kako izračunati razdaljo med dvema mestoma v programu Excel

3. Uporaba VBA za izračun razdalje med dvema naslovoma v programu Excel

Drug način izračuna razdalja med dvema naslovoma je lahko z vnosom API ( Vmesnik za programiranje aplikacij ) in z njo ustvarite povezavo Funkcija, opredeljena s strani uporabnika po VBA . Lahko naredite API povezava v Bing brezplačno. Če želite ustvariti Zemljevid Bing lasten ključ API, kliknite tukaj .

Koraki:

• Najprej pojdite v Razvijalec >> Visual Basic .

• Nato izberite Vstavite >> Modul da odprete Modul VBA .

• Kasneje vnesite naslednjo kodo v Modul VBA Ustvarjamo Funkcija, opredeljena s strani uporabnika izračunati razdalja na spletnem mestu miles .

 Option Explicit Public Function DistanceInMiles(First_Location As String, _ Final_Location As String, Target_Value As String) Dim Initial_Point As String, Ending_Point As String, _ Distance_Unit As String, Setup_HTTP As Object, Output_Url As String Initial_Point = "//dev.virtualearth.net/REST/v1/Routes/DistanceMatrix?origins=" Ending_Point = "&destinations=" Distance_Unit ="&travelMode=driving&o=xml&key=" & Target_Value & "&distanceUnit=mi" Set Setup_HTTP = CreateObject("MSXML2.ServerXMLHTTP") Output_Url = Initial_Point & First_Location & Ending_Point & Final_Location & Distance_Unit Setup_HTTP.Open "GET", Output_Url, False Setup_HTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"Setup_HTTP.Send ("") DistanceInMiles = Round(Round(WorksheetFunction.FilterXML(Setup_HTTP.ResponseText, _ "//TravelDistance"), 3), 0) End Function 

Razlaga kode

• Najprej smo poimenovali svoj Funkcija kot RazdaljaV miljah . Vstavili smo tudi 3 parametri: First_Location kot niz, Final_Location kot niz in . Target_Value kot String .
• Nato smo razglasili Initial_Point , Končna_točka , Distance_Unit in . Outout_Url kot Niz ; Nastavitev_HTTP kot Objekt .
• Pozneje smo določili Initial_Point kot začetek Povezava Url , Končna_točka kot Destinacija in . Distance_Unit na . Miles .
• Nato nastavimo potrebne parametre za ustvarjanje razmerja med našim VBA kodo in API
• Nazadnje smo vzpostavili našo Funkcija, opredeljena s strani uporabnika .

• Nato smo po enakih postopkih izdelali še eno Funkcija, opredeljena s strani uporabnika za iskanje razdalje v kilometrov .

Vidite lahko, da smo spremenili Distance_Unit na . kilometrov .

• Na naslednji sliki lahko vidite API ključ v celici C8 .

• Nato v celico vnesite naslednjo formulo C8 .

=DistanceInMiles(E5,E6,C8)

• Nato pritisnite VSTOP in videli boste razdalja med Ohio in . Aljaska na spletnem mestu miles .

• Nato uporabite naslednjo formulo, da preverite razdalja na spletnem mestu kilometer .

=OddaljenostInKM(E5,E6,C8)

Tako lahko izračunate razdalja med dvema naslovoma z uporabo VBA in . API ključ.

Preberite več: Kako izračunati razdaljo med dvema naslovoma v Excelu

Stvari, ki si jih je treba zapomniti

• Ne pozabite, da morate postaviti približno pravilne Koordinate GPS teh države v podatkih, ker za iskanje razdalje uporabljate internet. države so . zahod na Meridian Line , oba njuna Zemljepisne dolžine bo negativna.

Oddelek za prakso

V tem razdelku vam bom dal nabor podatkov iz tega članka, da boste lahko te metode preizkusili sami.

Zaključek

Dovolj je povedati, da se boste naučili zelo učinkovitih metod, kako izračunati razdalja med dvema naslovoma v Excelu po branju tega članka. Če imate boljše metode ali vprašanja ali povratne informacije v zvezi s tem člankom, jih delite v polju za komentarje. To mi bo pomagalo obogatiti moje prihodnje članke. Za več vprašanj, prijazno obiščite našo spletno stran ExcelWIKI.com .