Excel a une large gamme d'applications. Et tout en utilisant VBA alors il semble que nous pouvons faire tout ce que nous voulons dans Excel. Donc, bien sûr, nous pouvons trouver la distance entre des lieux Dans cet article, je vais montrer un guide rapide pour calculer la distance dans Excel avec Google Maps avec des étapes précises et des illustrations claires.

Télécharger le cahier d'exercices

Vous pouvez télécharger le classeur Excel gratuit à partir d'ici et vous entraîner par vous-même.

Utilisation d'une fonction définie par l'utilisateur pour calculer une distance dans Excel avec Google Maps

Ici, nous allons trouver la distance entre MacArthur Park et Jersey City en utilisant Google Maps.

Tout d'abord, nous devons savoir une chose importante : pour calculer la distance dans Excel à l'aide de Google Maps, nous avons besoin d'un fichier de type API clé. API signifie Interface de programmation d'applications Excel se connecte à Google Maps en utilisant la clé API pour collecter les données requises. Certaines cartes fournissent des clés API gratuites comme Bing Maps. Mais Google Maps ne fournit pas d'API gratuite. Même si vous gérez une API gratuite d'une manière ou d'une autre, cela ne fonctionnera pas parfaitement. Vous devrez donc acheter la clé API de Google Maps. API à partir de ce lien.

Ici, j'ai géré un libre API Il ne fonctionne pas correctement, il est juste utilisé pour montrer un exemple. Nous allons utiliser VBA pour créer un fonction définie par l'utilisateur nommé Calculer_Distance à trouver la distance Il aura trois arguments- Point de départ , Destination et Clé API Commençons maintenant les procédures.

Des pas :

• Appuyez sur ALT + F11 pour ouvrir le Fenêtre VBA .

• Ensuite, cliquez comme suit : Insérer> ; Module pour créer un nouveau module.

• Ensuite, tapez les codes suivants dans la fenêtre-

 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 = """valeur"".* ?([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 

• Alors rien, retournez à votre feuille.

Code Breakdown :

• D'abord, j'ai utilisé une procédure Public Function Calculer_Distance .
• Puis nous avons déclaré des variables première_Valeur, deuxième_Valeur et dernière_Valeur pour les arguments de notre fonction définie par l'utilisateur.
• Définissez les valeurs des variables (chaque valeur est auto-décrite), et définissez les valeurs de la variable mitHTTP objet dans ServeurXMLHTTP d'utiliser le GET (utilisée plus tard, cette propriété d'objet permettra d'utiliser la méthode POST également).
• Url est la combinaison de toutes les valeurs définies précédemment, la propriété d'ouverture de la mitHTTP objet l'a utilisé.
• Après avoir assigné les valeurs, la fonction bibliothèque effectue le reste du calcul.

Maintenant vous voyez, notre fonction est prête à être utilisée.

• Sur Cellule C8 tapez la formule suivante .

• Enfin, il suffit d'appuyer sur la touche ENTER pour obtenir la distance, qui s'affichera dans l'écran de l'UE. Unité de mesure .

Lire la suite : Comment calculer la distance en voiture entre deux adresses dans Excel ?

Avantages et inconvénients du calcul de la distance avec Google Maps

• Vous devez avoir un Clé API .
• Le code ci-dessus donnera la sortie dans le Unité de mesure .
• La fonction définie par l'utilisateur utilise directement les noms de lieux, sans avoir besoin d'utiliser les coordonnées.
• Assurez-vous que vous avez utilisé un lieu valable.

Avantages et inconvénients du calcul de la distance avec Google Maps

Avantages

• Pour un grand nombre d'endroits, c'est tout à fait faisable, car nous pouvons utiliser l'outil Poignée de remplissage pour copier la formule, ce qui n'est pas possible dans l'application Google Maps
• C'est un moyen assez rapide.
• Il n'est pas nécessaire d'utiliser des coordonnées.

Inconvénients

• Il ne peut pas fonctionner avec des coordonnées.
• Vous n'obtiendrez pas la carte ou l'itinéraire, mais seulement la distance.
• Cela ne fonctionnera pas avec la correspondance approximative des noms de lieux.

Conclusion

J'espère que les procédures décrites ci-dessus seront suffisantes pour calculer la distance dans Excel avec Google Maps. N'hésitez pas à poser vos questions dans la section des commentaires et à me faire part de vos réactions. Visitez le site. ExcelWIKI pour en savoir plus.