Microsoft Excel ir ļoti daudzpusīga izklājlapu programma. Tā piedāvā veikt tik plašu uzdevumu klāstu, ka jūs pat nevarat iedomāties. Jūs pat varat aprēķināt braukšanas attālumu starp divām adresēm programmā Excel. Ja jums ir adrešu saraksts, lai atrastu starpību starp tām, jūs, protams, varat izmantot MS Excel. Attālumu varat aprēķināt arī manuāli. Bet tas būs pārāk laikietilpīgi. Tā kā jums irTādējādi šajā rakstā es parādīšu, kā Excel programmā aprēķināt attālumu starp divām adresēm.

Lejupielādēt Practice Workbook

Excel failu varat lejupielādēt no tālāk norādītās saites un vingrināties ar to.

2 efektīvi veidi, kā aprēķināt braukšanas attālumu starp divām adresēm programmā Excel

1. Trigonometrisko funkciju izmantošana, lai aprēķinātu braukšanas attālumu

Šeit es jums parādīšu, kā apvienot dažādus trigonometriskās funkcijas aprēķināt braukšanas attālumu starp divām adresēm programmā Excel.

Lai sniegtu jums piemēru, esmu ņēmis divas adreses. Pirmā adrese ir šāda. MacArthur Park, Camden NSW, Austrālija . Tās ģeogrāfiskais platums un garums ir 34.06312149 un -118.2783975 Otrā adrese attiecīgi ir Džersija, Ņūdžersija, ASV . Tās ģeogrāfiskais platums un garums ir 40.71799929 un -74.04276812 attiecīgi.

Tagad es apvienošu ACOS , COS , SIN , & RADIANS funkcijas, lai izveidotu formulu. Šī formula efektīvi aprēķinās braukšanas attālumu starp divām adresēm jūdzēs.

Šim nolūkam,

❶ Izvēlēties šūnu D8 pirmais.

❷ Pēc tam šūnā ievietojiet šādu formulu.

❸ Pēc tam nospiediet pogu IEVADIET pogu.

Tagad redzēsiet, ka formula ir aprēķinājusi braukšanas attālumu starp MacArthur Park, Camden NSW, Austrālija, un Džersija, Ņūdžersija, ASV jūdzēs. Tādējādi rezultāts būs redzams šūnā D8 kas ir 2445.270922 jūdzes.

Formulas sadalījums

• COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) - un... RADIANS funkcijas pārvērš vērtības radiānos un COS funkcija nodrošina vērtību kosinusu, tad platuma kosinusus reizina. Izvades - 0.365377540842758
• COS(RADIANS(D6-D5)) - sniedz garuma garuma starpības starp abām adresēm kosinusa vērtību. Izvades - 0.716476936499882

• SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) - aprēķina garuma novirzi no 90 radiāniem un reizina sinusa vērtības. Izvades - 0.627884682513118

• SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) *COS(RADIANS(D6-D5)) - kļūst 0,627884682513118 * 0,716476936499882. Izvades - 0.449864893802199

• COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) +SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) *COS(RADIANS(D6-D5)) - kļūst par 0,36537377540842758 * 0,449864893802199. Izvades - 0.815242434644958

• Tad ACOS funkcija arccosines vērtību. Izvades - 0.617648629071256

• Visbeidzot, reizinot vērtību ar 3959 - 0.617648629071256 *3959 sniedz rezultātu jūdzēs. Izvades - 2445.270922

Lasīt vairāk: Kā aprēķināt jūdzes starp divām adresēm programmā Excel (2 metodes)

2. Aprēķināt braukšanas attālumu starp divām adresēm, izmantojot VBA kodu

Šajā sadaļā es izmantošu VBA Pēc tam es izmantošu šo funkciju, lai aprēķinātu braukšanas attālumu starp divām adresēm programmā Excel.

Šeit es izmantoju divas adreses. Pirmā adrese ir šāda. MacArthur Park, Camden NSW, Austrālija . Tās ģeogrāfiskais platums un garums ir 34.06312149 un -118.2783975 Otrā adrese attiecīgi ir Džersija, Ņūdžersija, ASV . Tās ģeogrāfiskais platums un garums ir 40.71799929 un -74.04276812 attiecīgi.

