Excel ir plašs lietojumprogrammu klāsts. Un, izmantojot VBA tad šķiet, ka mēs varam darīt visu, ko vien vēlamies Excel programmā. Tātad, protams, mēs varam atrast attālumu starp vietām Izmantojot karti programmā Excel. Šajā rakstā es parādīšu ātru ceļvedi, lai aprēķinātu attālumu programmā Excel ar Google Maps, izmantojot asus soļus un skaidras ilustrācijas.

Lejupielādēt Practice Workbook

No šejienes varat lejupielādēt bezmaksas Excel darba burtnīcu un praktizēties patstāvīgi.

Lietotāja definētas funkcijas izmantošana, lai aprēķinātu attālumu programmā Excel, izmantojot Google Maps

Šeit mēs atrast attālumu starp Makarturu parku un Džersitiju, izmantojot Google Maps.

Vispirms mums ir jāzina svarīga lieta. Lai aprēķinātu attālumu programmā Excel, izmantojot Google Maps, mums būs nepieciešams API atslēga. API apzīmē Lietojumprogrammēšanas saskarne . Excel savienojas ar Google Maps, izmantojot API atslēgu nepieciešamo datu vākšanai. Dažas kartes nodrošina bezmaksas API atslēgas, piemēram, Bing Maps. Bet Google Maps nenodrošina bezmaksas API. Lai gan jūs pārvaldāt bezmaksas API, tas kaut kādā veidā nedarbosies perfekti. Tātad jums būs jāpērk. API atslēgu no šīs saites.

Šeit man ir izdevies bezmaksas API taustiņš. Tas nedarbojas pareizi, tikai izmantots, lai parādītu kā piemēru. Mēs izmantosim VBA lai izveidotu lietotāja definēta funkcija ar nosaukumu Aprēķināt_attālumu uz atrast attālumu . Tam būs trīs argumenti - Sākuma vieta , Galamērķis , un API atslēga . Tagad sāksim procedūras.

Soļi:

• Preses ALT + F11 lai atvērtu VBA logs .

• Pēc tam noklikšķiniet uz šādas norādes: Ievietot> Modulis lai izveidotu jaunu moduli.

• Vēlāk logā ievadiet šādus kodus-

 Public Function Calculate_Distance(start As String, dest As String, Alink As String) As Double Dim first_Value As String, second_Value As String, last_Value As String Dim mitHTTP As Object first_Value = "//maps.googleapis.com/maps/api/distancematrix/json?origins=" second_Value = "&destinations=" last_Value = "&mode=car&language=pl&sensor=false&key=" & Alink Set mitHTTP =CreateObject("MSXML2.ServerXMLHTTP") Url = first_Value & Replace(start, " ", "+") & second_Value & Replace(dest, " ", "+") & last_Value mitHTTP.Open "GET", Url, False mitHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" mitHTTP.Send ("") If InStr(mitHTTP.ResponseText, """distance"" : {") = 0 Then GoTo ErrorHandl Set mit_reg =CreateObject("VBScript.RegExp"): mit_reg.Pattern = """value"".*?([0-9]+)": mit_reg.Global = False Set mit_matches = mit_reg.Execute(mitHTTP.ResponseText) tmp_Value = Replace(mit_matches(0).Submit_matches(0), ".", Application.International(xlListSeparator)) Calculate_Distance = CDbl(tmp_Value) Exit Function ErrorHandl: Calculate_Distance = -1 End Function 

• Tad nekas, vienkārši atgriezieties pie savas lapas.

Koda sadalījums:

• Pirmkārt, es izmantoju publisko funkciju procedūru Aprēķināt_attālumu .
• Tad deklarēja dažus mainīgos first_Value, second_Value un last_Value. mūsu lietotāja definētās funkcijas argumentiem.
• Iestatiet mainīgo lielumu vērtības (katra vērtība ir pašaprakstoša) un iestatiet mainīgo lielumu mitHTTP objekts ServerXMLHTTP izmantot GET metodi (izmantos vēlāk, šī objekta īpašība ļaus izmantot POST metode).
• Url ir visu iepriekš iestatīto vērtību kombinācija, atvērtā īpašība mitHTTP objekts to izmantoja.
• Pēc vērtību piešķiršanas bibliotēkas funkcija veic pārējos aprēķinus.

Tagad redzat, ka mūsu funkcija ir gatava lietošanai.

• In Šūna C8 , ierakstiet šādu formulu-

• Visbeidzot, vienkārši nospiediet IEVADIET pogu, lai iegūtu attālumu. Tas parādīs attālumu Mērītāja vienība .

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

Priekšrocības un trūkumi, aprēķinot attālumu ar Google Maps

• Jums ir jābūt derīgam API atslēga .
• Iepriekš minētais kods sniegs izvades rezultātu Mērītāja vienība .
• Lietotāja definētā funkcija tieši izmanto vietu nosaukumus, nav nepieciešams izmantot koordinātas.
• Pārliecinieties, ka esat izmantojis derīgu vietu.

Attāluma aprēķināšanas priekšrocības un trūkumi, izmantojot Google Maps

Priekšrocības

• Lieliem pāris vietām tas ir diezgan iespējams, jo mēs varam izmantot Uzpildes rokturis rīku, lai kopētu formulu. Tas nav iespējams programmā Google Maps
• Tas ir diezgan ātrāks veids.
• Nav nepieciešams izmantot koordinātas.

Trūkumi

• Tas nevar darboties ar koordinātēm.
• Jūs nesaņemsiet karti vai maršrutu, bet tikai attālumu.
• Tas nedarbosies, ja vietu nosaukumi aptuveni sakrīt.

Secinājums

Es ceru, ka iepriekš aprakstītās procedūras būs pietiekami labas, lai aprēķinātu attālumu programmā Excel ar Google Maps. Lūdzu, uzdodiet jebkuru jautājumu komentāru sadaļā un, lūdzu, sniedziet man atsauksmes. Apmeklējiet. ExcelWIKI lai izpētītu vairāk.