Kā aprēķināt attālumu starp divām adresēm programmā Excel (3 veidi)

Hugh West

30-09-2023 Excel formulas
  • Dalīties Ar Šo
Hugh West

Šajā rakstā uzzināsiet, kā aprēķināt attālums starp divām adresēm programmā Excel. Microsoft Excel ir šī foršā īpašā funkcija un formula, lai attāluma noteikšana starp divām vietām pasaulē. Ja jums ir GPS koordinātas no divām vietām, jūs varat viegli noteikt attālumu starp šīm vietām. jebkurā vēlamajā vienībā.

Lejupielādēt Practice Workbook

Attāluma aprēķināšana starp divām adresēm.xlsm

3 veidi, kā aprēķināt attālumu starp divām adresēm programmā Excel

Mūsu datu kopā ir Platums un Ģeogrāfiskais garums vietnē Ohaio un Alaska Mēs izmērīsim attālumu starp tiem.

Portāls Platuma grādi vietnē Ohaio un Alaska ir 40.4173 Ziemeļi un 64.2008., ziemeļi Attiecīgi arī Garuma grādi vietnē Ohaio un Alaska ir 82.9071 Rietumi un 149.4937 Rietumi attiecīgi.

1. Haversina formulas izmantošana, lai aprēķinātu attālumu starp divām adresēm

Ja jums labi padodas matemātika, izmantojot Haversīna formula Lai gan tas jums sniegs aptuvenu rezultātu, tas ir diezgan labs rezultāts.

Pirmkārt, mums ir jāzina loka garuma pamatformula Izmantojot šo formulu, mēs to salīdzinām ar attālumu starp divām vietām uz Zemes. Formula ir dota zemāk.

S = rθ

S = attālums starp divām adresēm

r = Zemes rādiuss

θ = leņķis, ko abas adreses rada Zemes centrā.

Bet, ja jums ir GPS koordinātas no divām vietām, jums ir jānosaka no Haversīna formula . Aplūkojiet Haversīna formula parādīts turpmāk.

Ja salīdzina to ar loka garuma formula , iegūsiet kā šajā attēlā.

Iepazīstināsim jūs ar parametriem. Haversīna formula .

φ 1 = Pirmās vietas ģeogrāfiskais platums

φ 2 = Otrās vietas ģeogrāfiskais platums

ℽ 1 = Pirmās vietas ģeogrāfiskais garums

ℽ 2 = Otrās vietas ģeogrāfiskais platums

Tagad es jums soli pa solim parādīšu, kā piemērot šo formulu programmā Excel.

Soļi:

  • Vispirms izveidojiet šūnas, lai saglabātu attāluma vērtību, un šūnā ierakstiet šādu formulu C8 .

=2*6400*ASIN(SQRT((SIN(C6-C5)/2)^2+COS(C5)*COS(C6)*(SIN(D6-D5)/2)^2))

Formulā tiek izmantoti ASIN , SQRT , SIN un COS funkcijas Tas ir pavisam vienkārši, ja vienkārši aplūkojat Haversīna formula . Mēs mēra attālumu kilometri , tāpēc zemes rādiuss kilometros ir šāds. 6400 km . ASIN attiecas uz apgrieztais sinuss vai ArcSine Ja mēs salīdzinām parametru leņķus no Haversīna formula ar mūsu Excel formulu iegūstam,

1 = Ohaio ģeogrāfiskais platums (C5)

2 = Aļaskas ģeogrāfiskais platums (C6)

ℽ 1 = Ohaio ģeogrāfiskais garums (D5)

ℽ 2 = Aļaskas ģeogrāfiskais platums (D6)

  • Pēc tam nospiediet IEVADIET pogu, lai redzētu attālumu starp Ohaio un Alaska vietnē Kilometri .

  • Pēc tam, ja vēlaties izmērīt attālumu jūdzēs , šūnā izmantojiet šādu formulu C8 .

=2*3959*ASIN(SQRT((SIN(C6-C5)/2)^2+COS(C5)*COS(C6)*(SIN(D6-D5)/2)^2))

Šeit mēs izmantojām to pašu Excel formulu, ko izmantojām, lai noteiktu attālumu jūdzes Šī iemesla dēļ mēs ņemam Zemes rādiuss ir jūdzes kas ir 3959 .

Tādējādi varat aprēķināt attālums starp divām zemes adresēm programmā Excel, piemērojot Haversīna formula .

Lasīt vairāk: Kā aprēķināt attālumu starp divām koordinātēm programmā Excel (2 metodes)

2. Excel funkciju CONCATENATE un SUBSTITUTE izmantošana, lai aprēķinātu attālumu starp divām adresēm

Varat izveidot Google karte saiti, lai atrastu attālums starp divām adresēm, izmantojot Excel CONCATENATE un SUBSTITŪTS Funkcijas . Apskatīsim turpmāk aprakstīto procesu.

Soļi:

  • Vispirms ievadiet šādu formulu C8 .

=CONCATENATE("//maps.google.co.uk/maps?f=d&source=s_d&saddr=", SUBSTITUTE(B5," ", "+"),"&daddr=",SUBSTITUTE(B6," ", "+"))

Šī formula izveidos Google karte saite par to, kā jūs varat ceļot no Ohaio uz Alaska . CONCATENATE funkcija pievienos adreses saitē un SUBSTITŪTS funkcija ievietos nosaukumu adreses .

  • Pēc tam nospiediet IEVADIET pogu un redzēsiet Google karte saite C8 .

  • Pēc tam izmantojiet šo saite interneta meklēšanas joslā, un jūs iegūsiet attālums informāciju par šiem divas adreses .

