Microsoft Excel on väga mitmekülgne tabelarvutusprogramm. Sellega saab teha nii palju erinevaid ülesandeid, et seda ei oska isegi ette kujutada. Excelis saab isegi kahe aadressi vahelise sõidu kauguse välja arvutada. Kui teil on olemas aadresside nimekiri, et leida nende vahe, võite muidugi kasutada MS Excelit. Te võite kauguse arvutada ka käsitsi. Kuid see on liiga aeganõudev. Kuna teil onsadu tuhandeid vahemaid arvutada. Seega näitan teile selles artiklis, kuidas arvutada kahe aadressi vahelist sõidu kaugust Excelis.

Lae alla praktiline töövihik

Excel-faili saate alla laadida alljärgnevalt lingilt ja sellega koos harjutada.

2 tõhusat viisi kahe aadressi vahelise sõidu kauguse arvutamiseks Excelis

1. Trigonomeetriliste funktsioonide kasutamine sõidukauguse arvutamiseks

Siin näitan teile, kuidas kombineerida erinevaid trigonomeetrilised funktsioonid kahe aadressi vahelise sõidu kauguse arvutamiseks Excelis.

Näitena võtsin kaks aadressi. Esimene aadress on MacArthur Park, Camden NSW, Austraalia Selle laius- ja pikkuskraadid on 34.06312149 ja -118.2783975 Teine aadress on vastavalt Jersey City, New Jersey, USA Selle laius- ja pikkuskraadid on 40.71799929 ja -74.04276812 vastavalt.

Nüüd ühendan ma ACOS , COS , SIN , & RADIANS valemiga. Valem arvutab tegelikult kahe aadressi vahelise sõidu kauguse miilides.

Selleks,

❶ Valige lahter D8 esimene.

❷ Seejärel sisestage lahtrisse järgmine valem.

❸ Pärast seda vajutage nuppu SISESTA nuppu.

Nüüd näete, et valem on arvutanud sõidutee vahemaa vahel MacArthur Park, Camden NSW, Austraalia, ja Jersey City, New Jersey, USA miilides. Seega näete tulemust lahtris D8 mis on 2445.270922 miili.

Valemi jaotus

• COS(RAADIUS(90-C6)) *COS(RAADIUS(90-C5)) - the... RADIANS funktsioonid teisendavad väärtused radiaanideks ja COS funktsioon annab väärtuste kosinuse, siis korrutatakse laiuskraadide kosinused. Väljund - 0.365377540842758
• COS(RADIAAN(D6-D5)) - annab kahe aadressi vahelise pikkuskraadide erinevuse kosinuse väärtuse. Väljund - 0.716476936499882

• SIN(RAADIUS(90-C6)) *SIN(RAADIUS(90-C5)) - arvutab pikkuskraadide kõrvalekaldeid 90 radiaanist ja korrutab sinuseväärtused. Väljund - 0.627884682513118

• SIN(RAADIUS(90-C6)) *SIN(RAADIUS(90-C5)) *COS(RAADIUS(D6-D5)) - muutub 0,627884682513118 * 0,716476936499882. Väljund - 0.449864893802199

• COS(RAADIUS(90-C6)) *COS(RAADIUS(90-C5)) +SIN(RAADIUS(90-C6)) *SIN(RAADIUS(90-C5)) *COS(RAADIUS(D6-D5)) - muutub 0,365377540842758 * 0,449864893802199. Väljund - 0.815242434644958

• Siis on ACOS funktsioon arccosines väärtus. Väljund - 0.617648629071256

• Lõpuks korrutatakse väärtus 3959 - 0.617648629071256 *3959 annab tulemuse miilides. Väljund - 2445.270922

Loe edasi: Kuidas arvutada miili kahe aadressi vahel Excelis (2 meetodit)

2. Kahe aadressi vahelise sõidu kauguse arvutamine VBA koodi abil

Selles osas kasutan ma VBA koodi, et luua kasutaja määratud funktsioon. Seejärel kasutan seda funktsiooni kahe aadressi vahelise sõidu kauguse arvutamiseks Excelis.

