Excel má širokou škálu aplikací. A při používání VBA pak se zdá, že si v Excelu můžeme dělat, co chceme. Takže samozřejmě můžeme zjistit vzdálenost mezi místy pomocí mapy v Excelu. V tomto článku ukážu rychlý návod na výpočet vzdálenosti v Excelu pomocí Map Google s ostrými kroky a přehlednými ilustracemi.

Stáhnout cvičebnici

Bezplatný sešit Excelu si můžete stáhnout zde a procvičit se sami.

Použití funkce definované uživatelem k výpočtu vzdálenosti v aplikaci Excel pomocí Map Google

Zde budeme zjistit vzdálenost mezi MacArthur Parkem a Jersey City pomocí Google Maps.

Nejprve musíme vědět důležitou věc. Abychom mohli v aplikaci Excel vypočítat vzdálenost pomocí Map Google, budeme potřebovat kód API klíč. API znamená Rozhraní pro programování aplikací . Excel se s Mapami Google spojí pomocí klíče API pro sběr požadovaných dat. Některé mapy poskytují klíče API zdarma, jako například Bing Maps. Mapy Google však API zdarma neposkytují. I když se vám podaří API zdarma nějakým způsobem, nebude to fungovat dokonale. Budete si tedy muset zakoupit klíč API. API klíč z tohoto odkazu.

Zde se mi podařilo zdarma API Nefunguje to správně, jen to slouží jako příklad. Použijeme klávesu VBA vytvořit uživatelsky definovaná funkce s názvem Calculate_Distance na zjistit vzdálenost . Bude mít tři argumenty. Výchozí místo , Cílová destinace a Klíč API . Nyní začneme s procedurami.

Kroky:

• Tisk ALT + F11 otevřít Okno VBA .

• Poté klikněte na následující tlačítko: Vložit> Modul vytvořit nový modul.

• Později zadejte do okna následující kódy.

 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 

• Pak už nic, jen se vraťte do svého listu.

Rozdělení kódu:

• Nejprve jsem použil proceduru Public Function Calculate_Distance .
• Pak deklaroval některé proměnné první_hodnota, druhá_hodnota a poslední_hodnota pro argumenty naší uživatelsky definované funkce.
• Nastavte hodnoty proměnných (každá hodnota je samopopisná) a nastavte proměnnou mitHTTP objekt v ServerXMLHTTP využívat GET (používá se později, tato vlastnost objektu umožní použít metodu POST také metoda).
• Url je kombinace všech dříve nastavených hodnot, vlastnost open u položky mitHTTP objekt použil.
• Po přiřazení hodnot provede knihovní funkce zbytek výpočtu.

Nyní vidíte, že naše funkce je připravena k použití.

• Na adrese Buňka C8 , zadejte následující vzorec-

• Nakonec stačí stisknout tlačítko ENTER Tlačítko pro zjištění vzdálenosti. Zobrazí se vzdálenost v okně Měřicí jednotka .

Přečtěte si více: Jak vypočítat dojezdovou vzdálenost mezi dvěma adresami v aplikaci Excel

Výhody a nevýhody při výpočtu vzdálenosti pomocí Map Google

• Musíte mít platné Klíč API .
• Výše uvedený kód poskytne výstup v Měřicí jednotka .
• Uživatelsky definovaná funkce používá přímo názvy míst, není třeba používat souřadnice.
• Ujistěte se, že jste použili platné místo.

Výhody a nevýhody výpočtu vzdálenosti pomocí Map Google

Výhody

• Pro několik velkých míst je to docela dobře proveditelné, protože můžeme použít Plnicí rukojeť nástroj pro kopírování vzorce. To není možné v programu Mapy Google
• Je to docela rychlý způsob.
• Není třeba používat souřadnice.

Nevýhody

• Nemůže pracovat se souřadnicemi.
• Nezobrazí se vám mapa ani trasa, pouze vzdálenost.
• S přibližnou shodou názvů míst nebude fungovat.

Závěr

Doufám, že výše popsané postupy budou dostatečně dobré pro výpočet vzdálenosti v Excelu s Mapami Google. Neváhejte se zeptat na jakoukoli otázku v sekci komentářů a prosím o zpětnou vazbu. Navštivte. ExcelWIKI prozkoumat více.