Kako izračunati razdaljo med dvema naslovoma v Excelu

  • Deliti To
Hugh West

Microsoft Excel je zelo vsestranski program za preglednice. Z njim lahko opravite tako širok nabor nalog, da si jih niti ne morete predstavljati. V Excelu lahko izračunate celo razdaljo med dvema naslovoma. Če imate seznam naslovov, med katerima želite najti razliko, lahko seveda uporabite MS Excel. Razdaljo lahko izračunate tudi ročno. Vendar bo to preveč zamudno. Ker imatestotisoče razdalj, ki jih je treba izračunati. V tem članku vam bom zato pokazal, kako v Excelu izračunati razdaljo med dvema naslovoma.

Prenesi delovni zvezek za prakso

Datoteko Excel lahko prenesete z naslednje povezave in vadite z njo.

Izračun razdalje med dvema naslovoma.xlsm

2 učinkovita načina za izračun razdalje med dvema naslovoma v Excelu

1. Uporaba trigonometričnih funkcij za izračun razdalje vožnje

Tukaj vam bom pokazal, kako združiti različne trigonometrične funkcije za izračun razdalje med dvema naslovoma v Excelu.

Za primer sem vzel dva naslova. Prvi naslov je MacArthur Park, Camden NSW, Avstralija Njegova zemljepisna širina in dolžina sta 34.06312149 in . -118.2783975 Drugi naslov je Jersey City, New Jersey, ZDA Njegova zemljepisna širina in dolžina sta 40.71799929 in . -74.04276812 oziroma.

Zdaj bom združil ACOS , COS , SIN , & RADIJCI funkcije za ustvarjanje formule. Formula bo učinkovito izračunala razdaljo vožnje med dvema naslovoma v miljah.

Za to,

❶ Izberite celico D8 prvi.

❷ Nato v celico vstavite naslednjo formulo.

=ACOS(COS(RADIANI(90-C6)) *COS(RADIANI(90-C5)) +SIN(RADIANI(90-C6)) *SIN(RADIANI(90-C5)) * COS(RADIANI(D6-D5))) *3959

❸ Nato pritisnite VSTOP gumb.

Zdaj boste videli, da je formula izračunala razdaljo vožnje med MacArthur Park, Camden, NSW, Avstralija, in . Jersey City, New Jersey, ZDA v miljah. Tako boste videli rezultat v celici D8 ki je 2445.270922 milje.

Razčlenitev formule

  • COS(RADIANI(90-C6)) *COS(RADIANI(90-C5)) - ... RADIJCI funkcije pretvorijo vrednosti v radiane, funkcije COS funkcija poda kosinus vrednosti, nato se kosinusa za zemljepisno širino pomnožita. Izhod - 0.365377540842758
  • COS(RADIANI(D6-D5)) - zagotavlja kosinusno vrednost za razliko v zemljepisni dolžini med dvema naslovoma. Izhod - 0.716476936499882
  • SIN(RADIANI(90-C6)) *SIN(RADIANI(90-C5)) - izračuna odklon zemljepisnih dolžin od 90 radianov in pomnoži sinusne vrednosti. Izhod - 0.627884682513118
  • SIN(RADIANI(90-C6)) *SIN(RADIANI(90-C5)) *COS(RADIANI(D6-D5)) - postane 0,627884682513118 * 0,716476936499882. Izhod - 0.449864893802199
  • COS(RADIANI(90-C6)) *COS(RADIANI(90-C5)) +SIN(RADIANI(90-C6)) *SIN(RADIANI(90-C5)) *COS(RADIANI(D6-D5)) - postane 0,365377540842758 * 0,449864893802199. Izhod - 0.815242434644958
  • Nato ACOS funkcija arccosines vrednost. Izhod - 0.617648629071256
  • Na koncu se vrednost pomnoži z 3959 - 0.617648629071256 *3959 zagotavlja rezultat v miljah. Izhod - 2445.270922

Preberite več: Kako izračunati kilometre med dvema naslovoma v Excelu (2 metodi)

2. Izračun razdalje med dvema naslovoma z uporabo kode VBA

V tem razdelku bom uporabil VBA kodo za ustvarjanje uporabniško definirane funkcije. Nato bom to funkcijo uporabil za izračun razdalje med dvema naslovoma v Excelu.

Tukaj uporabljam dva naslova. Prvi naslov je MacArthur Park, Camden NSW, Avstralija Njegova zemljepisna širina in dolžina sta 34.06312149 in . -118.2783975 Drugi naslov je Jersey City, New Jersey, ZDA Njegova zemljepisna širina in dolžina sta 40.71799929 in . -74.04276812 oziroma.

