Microsoft Excel on erittäin monipuolinen taulukkolaskentaohjelma. Sillä voi tehdä niin monenlaisia tehtäviä, että et voi edes kuvitella. Voit jopa laskea kahden osoitteen välisen ajoetäisyyden Excelissä. Jos sinulla on luettelo osoitteista ja haluat löytää niiden välisen eron, voit tietysti käyttää MS Exceliä. Voit myös laskea etäisyyden manuaalisesti. Mutta se on liian aikaa vievää. Koska sinulla onTässä artikkelissa näytän sinulle, miten voit laskea kahden osoitteen välisen ajomatkan Excelissä.

Lataa harjoituskirja

Voit ladata Excel-tiedoston seuraavasta linkistä ja harjoitella sen avulla.

2 tehokasta tapaa laskea ajoetäisyys kahden osoitteen välillä Excelissä

1. Trigonometristen funktioiden käyttäminen ajomatkan laskemiseen

Täällä näytän sinulle yhdistää eri trigonometriset funktiot laskea kahden osoitteen välinen ajomatka Excelissä.

Esimerkkinä otan kaksi osoitetta. Ensimmäinen osoite on seuraava MacArthur Park, Camden NSW, Australia Sen leveys- ja pituusasteet ovat 34.06312149 ja -118.2783975 Toinen osoite on Jersey City, New Jersey, Yhdysvallat Sen leveys- ja pituusasteet ovat 40.71799929 ja -74.04276812 vastaavasti.

Nyt yhdistän ACOS , COS , SIN , & RADIANS Kaava laskee tehokkaasti kahden osoitteen välisen etäisyyden kilometreinä.

Sitä varten,

❶ Valitse solu D8 ensiksi.

❷ Lisää sitten soluun seuraava kaava.

❸ Paina sen jälkeen painiketta ENTER nappi.

Nyt näet, että kaava on laskenut ajoetäisyyden välillä MacArthur Park, Camden NSW, Australia, ja Jersey City, New Jersey, Yhdysvallat mailia. Näin ollen näet tuloksen solussa D8 joka on 2445.270922 mailia.

Kaavan erittely

• COS(RADIAANI(90-C6)) *COS(RADIAANI(90-C5)) - the... RADIANS funktiot muuttavat arvot radiaaneiksi ja COS funktio antaa arvojen kosinuksen, jolloin leveysasteen kosinukset kerrotaan. Lähtö - 0.365377540842758
• COS(RADIAANI(D6-D5)) - antaa näiden kahden osoitteen välisen pituuseron kosinusarvon. Lähtö - 0.716476936499882

• SIN(RADIAANI(90-C6)) *SIN(RADIAANI(90-C5)) - laskee pituuspiirien poikkeaman 90 radiaanista ja kertoo siniarvot. Lähtö - 0.627884682513118

• SIN(SÄDE(90-C6)) *SIN(SÄDE(90-C5)) *COS(SÄDE(D6-D5)) - on 0,627884682513118 * 0,716476936499882. Lähtö - 0.449864893802199

• COS(SÄDE(90-C6)) *COS(SÄDE(90-C5)) +SIN(SÄDE(90-C6)) *SIN(SÄDE(90-C5)) *COS(SÄDE(D6-D5)) - tulee 0,365377540842758 * 0,449864893802199. Lähtö - 0.815242434644958

• Sitten ACOS funktio arccosines arvo. Lähtö - 0.617648629071256

• Lopuksi kerrotaan arvo luvulla 3959 - 0.617648629071256 *3959 antaa tuloksen kilometreinä. Lähtö - 2445.270922

Lue lisää: Kuinka laskea mailit kahden osoitteen välillä Excelissä (2 menetelmää)

2. Laske ajoetäisyys kahden osoitteen välillä käyttämällä VBA-koodia.

Tässä jaksossa käytän VBA koodia käyttäjän määrittelemän funktion luomiseksi. Sitten käytän tätä funktiota kahden osoitteen välisen ajomatkan laskemiseen Excelissä.

Tässä käytän kahta osoitetta, joista ensimmäinen on seuraava. MacArthur Park, Camden NSW, Australia Sen leveys- ja pituusasteet ovat 34.06312149 ja -118.2783975 Toinen osoite on Jersey City, New Jersey, Yhdysvallat Sen leveys- ja pituusasteet ovat 40.71799929 ja -74.04276812 vastaavasti.

