Hoe om ryafstand tussen twee adresse in Excel te bereken

Hugh West

29-09-2023 Excel Formules
  • Deel Dit
Hugh West

Microsoft Excel is 'n baie veelsydige sigbladprogram. Dit bied om so 'n wye reeks take te doen wat jy jou nie eers kan voorstel nie. Jy kan selfs die ryafstand tussen twee adresse in Excel bereken. As jy 'n lys van adresse het om die verskil tussen hulle te vind, kan jy natuurlik MS Excel gebruik. Jy kan ook die afstand met die hand bereken. Maar dit sal te tydrowend wees. Soos jy honderde duisende afstande het om te bereken. So in hierdie artikel sal ek jou wys hoe om die ryafstand tussen twee adresse in Excel te bereken.

Laai Oefenwerkboek af

Jy kan die Excel-lêer van die volgende skakel aflaai en oefen saam met dit.

Bereken ryafstand tussen twee adresse.xlsm

2 doeltreffende maniere om ryafstand tussen twee adresse in Excel te bereken

1 Gebruik trigonometriese funksies om ryafstand te bereken

Hier sal ek jou wys om verskillende trigonometriese funksies te kombineer om die ryafstand tussen twee adresse in Excel te bereken.

Om te gee jy 'n voorbeeld, ek het twee adresse geneem. Die eerste adres is MacArthur Park, Camden NSW, Australië . Sy breedte- en lengtegraad is onderskeidelik 34.06312149 en -118.2783975 . Die tweede adres is Jersey City, New Jersey, VSA . Sy breedte- en lengtegraad is 40.71799929 en -74.04276812 onderskeidelik.

Nou sal ek die ACOS , COS , SIN , & RADIANS funksies om 'n formule te skep. Die formule sal effektief die ryafstand tussen twee adresse in myl bereken.

Daarvoor,

❶ Kies eers sel D8 .

❷ Voeg dan in die volgende formule in die sel.

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

❸ Druk daarna die ENTER knoppie.

Nou sal jy sien dat die formule die ryafstand tussen die MacArthur Park, Camden NSW, Australië, en Jersey City, New Jersey, VSA in myl bereken het. Dus, jy sal die resultaat in sel D8 sien wat 2445.270922 myl is.

Formule-uiteensetting

  • COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) – die RADIANS funksies omskep die waardes in radiale en die COS funksie verskaf die cosinus van die waardes, die cosinus vir breedtegraad word dan vermenigvuldig. Uitvoer – 0.365377540842758
  • COS(RADIANS(D6-D5)) – verskaf die cosinuswaarde vir die lengtegraadverskil tussen die twee adresse. Uitvoer – 0,716476936499882
  • SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) – bereken die afleiding van lengtegrade vanaf 90 radiale en vermenigvuldig die sinuswaardes. Uitvoer – 0,627884682513118
  • SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) *COS(RADIANS(D6-) D5)) – word0,627884682513118 * 0,716476936499882. Uitvoer – 0,449864893802199
  • COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) +SIN(RADIANS(90-) C6)) *SIN(RADIANS(90-C5)) *COS(RADIANS(D6-D5)) – word 0,365377540842758 * 0,449864893802199. Uitvoer – 0.815242434644958
  • Dan arccosineer die ACOS funksie die waarde. Uitvoer – 0,617648629071256
  • Laastens, vermenigvuldig die waarde met 3959 – 0,617648629071256 *3959 lewer die resultaat in myl. Uitvoer – 2445.270922

Lees meer: ​​ Hoe om myle tussen twee adresse in Excel te bereken (2 metodes)

2. Bereken ryafstand tussen twee adresse deur gebruik te maak van VBA-kode

In hierdie afdeling sal ek 'n VBA kode gebruik om 'n gebruikergedefinieerde funksie te skep. Dan sal ek daardie funksie gebruik om die ryafstand tussen twee adresse in Excel te bereken.

Hier gebruik ek twee adresse. Die eerste adres is MacArthur Park, Camden NSW, Australië . Sy breedte- en lengtegraad is onderskeidelik 34.06312149 en -118.2783975 . Die tweede adres is Jersey City, New Jersey, VSA . Sy breedte- en lengtegraad is onderskeidelik 40.71799929 en -74.04276812 .

By die I sal koördinate vir elk van die adresse genereer. 'n Koördinaat is 'n kombinasie van breedte- en lengtegraad. Om 'n koördinaat te genereer,

  • Tik die breedtegraad van 'n adres ineerste.
  • Voeg dan 'n komma in.
  • Tik daarna die lengtegraad van dieselfde adres in.