Katrai adresei es ģenerēšu koordinātas. Koordināta ir platuma un garuma kombinācija. Lai ģenerētu koordinātas,

• Vispirms ievadiet adreses platumu.
• Tad ievietojiet komatu.
• Pēc tam ievadiet tās pašas adreses ģeogrāfisko garumu.

Tātad pirmās adreses koordināta ir 34.0631214903094,-118.27839753751 . Un otrās adreses koordināta ir šāda. 40.7179992930381,-74.0427681204225 .

Portāls VBA kodekss pieprasa API kartes, lai aprēķinātu braukšanas attālumu. API ir lietojumprogrammu programmēšanas saskarnes saīsne. API lai savienotu vai nu Google karte vai Bing karte neatkarīgi no jūsu vēlmēm.

Bet, izveidojot Google Maps API ir apmaksāts. Gluži pretēji, jūs varat izveidot API no Bing karte bez maksas.

Tādējādi es izmantoju Bing MAP API šeit.

• Lai izveidotu bezmaksas Bing MAP API , klikšķiniet šeit .

Esmu izveidojis API . Es esmu pievienojot API zemāk:

Tagad ir pienācis laiks rakstīt VBA kods. Tam,

• Spiediet ALT + F11 lai atvērtu VBA redaktors .
• Tagad dodieties uz Ievietot ➤ Modulis lai atvērtu jaunu moduli.

Pēc atvēršanas VBA redaktors , iekļauj šādu tekstu VBA kods atvērtajā modulī.

 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 

Koda sadalījums

• Šeit esmu izveidojis lietotāja definētu funkciju ar nosaukumu Braukšanas_attālums.
• Tad es izmantoju 3 parametrus: starta vieta , galamērķis , un atslēgas vērtība. Tās ir divu adrešu atrašanās vieta un API vērtība.
• Tad es izmantoju vairākus mainīgos, piemēram. First_Value , Second_Value , Last_value , mitHTTP , & mitUrl. Šie mainīgie tiek izmantoti dažādu vērtību glabāšanai.
• Pēc tam apvienojiet vērtības (kas glabājas mitUrl ) un izmantoja vairākas objektu metodes ( Atvērt , SetRequestHeader , Sūtīt ). Šādi man izdevās aprēķināt braukšanas attālumu, izmantojot API .

Šis VBA kods ģenerē lietotāja definētu funkciju ar nosaukumu Driving_Distance .

Funkcija Driving_Distance nepieciešams 3 argumenti kopā.

Šeit ir sniegta vispārīgā sintakse, kas attiecas uz Driving_Distance funkcija.

Tagad ir pienācis laiks piemērot lietotāja definēto funkciju. Šim nolūkam,

• Izvēlieties šūnu E10 .
• Pēc tam ievietojiet šādu formulu:

• Tagad nospiediet IEVADIET .

Formulas sadalījums

• E5 ir Start_Location_Coordinate .
• E6 ir End_Location_Coordinate .
• C8 ir API no Bing karte .

Funkcija aprēķina braukšanas attālumu starp divām adresēm jūdzēs. Pārbaudiet šūnu E10 . Tas redzēs numuru, 2790 .

Tātad braukšanas attālums starp MacArthur Park, Camden NSW, Austrālija, un Džersija, Ņūdžersija, ASV ir . 2790 jūdzes.

Lasīt vairāk: Kā aprēķināt attālumu starp divām adresēm programmā Excel (3 veidi)

Prakses sadaļa

Iesniegtā Excel faila beigās jūs saņemsiet Excel lapu, kas līdzinās tālāk redzamajam ekrānšāviņam, kurā varat izmēģināt visas šajā rakstā aplūkotās metodes.

Secinājums

Apkopojot, es esmu apspriedis 2 veidus, kā aprēķināt braukšanas attālumu starp divām adresēm programmā Excel. Un nevilcinieties uzdot jebkādus jautājumus komentāru sadaļā zemāk. Mēs centīsimies atbildēt uz visiem attiecīgajiem jautājumiem pēc iespējas ātrāk. Un, lūdzu, apmeklējiet mūsu vietni. Exceldemy lai izpētītu vairāk.