Πώς να υπολογίσετε τις αποστάσεις μεταξύ ταχυδρομικοί κώδικες σε VBA

κωδικούς ZIP είναι ένα αριθμητικό σύστημα για την επισήμανση γεωγραφικές περιοχές στις Ηνωμένες Πολιτείες . ZIP είναι ένα αρκτικόλεξο που ξεχωρίζει για τη Ζώνη Σχέδιο Βελτίωσης , αναφορά στην ιδέα ότι η χρήση τους πενταψήφιο αριθμό , θα αυξήσει την αποτελεσματικότητα στην διανομή της αλληλογραφίας σε όλη τη χώρα . Είναι χρήσιμο να βρουν την απόσταση μεταξύ δύο δεδομένων κωδικούς ZIP για διάφορους σκοπούς , συμπεριλαμβανομένων των ταξιδιωτικών σχεδιασμού , και υλικοτεχνικής υποδομής . Συχνά , λογιστικά φύλλα θα περιέχει στοιχεία όπως το ταξίδι δρομολόγια , τα οποία έχουν ταχυδρομικοί κώδικες , έτσι ώστε να μπορεί να είναι χρήσιμη για τον υπολογισμό αυτών των αποστάσεων που χρησιμοποιούν τις παρεχόμενες ταχυδρομικοί κώδικες . Οδηγίες
Η 1

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

Ορισμός zip1 = " 12345 "

Set Zip2 = " 54321 " 2

Πληκτρολογήστε τον ακόλουθο κώδικα στο πλαίσιο ταχυδρομικό σας κώδικα αξιών δήλωση :

Set objHTTP = CreateObject ( " MSXML2.ServerXMLHTTP " )

URL = " http://maps.google.com/maps/nav?output=js&oe=utf8&q=from : " & zip1 & " + στο : " & Zip2

objHTTP.Open "GET " , URL , False

objHTTP.setRequestHeader " User-Agent " , " Mozilla/4.0 (compatible ? MSIE 6.0 ? Windows NT 5.0 ) "

objHTTP.send ( " " )
εικόνων 3

Πατήστε F5 για να εκτελέσετε τη μακροεντολή σας και να επιστρέψετε την απόσταση μεταξύ των δύο ταχυδρομικοί κώδικες .
Η
εικόνων