Το Excel έχει ένα ευρύ φάσμα εφαρμογών. VBA τότε φαίνεται ότι μπορούμε να κάνουμε ό,τι θέλουμε στο Excel. Έτσι, φυσικά, μπορούμε να να βρείτε την απόσταση μεταξύ τόπων χρησιμοποιώντας έναν χάρτη στο Excel. Σε αυτό το άρθρο, θα σας δείξω έναν γρήγορο οδηγό για τον υπολογισμό της απόστασης στο Excel με τους Χάρτες Google με σαφή βήματα και σαφείς απεικονίσεις.

Κατεβάστε το βιβλίο ασκήσεων

Μπορείτε να κατεβάσετε το δωρεάν βιβλίο εργασίας του Excel από εδώ και να εξασκηθείτε μόνοι σας.

Χρήση μιας συνάρτησης που ορίζεται από το χρήστη για τον υπολογισμό της απόστασης στο Excel με τους χάρτες Google

Εδώ, θα βρείτε την απόσταση μεταξύ MacArthur Park και Jersey City χρησιμοποιώντας το Google Maps.

Για να υπολογίσουμε την απόσταση στο Excel χρησιμοποιώντας το Google Maps, θα χρειαστούμε ένα API κλειδί. API σημαίνει Διεπαφή προγραμματισμού εφαρμογών . το Excel συνδέεται με τους Χάρτες Google χρησιμοποιώντας το κλειδί API για τη συλλογή των απαιτούμενων δεδομένων. Ορισμένοι χάρτες παρέχουν δωρεάν κλειδιά API, όπως οι Χάρτες Bing. Αλλά οι Χάρτες Google δεν παρέχουν δωρεάν API. Παρόλο που διαχειρίζεστε ένα δωρεάν API με κάποιο τρόπο που δεν θα λειτουργεί τέλεια. Έτσι, θα πρέπει να αγοράσετε το API κλειδί από αυτόν τον σύνδεσμο.

Εδώ, κατάφερα να έχω ένα ελεύθερο API Δεν λειτουργεί σωστά, απλά χρησιμοποιείται για να δείξει ως παράδειγμα. Θα χρησιμοποιήσουμε το VBA για να δημιουργήσετε ένα συνάρτηση που ορίζεται από το χρήστη με το όνομα Υπολογισμός_Απόστασης στο βρείτε την απόσταση Θα έχει τρία επιχειρήματα- Θέση εκκίνησης , Προορισμός , και Κλειδί API Τώρα ας ξεκινήσουμε τις διαδικασίες.

Βήματα:

• Τύπος ALT + F11 για να ανοίξετε το Παράθυρο VBA .

• Στη συνέχεια, κάντε κλικ ως εξής: Εισαγωγή> Ενότητα για να δημιουργήσετε μια νέα ενότητα.

• Αργότερα, πληκτρολογήστε τους ακόλουθους κωδικούς στο παράθυρο-

 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 

• Τότε τίποτα, απλά επιστρέψτε στο φύλλο σας.

Ανάλυση κώδικα:

• Πρώτον, χρησιμοποίησα μια διαδικασία Public Function Υπολογισμός_Απόστασης .
• Στη συνέχεια δηλώνονται ορισμένες μεταβλητές first_Value, second_Value και last_Value για τα ορίσματα της συνάρτησης που ορίζει ο χρήστης.
• Ορίστε τις τιμές για τις μεταβλητές (κάθε τιμή είναι αυτοπεριγραφική) και ορίστε την mitHTTP αντικείμενο στο ServerXMLHTTP να χρησιμοποιήσει το GET (που θα χρησιμοποιηθεί αργότερα, αυτή η ιδιότητα αντικειμένου θα επιτρέψει τη χρήση της μεθόδου POST μέθοδο επίσης).
• Url είναι ο συνδυασμός όλων των τιμών που ορίστηκαν προηγουμένως, η ιδιότητα open του mitHTTP αντικείμενο το χρησιμοποίησε.
• Μετά την ανάθεση των τιμών, η συνάρτηση βιβλιοθήκης εκτελεί τον υπόλοιπο υπολογισμό.

Τώρα βλέπετε, η συνάρτησή μας είναι έτοιμη για χρήση.

• Στο Κύτταρο C8 , πληκτρολογήστε τον ακόλουθο τύπο-

• Τέλος, απλά πατήστε το πλήκτρο ENTER για να λάβετε την απόσταση. Θα εμφανιστεί η απόσταση στο πεδίο Μονάδα μετρητή .

Διαβάστε περισσότερα: Πώς να υπολογίσετε την απόσταση οδήγησης μεταξύ δύο διευθύνσεων στο Excel

Πλεονεκτήματα και μειονεκτήματα κατά τον υπολογισμό της απόστασης με τους Χάρτες Google

• Πρέπει να έχετε έγκυρο Κλειδί API .
• Ο παραπάνω κώδικας θα δώσει την έξοδο στο Μονάδα μετρητή .
• Η συνάρτηση που ορίζεται από τον χρήστη χρησιμοποιεί απευθείας τα ονόματα τόπων, χωρίς να χρειάζεται να χρησιμοποιηθούν συντεταγμένες.
• Βεβαιωθείτε ότι έχετε χρησιμοποιήσει έγκυρη θέση.

Πλεονεκτήματα και μειονεκτήματα του υπολογισμού της απόστασης με τους Χάρτες Google

Πλεονεκτήματα

• Για ένα μεγάλο ζευγάρι θέσεων, είναι αρκετά εφικτό, επειδή μπορούμε να χρησιμοποιήσουμε το Χειρολαβή πλήρωσης εργαλείο για να αντιγράψετε τον τύπο. Αυτό δεν είναι δυνατό στο Χάρτες Google
• Είναι ένας αρκετά ταχύτερος τρόπος.
• Δεν χρειάζεται να χρησιμοποιήσετε συντεταγμένες.

Μειονεκτήματα

• Δεν μπορεί να λειτουργήσει με συντεταγμένες.
• Δεν θα λάβετε τον χάρτη ή τη διαδρομή, αλλά μόνο την απόσταση.
• Δεν θα λειτουργήσει με την κατά προσέγγιση αντιστοιχία των τοπωνυμίων.

Συμπέρασμα

Ελπίζω ότι οι διαδικασίες που περιγράφονται παραπάνω θα είναι αρκετά καλές για τον υπολογισμό της απόστασης στο Excel με τους χάρτες Google. Μη διστάσετε να κάνετε οποιαδήποτε ερώτηση στην ενότητα σχολίων και παρακαλώ δώστε μου ανατροφοδότηση. Επισκεφτείτε το. ExcelWIKI για να εξερευνήσετε περισσότερα.