Siinkohal kasutan ma kahte aadressi. Esimene aadress on MacArthur Park, Camden NSW, Austraalia Selle laius- ja pikkuskraadid on 34.06312149 ja -118.2783975 Teine aadress on vastavalt Jersey City, New Jersey, USA Selle laius- ja pikkuskraadid on 40.71799929 ja -74.04276812 vastavalt.

At I genereerin koordinaadid iga aadressi jaoks. Koordinaat on laius- ja pikkuskraadide kombinatsioon. Koordinaadi genereerimiseks,

• Kirjutage kõigepealt aadressi laiuskraad.
• Seejärel sisestage koma.
• Pärast seda sisestage sama aadressi pikkuskraad.

Seega on esimese aadressi koordinaat 34.0631214903094,-118.27839753751 Ja teise aadressi koordinaadid on järgmised. 40.7179992930381,-74.0427681204225 .

The VBA kood nõuab API kaardil sõiduulatuse arvutamiseks. API tähistab rakenduse programmeerimisliidest. Saate kasutada API ühendada kas Google kaart või Bing kaart mida iganes te eelistate.

Aga luua Google Map API on tasuline. Vastupidi, te saate luua API kohta Bing MAP tasuta.

Seega kasutan ma Bing MAP API siin.

• Et luua tasuta Bing MAP API , kliki siia .

Olen loonud API . ma lisan API allpool:

Nüüd on aeg kirjutada VBA kood. Selle eest,

• Press ALT + F11 avada VBA toimetaja .
• Nüüd mine Sisesta ➤ Moodul uue mooduli avamiseks.

Pärast avamist VBA toimetaja lisage järgmine tekst VBA kood avatud moodulis.

 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 

Koodide lahtimõtestamine

• Siin olen loonud kasutaja poolt määratud funktsiooni nimega Sõidu_kaugus.
• Siis kasutasin 3 parameetrit: startlocation , sihtkoht ja keyvalue. Need on kahe aadressi asukoht ja API väärtus vastavalt.
• Siis kasutasin mitmeid muutujaid nagu First_Value , Second_Value , Viimane_väärtus , mitHTTP , & mitUrl. Neid muutujaid kasutatakse erinevate väärtuste salvestamiseks.
• Seejärel kombineeritakse väärtused (salvestatud mitUrl ) ja kasutas mitmeid objektimeetodeid ( Avatud , SetRequestHeader , Saada ). Nii õnnestus mul arvutada sõidutee läbi API .

See VBA kood genereerib kasutaja määratud funktsiooni nimega Driving_Distance .

Funktsioon Driving_Distance nõuab 3 argumenti kokku.

Siin on üldine süntaks. Driving_Distance funktsioon.

Nüüd on aeg rakendada kasutaja määratud funktsiooni. Selleks,

• Valige lahter E10 .
• Seejärel sisestage järgmine valem:

• Nüüd vajutage SISESTA .

Valemi jaotus

• E5 on Start_Koht_Koordinaat .
• E6 on End_Location_Coordinate .
• C8 on API kohta Bing MAP .

Funktsioon arvutab kahe aadressi vahelise sõidu kauguse kilomeetrites. Vaadake lahtrit E10 See näeb numbrit, 2790 .

Nii et sõidutee vahemaa MacArthur Park, Camden NSW, Austraalia, ja Jersey City, New Jersey, USA on 2790 miili.

Loe edasi: Kuidas arvutada kahe aadressi vaheline kaugus Excelis (3 võimalust)

Praktika sektsioon

Saate Exceli faili lõpus järgmise ekraanipildi sarnase Exceli tabeli, kus saate harjutada kõiki selles artiklis käsitletud meetodeid.

Kokkuvõte

Kokkuvõtteks olen arutanud 2 viisi, kuidas arvutada kahe aadressi vahelist sõidu kaugust Excelis. Ja ärge kartke küsida küsimusi allpool olevas kommentaaride sektsioonis. Püüame vastata kõigile asjakohastele päringutele niipea kui võimalik. Ja palun külastage meie veebisaiti. Exceldemy rohkem uurida.