Microsoft Excel je veľmi všestranný tabuľkový program. Ponúka na vykonávanie takej širokej škály úloh, že si to ani neviete predstaviť. V programe Excel môžete dokonca vypočítať vzdialenosť medzi dvoma adresami. Ak máte zoznam adries, medzi ktorými chcete zistiť rozdiel, môžete samozrejme použiť MS Excel. Vzdialenosť môžete vypočítať aj ručne. To však bude príliš zdĺhavé. Keďže máteStátisíce vzdialeností na výpočet. V tomto článku vám teda ukážem, ako v programe Excel vypočítať dojazdovú vzdialenosť medzi dvoma adresami.

Stiahnite si cvičebnicu

Súbor Excel si môžete stiahnuť z nasledujúceho odkazu a precvičiť si ho.

2 efektívne spôsoby výpočtu vzdialenosti medzi dvoma adresami v programe Excel

1. Používanie trigonometrických funkcií na výpočet vzdialenosti jazdy

Tu vám ukážem, ako kombinovať rôzne trigonometrické funkcie na výpočet vzdialenosti medzi dvoma adresami v programe Excel.

Ako príklad uvediem dve adresy. Prvá adresa je MacArthur Park, Camden Nový Južný Wales, Austrália Jeho zemepisná šírka a dĺžka sú 34.06312149 a -118.2783975 Druhá adresa je Jersey City, New Jersey, USA Jeho zemepisná šírka a dĺžka sú 40.71799929 a -74.04276812 resp.

Teraz skombinujem ACOS , COS , SIN , & RADIÁNI Funkcie na vytvorenie vzorca. Vzorec účinne vypočíta vzdialenosť jazdy medzi dvoma adresami v míľach.

Preto,

❶ Vybrať bunku D8 prvý.

❷ Potom do bunky vložte nasledujúci vzorec.

❸ Potom stlačte tlačidlo VSTÚPIŤ tlačidlo.

Teraz vidíte, že vzorec vypočítal jazdnú vzdialenosť medzi MacArthur Park, Camden, Nový Južný Wales, Austrália, a Jersey City, New Jersey, USA v míľach. Výsledok sa teda zobrazí v bunke D8 čo je 2445.270922 míľ.

Rozdelenie vzorca

• COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) - na RADIÁNI funkcie prepočítajú hodnoty na radiány a COS funkcia poskytuje kosínus hodnôt, kosínusy pre zemepisnú šírku sa potom vynásobia. Výstup - 0.365377540842758
• COS(RADIANS(D6-D5)) - poskytuje kosínusovú hodnotu rozdielu dĺžok medzi dvoma adresami. Výstup - 0.716476936499882

• SIN(RADIÁNY(90-C6)) *SIN(RADIÁNY(90-C5)) - vypočíta odklon dĺžok od 90 radiánov a vynásobí hodnoty sínusov. Výstup - 0.627884682513118

• SIN(RADIÁNY(90-C6)) *SIN(RADIÁNY(90-C5)) *COS(RADIÁNY(D6-D5)) - sa stáva 0,627884682513118 * 0,716476936499882. Výstup - 0.449864893802199

• COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) +SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) *COS(RADIANS(D6-D5)) - sa stáva 0,365377540842758 * 0,449864893802199. Výstup - 0.815242434644958

• Potom sa ACOS funkcia arccosines hodnotu. Výstup - 0.617648629071256

• Nakoniec sa hodnota vynásobí 3959 - 0.617648629071256 *3959 poskytuje výsledok v míľach. Výstup - 2445.270922

Prečítajte si viac: Ako vypočítať počet kilometrov medzi dvoma adresami v programe Excel (2 metódy)

2. Výpočet vzdialenosti medzi dvoma adresami pomocou kódu VBA

V tejto časti použijem VBA kód na vytvorenie používateľsky definovanej funkcie. Túto funkciu potom použijem na výpočet dojazdovej vzdialenosti medzi dvoma adresami v programe Excel.