Visbeidzot, varat aprēķināt attālums starp divām zemes adresēm programmā Excel, piemērojot CONCATENATE un SUBSTITŪTS funkcijas.

Lasīt vairāk: Kā aprēķināt attālumu starp divām pilsētām programmā Excel

3. VBA izmantošana, lai aprēķinātu attālumu starp divām adresēm programmā Excel

Cits veids, kā aprēķināt attālums starp divām adresēm varētu būt, veicot API ( Lietojumprogrammēšanas saskarne ) saiti un izmantojot to, lai izveidotu Lietotāja definēta funkcija līdz VBA . Jūs varat izveidot API saite Bing bez maksas. Lai izveidotu Bing karte sava API atslēga, klikšķiniet šeit .

Soļi:

  • Vispirms dodieties uz Izstrādātājs >> Visual Basic .

  • Pēc tam atlasiet Ievietot >> Modulis lai atvērtu VBA modulis .

  • Vēlāk ierakstiet šādu kodu VBA modulis . Mēs veidojam Lietotāja definēta funkcija aprēķināt attālums vietnē jūdzes . 
 Option Explicit Public Function DistanceInMiles(First_Location As String, _ Final_Location 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=mi" Set Set Setup_HTTP = CreateObject("MSXML2.ServerXMLHTTP") Output_Url = Initial_Point & First_Location & Ending_Point & Final_Location & 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 ("") DistanceInMiles = Round(Round(WorksheetFunction.FilterXML(Setup_HTTP.ResponseText, _ "//TravelDistance"), 3), 0) End Function

Koda skaidrojums

  • Pirmkārt, mēs nosaucām mūsu Funkcija kā DistanceInMiles . Mēs arī iestarpinājām 3 parametri: First_Location kā virkne, Final_Location kā virkne un Target_Value kā virkne .
  • Pēc tam mēs paziņojām. Initial_Point , Ending_Point , Distance_Unit un Outout_Url kā Virknes ; Setup_HTTP kā Objekts .
  • Vēlāk mēs iestatījām Initial_Point kā sākuma Url saite , Ending_Point kā Galamērķis un Distance_Unit uz Miles .
  • Pēc tam mēs iestatām nepieciešamos parametrus, lai izveidotu saikni starp mūsu VBA kods un API
  • Visbeidzot, mēs izveidojām savu Lietotāja definēta funkcija .
  • Pēc tam, ievērojot tās pašas procedūras, mēs izveidojām vēl vienu Lietotāja definēta funkcija lai atrastu attālumu kilometri .

Varat redzēt, ka mēs tikai mainījām Distance_Unit uz kilometri .

  • Pēc tam nākamajā attēlā redzams. API taustiņš šūnā C8 .

  • Pēc tam šūnā ievadiet šādu formulu C8 .

=DistanceInMiles(E5,E6,C8)

  • Pēc tam nospiediet IEVADIET pogu un redzēsiet attālums starp Ohaio un Alaska vietnē jūdzes .

  • Pēc tam izmantojiet šādu formulu, lai redzētu. attālums vietnē kilometrs .

=DistanceInKM(E5,E6,C8)

Tādējādi varat aprēķināt attālums starp divām adresēm, izmantojot VBA un API atslēga.

Lasīt vairāk: Kā aprēķināt braukšanas attālumu starp divām adresēm programmā Excel

Lietas, kas jāatceras

  • Paturiet to prātā, jums ir nepieciešams likt aptuveni pareizo GPS koordinātas no šiem valstis datos, jo jūs izmantojat internetu, lai atrastu attālumu. Kā valstis ir rietumos uz Meridiāna līnija , abas viņu Garuma grādi būs negatīvs.

Prakses sadaļa

Šajā sadaļā es jums sniegšu šī raksta datu kopu, lai jūs varētu praktizēt šīs metodes paši.

Secinājums

Pietiek pateikt, ka jūs uzzināsiet ļoti efektīvas metodes, kā aprēķināt attālums starp divām adresēm programmā Excel pēc šī raksta izlasīšanas. Ja jums ir kādas labākas metodes vai jautājumi, vai atsauksmes par šo rakstu, lūdzu, dalieties ar tiem komentāru lodziņā. Tas palīdzēs man bagātināt manus nākamos rakstus. Lai iegūtu vairāk jautājumu, laipni apmeklējiet mūsu tīmekļa vietni. ExcelWIKI.com .

Iepriekšējais ieraksts Kā noņemt Formatēt kā tabulu programmā Excel
Nākamais ieraksts Kā lietot funkciju COUNT programmā Excel (6 ideāli piemēri)

Hjū Vests ir ļoti pieredzējis Excel treneris un analītiķis ar vairāk nekā 10 gadu pieredzi šajā nozarē. Viņam ir bakalaura grāds grāmatvedībā un finansēs un maģistra grāds uzņēmējdarbības vadībā. Hjū aizraujas ar mācīšanu, un viņš ir izstrādājis unikālu mācīšanas pieeju, kas ir viegli izpildāma un saprotama. Viņa ekspertu zināšanas programmā Excel ir palīdzējušas tūkstošiem studentu un profesionāļu visā pasaulē uzlabot savas prasmes un izcelties karjerā. Izmantojot savu emuāru, Hjū dalās savās zināšanās ar pasauli, piedāvājot bezmaksas Excel apmācības un tiešsaistes apmācību, lai palīdzētu personām un uzņēmumiem pilnībā izmantot savu potenciālu.