Dus is die koördinaat van die eerste adres 34.0631214903094 ,-118.27839753751 . En die koördinaat van die tweede adres is 40.7179992930381,-74.0427681204225 .

Die VBA kode vereis 'n API van 'n kaart om die ryafstand te bereken. Die API staan ​​vir Application Programming Interface. Jy kan 'n API gebruik om óf die Google Map óf die Bing Map te koppel wat jy ook al verkies.

Maar skep die Google Map API is betaal. Inteendeel, jy kan gratis 'n API van die Bing MAP skep.

Ek gebruik dus die Bing MAP API hier.

  • Om 'n gratis Bing MAP API te skep, klik hier .

Ek het 'n API . Ek heg die API hieronder aan:

AhFG0hk5nKCcQlk80MRaSk1ZtoYUYsX98BCLWi7p7MKZ-VrzOWptdUwsvj9D3L9F

Nou is dit tyd om die VBA kode. Daarvoor,

  • Druk ALT + F11 om die VBA Editor oop te maak.
  • Gaan nou na Voeg in ➤ Module om 'n nuwe module oop te maak.

Nadat die VBA Editor oopgemaak is, voeg die volgende in VBA kode in die oopgemaakte module.

5320

Kode uiteensetting

  • Hier , Ek het 'n gebruiker-gedefinieerde funksie genaamd Ry_Afstand geskep.
  • Toe het ek 3 parameters gebruik: beginlokasie , bestemming ,en sleutelwaarde. Dit is die posisie van die twee adresse en die API waarde onderskeidelik.
  • Toe het ek verskeie veranderlikes gebruik soos Eerste_Waarde , Tweede_Waarde , Laaste_waarde , mitHTTP , & mitUrl. Hierdie veranderlikes word gebruik om verskillende waardes te stoor.
  • Dan het die waardes gekombineer (in mitUrl gestoor) en verskeie objekmetodes gebruik ( Open , SetRequestHeader , Stuur ). Dit is hoe ek dit reggekry het om die ryafstand deur die API te bereken.

Hierdie VBA kode genereer 'n gebruikergedefinieerde funksie genaamd Ryafstand .

Die funksie Ryafstand vereis 3 argumente in totaal.

Hier is die generiese sintaksis van die Ryafstand -funksie .

=Driving_Distance(Start_Location_Coordinate,End_Location_Coordinate, API)

Dit is nou tyd om die gebruikergedefinieerde funksie toe te pas. Daarvoor,

  • Kies sel E10 .
  • Voeg dan die volgende formule in:
=Driving_Distance(E5,E6,C8)

  • Druk nou ENTER .

Formule-uiteensetting

  • E5 is die Begin_ligging_koördinaat .
  • E6 is die Eind_ligging_koördinaat .
  • C8 is die API van die Bing MAP .

Die funksie bereken die ryafstand tussen twee adresse in myl. Kyk na sel E10 . Dit sal die nommer, 2790 sien.

Dus die ryafstand tussen MacArthur Park,Camden NSW, Australië, en Jersey City, New Jersey, VSA is 2790 myl.

Lees meer: ​​ Hoe om afstand tussen twee adresse in Excel te bereken (3 maniere)

Oefenafdeling

Jy sal 'n Excel-blad kry soos die volgende skermkiekie, aan die einde van die verskafde Excel-lêer waar jy al die metodes wat in hierdie artikel bespreek word kan oefen.

Gevolgtrekking

Om op te som, ek het 2 bespreek. maniere om die ryafstand tussen twee adresse in Excel te bereken. En moenie huiwer om enige vrae in die kommentaarafdeling hieronder te vra nie. Ons sal probeer om so gou moontlik op al die relevante navrae te reageer. En besoek asseblief ons webwerf Exceldemy om meer te verken.

Vorige pos Hoe om T-telling in Excel te bereken (4 maklike maniere)
Volgende plasing Hoe om geselekteerde selle in Excel te druk (6 effektiewe maniere)

Hugh West is 'n hoogs ervare Excel-afrigter en ontleder met meer as 10 jaar ondervinding in die bedryf. Hy het 'n Baccalaureusgraad in Rekeningkunde en Finansies en 'n Meestersgraad in Besigheidsadministrasie. Hugh het 'n passie vir onderrig en het 'n unieke onderrigbenadering ontwikkel wat maklik is om te volg en te verstaan. Sy kundige kennis van Excel het duisende studente en professionele persone wêreldwyd gehelp om hul vaardighede te verbeter en uit te blink in hul loopbane. Deur sy blog deel Hugh sy kennis met die wêreld, en bied gratis Excel-tutoriale en aanlyn opleiding aan om individue en besighede te help om hul volle potensiaal te bereik.