Tu používam dve adresy. Prvá adresa je MacArthur Park, Camden Nový Južný Wales, Austrália Jeho zemepisná šírka a dĺžka sú 34.06312149 a -118.2783975 Druhá adresa je Jersey City, New Jersey, USA Jeho zemepisná šírka a dĺžka sú 40.71799929 a -74.04276812 resp.

V položke I vygeneruje súradnice pre každú z adries. Súradnica je kombináciou zemepisnej šírky a dĺžky. Ak chcete vygenerovať súradnicu,

• Najprv zadajte zemepisnú šírku adresy.
• Potom vložte čiarku.
• Potom zadajte zemepisnú dĺžku tej istej adresy.

Takže súradnica prvej adresy je 34.0631214903094,-118.27839753751 A súradnica druhej adresy je 40.7179992930381,-74.0427681204225 .

Stránka VBA kód vyžaduje API mapy na výpočet dojazdovej vzdialenosti. API je skratka pre aplikačné programovacie rozhranie. API pripojiť buď Mapa Google alebo Mapa Bing podľa toho, čo preferujete.

Ale vytvorenie Rozhranie Google Map API Naopak, môžete vytvoriť API z Bing MAPA bezplatne.

Preto používam Rozhranie API služby Bing MAP tu.

• Vytvorenie bezplatného Rozhranie API služby Bing MAP , kliknite sem .

Vytvoril som API . Pripájam API nižšie:

Teraz je čas napísať VBA kód. Na to,

• Tlač ALT + F11 otvoriť Editor VBA .
• Teraz prejdite na Vložte ➤ Modul otvoriť nový modul.

Po otvorení Editor VBA , vložte tento text VBA kód v otvorenom module.

 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 

Rozdelenie kódu

• Tu som vytvoril používateľom definovanú funkciu s názvom Driving_Distance.
• Potom som použil 3 parametre: počiatočná lokalita , destinácia a hodnota kľúča. Ide o polohu dvoch adries a API resp. hodnota.
• Potom som použil niekoľko premenných, ako napr. First_Value , Druhá_hodnota , Last_value , mitHTTP , & mitUrl. Tieto premenné sa používajú na ukladanie rôznych hodnôt.
• Potom skombinujte hodnoty (uložené v rámci mitUrl ) a použil niekoľko metód objektu ( Otvorte stránku , SetRequestHeader , Odoslať ). Takto sa mi podarilo vypočítať vzdialenosť jazdy cez API .

Táto stránka VBA kód generuje používateľom definovanú funkciu s názvom Driving_Distance .

Funkcia Driving_Distance vyžaduje 3 argumenty celkovo.

Tu je všeobecná syntax príkazu Driving_Distance funkcie.

Teraz je čas použiť používateľom definovanú funkciu. Na tento účel,

• Vybrať bunku E10 .
• Potom vložte nasledujúci vzorec:

• Teraz stlačte VSTÚPIŤ .

Rozdelenie vzorca

• E5 je Start_Location_Coordinate .
• E6 je End_Location_Coordinate .
• C8 je API z Bing MAPA .

Funkcia vypočíta vzdialenosť jazdy medzi dvoma adresami v míľach. Pozrite si bunku E10 . Zobrazí sa číslo, 2790 .

Takže dojazdová vzdialenosť medzi MacArthur Park, Camden, Nový Južný Wales, Austrália, a Jersey City, New Jersey, USA je . 2790 míľ.

Prečítajte si viac: Ako vypočítať vzdialenosť medzi dvoma adresami v programe Excel (3 spôsoby)

Praktická časť

Na konci poskytnutého súboru Excel sa zobrazí hárok programu Excel, ako je nasledujúci obrázok, v ktorom si môžete precvičiť všetky metódy uvedené v tomto článku.

Záver

Ak to zhrnieme, diskutoval som o 2 spôsoboch výpočtu vzdialenosti medzi dvoma adresami v programe Excel. A neváhajte položiť akékoľvek otázky v sekcii komentárov nižšie. Budeme sa snažiť odpovedať na všetky relevantné otázky čo najskôr. A navštívte našu webovú stránku Exceldemy preskúmať viac.