Na mestu bom ustvaril koordinate za vsak naslov. Koordinata je kombinacija zemljepisne širine in dolžine. Če želite ustvariti koordinato,

  • Najprej vnesite zemljepisno širino naslova.
  • Nato vstavite vejico.
  • Nato vnesite zemljepisno dolžino istega naslova.

Koordinata prvega naslova je torej 34.0631214903094,-118.27839753751 . Koordinata drugega naslova je 40.7179992930381,-74.0427681204225 .

Spletna stran VBA koda zahteva API zemljevida za izračun razdalje vožnje. API pomeni vmesnik za programiranje aplikacij. API da povežete bodisi Google Zemljevid ali Zemljevid Bing kar vam je ljubše.

Toda ustvarjanje API Googlovega zemljevida je plačan. Nasprotno pa lahko ustvarite API o Bing MAPA brezplačno.

Zato uporabljam API storitve Bing MAP tukaj.

  • Ustvarjanje brezplačnega API storitve Bing MAP , kliknite tukaj .

Ustvaril sem API . Pripenjam API spodaj:

AhFG0hk5nKCcQlk80MRaSk1ZtoYUYsX98BCLWi7p7MKZ-VrzOWptdUwsvj9D3L9F

Zdaj je čas, da napišete VBA koda. Za to,

  • Pritisnite ALT + F11 da odprete Urejevalnik VBA .
  • Zdaj pojdite v Vstavite Modul za odprtje novega modula.

Po odprtju Urejevalnik VBA , vstavite naslednje VBA kodo v odprtem modulu.

 Option Explicit Public Function Driving_Distance(startlocation As String, destination As String, keyvalue As String) Dim First_Value As String, Second_Value As String, Last_Value As String, mitHTTP As Object, mitUrl As String First_Value = "//dev.virtualearth.net/REST/v1/Routes/DistanceMatrix?origins=" Second_Value = "&destinations=" Last_Value = "&travelMode=driving&o=xml&key="& keyvalue & "&distanceUnit=mi" Set mitHTTP = CreateObject("MSXML2.ServerXMLHTTP") mitUrl = First_Value & startlocation & Second_Value & destination & Last_Value mitHTTP.Open "GET", mitUrl, False mitHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" mitHTTP.Send ("") Driving_Distance =Round(Round(WorksheetFunction.FilterXML(mitHTTP.ResponseText, "//TravelDistance")), 3), 0) End Function 

Razčlenitev kode

  • Tukaj sem ustvaril uporabniško definirano funkcijo z imenom Oddaljenost za vožnjo.
  • Nato sem uporabil 3 parametre: začetna lokacija , destinacija in vrednost ključa. To sta položaj dveh naslovov in API oziroma vrednost.
  • Nato sem uporabil več spremenljivk, kot so Prva_vrednost , Druga_vrednost , Last_value , mitHTTP , & mitUrl. Te spremenljivke se uporabljajo za shranjevanje različnih vrednosti.
  • Nato združite vrednosti (shranjene v mitUrl ) in uporabil več metod za objekte ( Odpri , SetRequestHeader , Pošlji ). Tako mi je uspelo izračunati razdaljo vožnje prek API .

Na spletni strani . VBA koda ustvari uporabniško definirano funkcijo z imenom Vozna_oddaljenost .

Funkcija Vozna_oddaljenost zahteva 3 argumenti skupaj.

Tukaj je splošna sintaksa Vozna_oddaljenost funkcijo.

=Driving_Distance(Start_Location_Coordinate,End_Location_Coordinate, API)

Zdaj je čas za uporabo uporabniško definirane funkcije. Za to,

  • Izberite celico E10 .
  • Nato vstavite naslednjo formulo:
=Driving_Distance(E5,E6,C8)

  • Zdaj pritisnite VSTOP .

Razčlenitev formule

  • E5 je Start_Location_Coordinate .
  • E6 je End_Location_Coordinate .
  • C8 je API o Bing MAPA .

Funkcija izračuna razdaljo vožnje med dvema naslovoma v miljah. Oglejte si celice E10 . Videla bo številko, 2790 .

Tako je razdalja med MacArthur Park, Camden, NSW, Avstralija, in . Jersey City, New Jersey, ZDA je . 2790 milje.

Preberite več: Kako izračunati razdaljo med dvema naslovoma v programu Excel (3 načini)

Oddelek za prakso

Na koncu zagotovljene datoteke Excel boste dobili Excelov list, kot je naslednja slika zaslona, v katerem lahko uporabite vse metode, obravnavane v tem članku.

Zaključek

Če povzamem, sem obravnaval 2 načina za izračun razdalje med dvema naslovoma v Excelu. In ne oklevajte, da postavite kakršno koli vprašanje v spodnjem razdelku za komentarje. Poskušali bomo odgovoriti na vsa pomembna vprašanja čim prej. In obiščite našo spletno stran Odlično da bi raziskali več.

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.