Koordinaatti on leveysasteen ja pituusasteen yhdistelmä. Koordinaatin luomiseksi. Koordinaatin luomiseksi,

• Kirjoita ensin osoitteen leveysaste.
• Lisää sitten pilkku.
• Kirjoita sen jälkeen saman osoitteen pituusaste.

Ensimmäisen osoitteen koordinaatti on siis 34.0631214903094,-118.27839753751 . Ja toisen osoitteen koordinaatti on 40.7179992930381,-74.0427681204225 .

The VBA koodi edellyttää API kartan avulla ajomatkan laskemiseksi. API tarkoittaa Application Programming Interface (sovellusohjelmointirajapinta). Voit käyttää API liittää joko Google Map tai Bing kartta mitä tahansa haluatte.

Mutta luomalla Google Map API on maksettu. Päinvastoin, voit luoda kappaletta API of the Bing MAP ilmaiseksi.

Näin ollen käytän Bing MAP API täällä.

• Luo ilmainen Bing MAP API , klikkaa tästä .

Olen luonut API . liitän liitteenä API alla:

Nyt on aika kirjoittaa VBA koodia. Siitä,

• Paina ALT + F11 avataksesi VBA-editori .
• Mene nyt osoitteeseen Lisää ➤ Moduuli avataksesi uuden moduulin.

Kun olet avannut VBA-editori lisätään seuraava VBA koodi avatussa moduulissa.

 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 & aloituspaikka & Second_Value & määränpää & Last_Value mitHTTP.Open "GET", mitUrl, False mitHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (yhteensopiva; MSIE 6.0; Windows NT 5.0))" mitHTTP.Send ("") Driving_Distance =Round(Round(WorksheetFunction.FilterXML(mitHTTP.ResponseText, "//TravelDistance")), 3), 0) End Function 

Koodin erittely

• Tässä olen luonut käyttäjän määrittelemän funktion nimeltä Ajoetäisyys.
• Sitten käytin 3 parametria: aloituspaikka , kohde ja avainarvo. Nämä ovat kahden osoitteen sijainti ja osoitteet. API arvo vastaavasti.
• Sitten käytin useita muuttujia, kuten First_Value , Second_Value , Last_value , mitHTTP , & mitUrl. Näitä muuttujia käytetään erilaisten arvojen tallentamiseen.
• Sen jälkeen yhdistetään arvot (jotka on tallennettu mitUrl ) ja käytti useita objektimenetelmiä ( Avaa , SetRequestHeader , Lähetä ). Näin onnistuin laskemaan ajoetäisyyden kautta. API .

Tämä VBA koodi luo käyttäjän määrittelemän funktion nimeltä Ajo_etäisyys .

Toiminto Ajo_etäisyys vaatii 3 argumenttia yhteensä.

Tässä on yleinen syntaksi komennolle Ajo_etäisyys toiminto.

Nyt on aika soveltaa käyttäjän määrittelemää funktiota. Sitä varten,

• Valitse solu E10 .
• Lisää sitten seuraava kaava:

• Paina nyt ENTER .

Kaavan erittely

• E5 on Aloitus_sijainti_koordinaatti .
• E6 on End_Location_Coordinate .
• C8 on API of the Bing MAP .

Funktio laskee kahden osoitteen välisen ajoetäisyyden maileina. Katso solu E10 Se näkee numeron, 2790 .

Joten ajomatka MacArthur Park, Camden NSW, Australia, ja Jersey City, New Jersey, Yhdysvallat on 2790 mailia.

Lue lisää: Kuinka laskea kahden osoitteen välinen etäisyys Excelissä (3 tapaa)

Harjoitusosio

Saat seuraavan kuvakaappauksen kaltaisen Excel-taulukon toimitetun Excel-tiedoston lopussa, jossa voit harjoitella kaikkia tässä artikkelissa käsiteltyjä menetelmiä.

Päätelmä

Yhteenvetona, olen keskustellut 2 tapaa laskea ajoetäisyys kahden osoitteen välillä Excelissä. Äläkä epäröi kysyä kysymyksiä alla olevassa kommenttiosassa. Yritämme vastata kaikkiin asiaankuuluviin kyselyihin mahdollisimman pian. Ja vieraile verkkosivuillamme. Exceldemy tutkia lisää.