Kazalo
Obstaja več načinov uporabe za Excel . Kul posebna funkcija in formula v Microsoft Excel lahko določi razdaljo med dvema določenima mestoma ali lokacijama na planetu. Ključnega pomena je, da se lahko izračun razdalje med katerima koli dvema krajema na zemljevidu. Z njim lahko izračunate dejansko razdaljo in boste dobili spodobno oceno, koliko časa bo trajalo vaše potovanje. z Excelom pa lahko to preprosto naredimo. V tem članku bomo prikazali več načinov za izračun razdalje med dvema mestoma v Excelu.
Prenesi delovni zvezek za prakso
Prenesete lahko delovni zvezek in vadite z njimi.
Izračunajte razdaljo med dvema mestoma.xlsmUvod v podatkovno zbirko
Za izračun razdalje med dvema mestoma moramo najprej pripraviti nabor podatkov. Recimo, da imamo dve mesti Los Angeles ki je večje mesto v zvezni državi Kalifornija in Pasco ki je mesto Washington Zdaj moramo ugotoviti razdaljo med njima. Za to moramo poznati zemljepisna širina in . zemljepisna dolžina obeh mest. Z Excelom lahko preprosto poiščemo zemljepisno širino in dolžino katerega koli mesta. Poglejmo, kako lahko to storimo.
KORAKI:
- Najprej izberite celico, v katero smo vnesli imena mest. V našem primeru izberemo celice B5 in B6 .
- Drugič, pojdite v Podatki z zavihka v traku.
- Tretjič, v Vrste podatkov kategorijo kliknite na Geografija .
- Če želite poiskati zemljepisno širino, izberite celico, v katero ste vnesli zemljepisno širino, in vanjo vnesite formulo.
=B5.Latitude
- Pritisnite Vnesite da si ogledate rezultat.
- Podobno ugotovimo zemljepisno širino celice B6 .
- Če želite poiskati zemljepisno dolžino in zemljepisno širino, izberite celico in vanjo vnesite naslednjo formulo.
=B5.Longitude
- Pritisnite na Vnesite na tipkovnici.
- Podobno dobimo B6 dolžino z upoštevanjem prejšnjih korakov.
- To je vse, zdaj imamo zemljepisno širino in dolžino obeh mest. Naš nabor podatkov je pripravljen za uporabo.
5 različnih metod za izračun razdalje med dvema mestoma v programu Excel
Z ugotavljanjem razdalje med dvema krajema bomo lahko določili oddaljenost dveh stanovanj. Na podlagi teh podatkov lahko ocenimo, koliko časa bomo potrebovali za potovanje med stanovanji. Za ugotavljanje razdalje med dvema mestoma uporabimo zgornji nabor podatkov, ki smo ga pravkar pripravili.
1. Uporabite Haversinovo formulo za izračun razdalje med dvema mestoma
Ena od temeljnih enačb za raziskovanje oceanov je Haversine Formula , s katerim lahko izračunamo razdaljo med dvema lokacijama na sferični ravnini, če določimo njuno zemljepisno širino in dolžino ter polmer poloble. GPS naprave so jo v bistvu avtomatizirale. Sledimo korakom za uporabo formule za izračun razdalje med dvema mestoma.
KORAKI:
- Za začetek izberite celico, v kateri želite dobiti razdaljo, torej izberemo celico C8 .
- Nato postavite Haversine Formula v izbrano celico.
=3959*ASIN(SQRT((SIN(C6-C5)/2)^2+COS(C5)*COS(C6)*(SIN(D6-D5)/2)^2))
- Na koncu pritisnite Vnesite da si ogledate rezultat.
- Z uporabo formule dobimo rezultat 1367.581282 .
Več: Kako izračunati razdaljo med dvema naslovoma v Excelu
2. Izračun razdalje med dvema mestoma s funkcijami Excel ACOS, SIN, COS in RADIANS
Inverzni kosinus vrednosti je funkcija ACOS Sinus kota v radianih se vrne z Excelova funkcija SIN . Kosinus kota v radianih vrne funkcija funkcija COS . Radiani se spremenijo v stopinje z uporabo Excelova funkcija RADIANS . Te funkcije lahko združimo in dobimo razdaljo med dvema mestoma. Tudi ta je bila v osnovi avtomatizirana z uporabo GPS naprave. Uporabimo kombinacijo teh funkcij, da dobimo razdaljo med dvema mestoma po korakih.
KORAKI:
- Najprej izberite celico, v kateri želite pridobiti razdaljo; v tem primeru izberemo celico C8 .
- Nato vstavite kombinacijo formule funkcije v izbrano celico.
=ACOS(COS(RADIANI(90-C5)) *COS(RADIANI(90-C6)) +SIN(RADIANI(90-C5)) *SIN(RADIANI(90-C6)) *COS(RADIANI(D5-D6))) *6371
- Če si želite ogledati rezultat, pritisnite Vnesite na samem koncu.
- Tako z uporabo formule dobimo število 1357.033633 .
Preberite več: Kako izračunati razdaljo med dvema koordinatama GPS v programu Excel
3. Združite Excelovi funkciji CONCATENATE in SUBSTITUTE, da dobite razdaljo med dvema mestoma
Če želite združiti dve ali celo več zaporedij besed v eno besedno zvezo, uporabite besedilna funkcija CONCATENATE . trideset besedilne dele lahko združite z uporabo programa Excel CONCATENATE ki vrne rezultat kot besedilo. Funkcija SUBSTITUTE excel uporablja primerjanje za spreminjanje besedila v določenem nizu. Ti dve funkciji lahko združimo in ustvarimo Google Zemljevid povezavo za iskanje razdalja med dvema naslovoma Uporabimo formulo za določitev razdalje med dvema mestoma, tako da naredimo naslednje korake.
KORAKI:
- Podobno kot pri prejšnji metodi izberite celico, v kateri želite pridobiti Google Zemljevid ; v tem primeru izberemo celico C8 .
- Nato v izbrano celico vnesite formulo.
=CONCATENATE("//maps.google.co.uk/maps?f=d&source=s_d&saddr=",
SUBSTITUTE(B5," ", "+"),"&daddr=",SUBSTITUTE(B6," ", "+"))
- Če želite prikazati rezultate, pritisnite Vnesite ključ.
S pomočjo te formule se lahko povežete z Google Zemljevid ki prikazuje pot od Los Angeles na . Pasco . Mesta bodo dodana na povezavo z uporabo CONCATENATE in imena mest bodo dodana z uporabo funkcije SUBSTITUTE funkcijo.
- Nato v iskalno polje brskalnika vnesite to povezavo in ugotovite, kako daleč sta ti dve mesti med seboj.
Spletna stran CONCATENATE in . SUBSTITUTE funkcije lahko v Excelu uporabite tudi za določanje razdalje med dvema mestoma na planetu.
Preberite več: Kako izračunati kilometre med dvema naslovoma v Excelu (2 metodi)
4. Ustvarite funkcijo LAMBDA za izračun razdalje med dvema mestoma
Funkcija LAMBDA v Excelu se uporablja za oblikovanje prilagojenih funkcij, ki jih lahko uporabljamo v celotnem delovnem listu in do katerih dostopamo z znanimi imeni. Ko jih enkrat definiramo in jim damo ime, lahko te funkcije uporabljamo kjer koli v delovnem zvezku.
Glavna enačba za razdaljo je:
D = acos (sinΦ
1
. sinΦ
2
+ cosΦ
1
. cosΦ
2
cos
Δλ)
. R
Čeprav se zdi, da je to nekoliko preobsežno, so za nas najpomembnejši vhodni podatki:
- Zemljepisna širina in dolžina začetne točke.
- zemljepisna širina in dolžina končne lokacije.
Torej v formuli ali enačbi.
- Δλ označuje razliko med zemljepisnimi dolžinami ( lon_2-lon_1 ).
- Φ 1 in . Φ 2 zaporedno označi lat_1 in . lat_2 .
- R označuje polmer površine.
Ustvarimo LAMBDA funkcijo za izračun razdalje med dvema mestoma po naslednjih korakih.
KORAKI:
- Najprej izberite celico C8 .
- Nato v to celico vnesite formulo.
=LAMBDA(_lat1, _lon1, _lat2, _lon2, LET(lat_1, RADIANS(_lat1),lon_1, RADIANS(_lon1),lat_2,RADIANS(_lat2),lon_2, RADIANS(_lon2),r, 6378,ACOS((SIN(lat_1) * SIN(lat_2)) + (COS(lat_1) * COS(lat_2) * COS(lon_2-lon_1)) * r))(C5,D5,C6,D6)
- Nato pritisnite Vnesite .
- To bo prikazalo rezultat, vendar je formula prevelika in jo je pri večkratni uporabi morda težko razumeti.
- Namesto tega lahko ustvarimo prilagojeno formulo z uporabo LAMBDA funkcijo.
- Za to pojdite v Formule z zavihka v traku.
- Na podlagi Opredeljena imena kliknite na Ime Manager .
- Prikaže se Ime Manager pogovorno okno.
- Zdaj kliknite na Novo meni.
- To vas bo pripeljalo do Novo ime okno.
- Nadalje poimenujte formulo, saj želimo izračunati razdaljo med dvema mestoma, zato vpišemo ime formule CityDistance .
- Nato vnesite naslednjo formulo v polje Nanaša se na .
=LAMBDA(_lat1, _lon1, _lat2, _lon2, LET(lat_1, RADIANS(_lat1),lon_1, RADIANS(_lon1),lat_2,RADIANS(_lat2),lon_2, RADIANS(_lon2),r, 6378,ACOS((SIN(lat_1) * SIN(lat_2)) + (COS(lat_1) * COS(lat_2) * COS(lon_2-lon_1))) * r))
- Nato kliknite V REDU .
- To vas bo pripeljalo do ime Manager ponovno pogovorno okno.
- Poleg tega kliknite na Zapri za dokončanje postopka.
- Zdaj lahko najdete novo funkcijo po meri CityDistance . In z uporabo funkcije boste dobili razdaljo med dvema mestoma.
- Tako z uporabo formule dobimo število 1358.524645 .
Preberite več: Kako izračunati razdaljo Levenshteina v Excelu (4 preproste metode)
5. Izračunajte razdaljo med dvema mestoma z uporabo programa Excel VBA
Ustvarjanje API ( Vmesnik za programiranje aplikacij ) in jo uporabite za izgradnjo povezave Funkcija, opredeljena s strani uporabnika v VBA sta dva druga načina za določitev razdalje med dvema lokacijama. Če želite zbrati podatke za lokacijo, se Excel poveže prek API na kateri koli zemljevid, vključno z Google Zemljevid in . Zemljevid Bing Zato moramo za uporabo te tehnike najprej določiti API To je zelo preprosto, vendar je žal le Zemljevid Bing ponuja brezplačen API ne Google. To bomo dokazali z uporabo brezplačnega API za zemljevid Bing ključ. Kliknite tukaj za ustvarjanje lastnega Ključ API Bing Map .
KORAKI:
- Za začetek smo ustvarili API in ga postavite v celico C8 .
- Zdaj pojdite v Razvijalec z zavihka v traku.
- Nato iz Koda kliknite na kategorijo Visual Basic da odprete Urejevalnik Visual Basic . Ali pa pritisnite Alt + F11 da odprete Urejevalnik Visual Basic .
- Namesto tega lahko z desnim klikom miške kliknite . na delovnem listu in pojdite na Prikaži kodo To vas bo pripeljalo tudi do Urejevalnik Visual Basic .
- To bo prikazano v Urejevalnik Visual Basic .
- Nadalje kliknite na Modul iz Vstavite v spustnem meniju.
- To bo ustvarilo Modul v delovnem zvezku.
- Kopirajte in prilepite Koda VBA prikazano spodaj.
Koda VBA:
Option Explicit Public Function CityDistance(First_City As String, Second_City 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=km" Set Setup_HTTP = CreateObject("MSXML2.ServerXMLHTTP") Output_Url = Initial_Point & First_City & Ending_Point & Second_City & 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("") CityDistance = Round(Round(WorksheetFunction.FilterXML(Setup_HTTP.ResponseText, _"//TravelDistance"), 3), 0) End Function
- kodo shranite tako, da shranite celotno delovno knjižico kot delovno knjižico z mikroobliko in razširitev bo .xlsm .
- To bo ustvarilo uporabniško definirano ime funkcije CityDistance .
Razlaga kode VBA
- Začeli smo z dajanjem naših Funkcija ime CityDistance . Prvo mesto Kot niz, Drugo mesto kot niz in Ciljna vrednost Kot argumenti so bili vključeni tudi nizi.
- Nato smo razglasili Nastavitev HTTP kot predmet in Začetna točka , Končna točka , Enota razdalje in Izhodni naslov Url kot strune.
- Kasneje smo spremenili Enota razdalje na . kilometer in . Začetna točka na začetno točko Url povezava.
- Nato nastavimo parametre, ki so potrebni za vzpostavitev povezave med našim Koda VBA in API .
- Nato smo ustvarili svoj Funkcija, opredeljena s strani uporabnika .
Zaključek
Zgornje metode vam bodo pomagale pri Izračunajte razdaljo med dvema mestoma v programu Excel . Upam, da vam bo to pomagalo! Če imate kakršna koli vprašanja, predloge ali povratne informacije, nam to sporočite v razdelku za komentarje. Lahko pa si ogledate tudi naše druge članke v ExcelWIKI.com blog!