Kaip apskaičiuoti atstumą tarp dviejų koordinačių programoje "Excel" (2 metodai)

Hugh West

16-10-2023 "Excel" formulės
  • Pasidalinti
Hugh West

Daugeliu atvejų gali prireikti rasti atstumą tarp dviejų koordinačių arba dviejų vietovių. Microsoft Excel programoje tai galite padaryti masiškai per trumpą laiką. Šiame straipsnyje demonstruojami du atstumo tarp dviejų koordinačių apskaičiavimo Excel programoje būdai.

Atsisiųsti praktikos sąsiuvinį

Praktikos knygą galite atsisiųsti iš toliau pateiktos nuorodos.

Apskaičiuoti atstumą tarp dviejų koordinačių.xlsm

Koordinačių sistemos pagrindai

Koordinačių sistema - tai sistema, ypač geometrijoje, kurioje naudojamas vienas ar daugiau skaičių taško padėčiai nustatyti arba kitiems geometriniams parametrams apskaičiuoti. Koordinačių sistemų yra daug rūšių, pavyzdžiui: Dekartinė koordinačių sistema, Geodezinė koordinačių sistema ir kt.

Kas yra Dekarto koordinačių sistema?

Dekartinė koordinačių sistema - tai sistema, kurioje bet kokiai padėčiai nustatyti arba geometriniams duomenims apskaičiuoti naudojamos atskaitos ašys. Taško koordinatės nustatomos pagal atstumą tarp šių atskaitos ašių. Pavyzdžiui:

Dvimatėje plokštumoje X ašis žymi horizontaliąją plokštumą, o Y ašis - vertikaliąją plokštumą. Taigi, jei kas nors nurodo taško koordinates (2,3), tai reiškia, kad taškas yra 2 vienetai nuo horizontaliosios plokštumos ir 3 vienetai nuo išilginės plokštumos.

Atstumo formulė Dekarto koordinačių sistemai

Aritmetinė formulė atstumui 2-D Dekarto koordinačių sistemoje apskaičiuoti yra tokia:

d=√((x2-x1)^2+(y2-y1)^2)

Čia,

  • x 1 = 1 taško atstumas nuo x ašies.
  • x 2 = 2 taško atstumas nuo x ašies.
  • y 1 = 1 taško atstumas nuo y ašies.
  • y 2 = 2 taško atstumas nuo y ašies.
  • d = Atstumas tarp taško 1 ir taško 2.

Kas yra geodezinių koordinačių sistema?

Geodezinių koordinačių sistema - tai koordinačių sistemos tipas, kurioje taško padėčiai nustatyti ir kitiems geometriniams parametrams matuoti naudojamas elipsoidas. Šioje koordinačių sistemoje padėčiai nustatyti paprastai naudojame platumą ir ilgumą.

Šiuo atveju geografinė platuma reiškia atstumą šiaurės arba pietų kryptimi nuo ekvatoriaus, o geografinė ilguma - atstumą rytų arba vakarų kryptimi nuo pagrindinio dienovidinio. Be to, teigiamos geografinės platumos ir geografinės ilgumos reikšmės reiškia atitinkamai šiaurę ir rytus, o neigiamos - pietus ir vakarus.

Atstumo formulė geodezinių koordinačių sistemai

Aritmetinė formulė atstumui tarp dviejų koordinačių geodezinių koordinačių sistemoje apskaičiuoti yra tokia:

d=acos(cos(radianas(90-lat1))*cos(radianas(90-lat2))+

sin(radianas(90-plat1))*sin(radianas(90-plat2)*cos(radianas(long1-long2)))*3959

Čia,

  • lat1 = 1 vietos geografinė platuma
  • lat2 = 2 vietos geografinė platuma
  • long1 = 1 vietos ilguma
  • long2 = 2 vietos ilguma
  • d = Atstumas tarp 1 ir 2 vietos myliomis

2 atstumo tarp dviejų koordinačių apskaičiavimo "Excel" programoje metodai (Dekartinė koordinačių sistema)

Tarkime, turite duomenų rinkinį, kuriame yra taško 1 ir taško 2 koordinatės skirtingose situacijose, ir norite apskaičiuoti atstumą tarp jų. Dabar parodysiu du būdus, kaip tai padaryti.

1. Aritmetinės formulės naudojimas atstumui apskaičiuoti

Atstumą galite lengvai apskaičiuoti rankiniu būdu įterpdami aritmetinę formulę. Dabar atlikite toliau nurodytus veiksmus atstumui apskaičiuoti.

Žingsniai :

  • Pirmiausia sukurkite stulpelį next for Atstumas.
  • Tada pasirinkite langelį G6 ir įterpkite šią formulę.
=SQRT((E6-C6)^2 + (F6-D6)^2)

Čia, G6 yra pradinis atstumo stulpelio langelis. Taip pat, C6, D6, E6 ir F6 ląstelės rodo pradinę ląstelę x 1 , x 2 , y 1, ir y 2 Be to, čia SQRT funkcija naudojama kvadratinei šakniai rasti.

  • Galiausiai vilkite Užpildymo rankena likusią stulpelio dalį ir gausite atstumus.

2. VBA kodo taikymas atstumui tarp dviejų koordinačių apskaičiuoti "Excel" programoje

Taip pat galite naudoti VBA kodą, kad sukurtumėte funkciją atstumui kartezinėje koordinačių sistemoje apskaičiuoti ir tada ją naudotumėte skaičiavimams. Dabar atlikite toliau nurodytus veiksmus, kad tai padarytumėte.

Žingsniai :

  • Pirmiausia paspauskite ALT + F11 atidaryti VBA langas.
  • Dabar pasirinkite Šis sąsiuvinis ir Dešiniuoju pelės klavišu spustelėkite ant jo.
  • Tada nuosekliai pasirinkite Įdėkite > Modulis .

  • Šiuo metu nukopijuokite šį kodą ir įklijuokite jį į tuščią langelį. 
 'Šis kodas sukurs funkciją, skirtą atstumui Dekartinėje koordinačių sistemoje apskaičiuoti Public Function DistCartesian(x1 As Double, y1 As Double, x2 As Double, y2 As Double) 'Naudojame aritmetinę formulę atstumui apskaičiuoti, kad sukurtume funkciją A = (x2 - x1) ^ 2 + (y2 - y1) ^ 2 DistCartesian = Math.Sqr(A) End Function

  • Po to paspauskite F5 kodui paleisti. Čia šis kodas sukūrė naują funkciją DistCartesian kuris padės jums apskaičiuoti atstumą tarp dviejų koordinačių kartezinėje plokštumoje.
  • Dabar pasirinkite ląstelę G6 ir įterpkite šią formulę.
=DistCartesian(C6,D6,E6,F6)

Šios funkcijos argumentai yra šie x 1 , y 1 , x 2, ir y 2 atitinkamai.

  • Galiausiai vilkite Užpildymo rankena likusioms ląstelėms.

Skaityti daugiau: Kaip apskaičiuoti atstumą tarp dviejų GPS koordinačių programoje "Excel

2 atstumo tarp dviejų koordinačių apskaičiavimo "Excel" programa metodai (geodezinių koordinačių sistema)

Tarkime, kad geodezinių koordinačių sistemoje turite dviejų skirtingų vietovių platumą ir ilgumą. atstumas tarp šių dviejų vietų .

1. Aritmetinės formulės naudojimas atstumui apskaičiuoti

Vienas iš greičiausių būdų apskaičiuoti atstumą - aritmetinę formulę atstumui apskaičiuoti pateikti rankiniu būdu. Dabar atlikite toliau nurodytus veiksmus, kad apskaičiuotumėte atstumą tarp dviejų koordinačių geodezinių koordinačių sistemoje.

Žingsniai :

  • Pirmiausia pridėkite stulpelį Atstumas (mylios) .
  • Tada pasirinkite langelį G6 ir įterpkite šią formulę.
=ACOS(COS(RADIANS(90-C6))*COS(RADIANS(90-E6))+SIN(RADIANS(90-C6))*SIN(RADIANS(90-E6))*COS(RADIANS(D6-F6)))*3959

Čia, C6 , D6, E6, ir F6 nurodyti pirmuosius stulpelio langelius Platuma 1 (°) , Ilguma 1 (°) , Platuma 2 (°), ir Ilguma 2 (°) atitinkamai.

⧬ Formulės paaiškinimas

Pagal šią formulę:

  • RADIJŲ funkcija naudojamas konvertuoti reikšmę, esančią Laipsniai (°) vienetą į reikšmę, esančią Radian vienetas.
  • COS funkcija naudojamas kampo kosinusui rasti.
  • SIN funkcija naudojamas kampo sinusui rasti.
  • ACOS funkcija naudojamas skaičiaus arkosinusui arba atvirkštiniam kosinusui grąžinti.
  • Galiausiai, skaičius 3959 padauginama iš į gauti atstumą Miles . Vietoj to galite padauginkite iš 6371 gauti rezultatą Kilometrai .

  • Galiausiai vilkite Užpildymo rankena likusią stulpelio dalį, kad sužinotumėte atstumus.

Skaityti daugiau: Kaip apskaičiuoti atstumą tarp dviejų miestų programoje "Excel

2. VBA kodo taikymas atstumui tarp dviejų koordinačių apskaičiuoti "Excel" programoje

Taip pat galite naudoti VBA kodą, kad sukurtumėte funkciją atstumui geodezinių koordinačių sistemoje apskaičiuoti, o tada ją naudokite skaičiavimams atlikti. Dabar atlikite toliau nurodytus veiksmus, kad tai padarytumėte.

Žingsniai :

  • Pirmiausia paspauskite ALT + F11 atidaryti VBA langas.
  • Dabar pasirinkite Šis sąsiuvinis ir Dešiniuoju pelės klavišu spustelėkite ant jo.
  • Tada nuosekliai pasirinkite Įdėkite > Modulis .

  • Įterpę modulį, nukopijuokite toliau pateiktą kodą ir įklijuokite jį į tuščią vietą. 
 "Šis kodas sukurs funkciją, skirtą atstumui (mylioms) geodezinių koordinačių sistemoje apskaičiuoti Public Function DistGeo(Lati1 As Double, Longi1 As Double, Lati2 As Double, Longi2 As Double) With WorksheetFunction P = Cos(.Radians(90 - Lati1)) Q = Cos(.Radians(90 - Lati2)) R = Sin(.Radians(90 - Lati1)) S = Sin(.Radians(90 - Lati2)) T = Cos(.Radians(Longi1 - Longi2)) 'Pakeiskite 3959 į 6371, kad gautumėte savorezultatas kilometais DistGeo = .Acos(P * Q + R * S * T) * 3959 End With End Function

  • Šiuo metu paspauskite F5 paleisti kodą. Taip sukursite naują funkciją DistGeo kuri padės apskaičiuoti atstumą Geodezinių koordinačių sistema .
  • Po to pasirinkite ląstelę G6 ir užrašykite šią formulę.

=DistGeo(C6,D6,E6,F6)

Šiuo atveju argumentai DistGeo funkcija yra 1 platuma (°), 1 ilguma (°), 2 platuma (°), ir Ilguma 2 (°) atitinkamai.

  • Galiausiai vilkite Užpildymo rankena likusiems stulpelio langeliams.

Skaityti daugiau: Kaip apskaičiuoti atstumą tarp dviejų adresų "Excel" programoje

Išvada

Galiausiai, bet ne mažiau svarbu, tikiuosi, kad šiame straipsnyje radote tai, ko ieškojote. Jei turite kokių nors klausimų, parašykite komentarą žemiau. Jei norite perskaityti daugiau panašių straipsnių, galite apsilankyti mūsų svetainėje ExcelWIKI .

Ankstesnis įrašas Kaip įterpti bendrą eilutę "Excel" programoje (4 paprasti metodai)
Kitas įrašas Kaip "Excel" programoje pridėti pavienes kabutes (5 paprasti metodai)

Hugh Westas yra labai patyręs Excel treneris ir analitikas, turintis daugiau nei 10 metų patirtį šioje srityje. Jis yra įgijęs apskaitos ir finansų bakalauro bei verslo administravimo magistro laipsnius. Hugh turi aistrą mokymui ir sukūrė unikalų mokymo metodą, kurį lengva sekti ir suprasti. Jo ekspertinės žinios apie „Excel“ padėjo tūkstančiams studentų ir specialistų visame pasaulyje tobulinti savo įgūdžius ir tobulėti savo karjeroje. Savo tinklaraštyje Hugh dalijasi savo žiniomis su pasauliu, siūlydamas nemokamus „Excel“ vadovėlius ir internetinius mokymus, kad padėtų asmenims ir įmonėms išnaudoti visą savo potencialą.