Το Microsoft Excel είναι ένα πολύ ευέλικτο πρόγραμμα υπολογιστικών φύλλων. Προσφέρεται για να κάνει ένα τόσο ευρύ φάσμα εργασιών που δεν μπορείτε καν να φανταστείτε. Μπορείτε ακόμη και να υπολογίσετε την απόσταση οδήγησης μεταξύ δύο διευθύνσεων στο Excel. Εάν έχετε μια λίστα διευθύνσεων για να βρείτε τη διαφορά μεταξύ τους, μπορείτε φυσικά να χρησιμοποιήσετε το MS Excel. Μπορείτε επίσης να υπολογίσετε την απόσταση με το χέρι. Αλλά αυτό θα είναι πολύ χρονοβόρο. Καθώς έχετεεκατοντάδες χιλιάδες αποστάσεις προς υπολογισμό. Έτσι, σε αυτό το άρθρο, θα σας δείξω πώς να υπολογίσετε την απόσταση οδήγησης μεταξύ δύο διευθύνσεων στο Excel.

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

Μπορείτε να κατεβάσετε το αρχείο Excel από τον ακόλουθο σύνδεσμο και να εξασκηθείτε μαζί του.

2 αποτελεσματικοί τρόποι υπολογισμού της απόστασης οδήγησης μεταξύ δύο διευθύνσεων στο Excel

1. Χρήση τριγωνομετρικών συναρτήσεων για τον υπολογισμό της απόστασης οδήγησης

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

Για να σας δώσω ένα παράδειγμα, πήρα δύο διευθύνσεις. Η πρώτη διεύθυνση είναι MacArthur Park, Camden NSW, Αυστραλία Το γεωγραφικό πλάτος και μήκος του είναι 34.06312149 και -118.2783975 Η δεύτερη διεύθυνση είναι Jersey City, New Jersey, ΗΠΑ Το γεωγραφικό πλάτος και μήκος του είναι 40.71799929 και -74.04276812 αντίστοιχα.

Τώρα, θα συνδυάσω το ACOS , COS , SIN , &, RADIANS Ο τύπος θα υπολογίζει ουσιαστικά την απόσταση οδήγησης μεταξύ δύο διευθύνσεων σε μίλια.

Γι' αυτό,

❶ Επιλέξτε κελί D8 πρώτον.

❷ Στη συνέχεια, εισάγετε τον ακόλουθο τύπο στο κελί.

❸ Μετά από αυτό, πατήστε το πλήκτρο ENTER κουμπί.

Τώρα, θα δείτε ότι ο τύπος έχει υπολογίσει την απόσταση οδήγησης μεταξύ των MacArthur Park, Camden NSW, Αυστραλία, και Jersey City, New Jersey, ΗΠΑ σε μίλια. Έτσι, θα δείτε το αποτέλεσμα στο κελί D8 η οποία είναι 2445.270922 μίλια.

Κατανομή τύπου

• COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) - το RADIANS μετατρέπουν τις τιμές σε ακτίνια και οι συναρτήσεις COS παρέχει το συνημίτονο των τιμών, τα συνημίτονα για το γεωγραφικό πλάτος πολλαπλασιάζονται στη συνέχεια. Έξοδος - 0.365377540842758
• COS(RADIANS(D6-D5)) - παρέχει την τιμή του συνημιτόνου της διαφοράς γεωγραφικού μήκους μεταξύ των δύο διευθύνσεων. Έξοδος - 0.716476936499882

• SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) - υπολογίζει την εκτροπή των γεωγραφικών μηκών από τα 90 ακτίνια και πολλαπλασιάζει τις τιμές του ημιτόνου. Έξοδος - 0.627884682513118

• SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) *COS(RADIANS(D6-D5)) - γίνεται 0,627884682513118 * 0,716476936499882. Έξοδος - 0.449864893802199

• COS(ΑΚΤΊΝΕΣ(90-C6)) *COS(ΑΚΤΊΝΕΣ(90-C5)) +SIN(ΑΚΤΊΝΕΣ(90-C6)) *SIN(ΑΚΤΊΝΕΣ(90-C5)) *COS(ΑΚΤΊΝΕΣ(D6-D5)) - γίνεται 0,365377540842758 * 0,449864893802199. Έξοδος - 0.815242434644958

• Τότε η ACOS η συνάρτηση arccosines την τιμή. Έξοδος - 0.617648629071256

• Τέλος, πολλαπλασιάζοντας την τιμή με 3959 - 0.617648629071256 *3959 παρέχει το αποτέλεσμα σε μίλια. Έξοδος - 2445.270922

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

2. Υπολογισμός της απόστασης οδήγησης μεταξύ δύο διευθύνσεων με χρήση κώδικα VBA

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

Εδώ, χρησιμοποιώ δύο διευθύνσεις. Η πρώτη διεύθυνση είναι MacArthur Park, Camden NSW, Αυστραλία Το γεωγραφικό πλάτος και μήκος του είναι 34.06312149 και -118.2783975 Η δεύτερη διεύθυνση είναι Jersey City, New Jersey, ΗΠΑ Το γεωγραφικό πλάτος και μήκος του είναι 40.71799929 και -74.04276812 αντίστοιχα.

Στο θα δημιουργήσω συντεταγμένες για κάθε μια από τις διευθύνσεις. Μια συντεταγμένη είναι ένας συνδυασμός γεωγραφικού πλάτους και γεωγραφικού μήκους. Για να δημιουργήσετε μια συντεταγμένη,

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

Έτσι, η συντεταγμένη της πρώτης διεύθυνσης είναι 34.0631214903094,-118.27839753751 Και η συντεταγμένη της δεύτερης διεύθυνσης είναι 40.7179992930381,-74.0427681204225 .

Το VBA ο κώδικας απαιτεί ένα API ενός χάρτη για τον υπολογισμό της απόστασης οδήγησης. API σημαίνει Application Programming Interface. Μπορείτε να χρησιμοποιήσετε ένα API για να συνδέσετε είτε το Χάρτης Google ή το Χάρτης Bing ό,τι προτιμάτε.

Αλλά η δημιουργία του Google Map API Αντίθετα, μπορείτε να δημιουργήσετε ένα API του Χάρτης Bing δωρεάν.

Έτσι, χρησιμοποιώ το API Bing MAP εδώ.

• Για να δημιουργήσετε ένα δωρεάν API Bing MAP , κάντε κλικ εδώ .

Έχω δημιουργήσει ένα API . επισυνάπτω το API παρακάτω:

Τώρα, ήρθε η ώρα να γράψετε το VBA κωδικός. Γι' αυτό,

• Τύπος ALT + F11 για να ανοίξετε το Επεξεργαστής VBA .
• Τώρα πηγαίνετε στο Εισαγωγή ➤ Ενότητα για να ανοίξετε μια νέα ενότητα.

Μετά το άνοιγμα του Επεξεργαστής VBA , παρεμβάλλεται το ακόλουθο κείμενο VBA κώδικα στην ανοιχτή ενότητα.

 Option Explicit Public Function Driving_Distance(startlocation As String, destination As String, keyvalue As String) Dim First_Value As String, Second_Value As String, Last_Value As String, mitHTTP As Object, mitUrl As String First_Value = "//dev.virtualearth.net/REST/v1/Routes/DistanceMatrix?origins=" Second_Value = "&destinations=" Last_Value = "&travelMode=driving&o=xml&key="& keyvalue & "&distanceUnit=mi" Set mitHTTP = CreateObject("MSXML2.ServerXMLHTTP") mitUrl = First_Value & startlocation &- Second_Value &- destination &- Last_Value mitHTTP.Open "GET", mitUrl, False mitHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" mitHTTP.Send ("") Driving_Distance =Round(Round(WorksheetFunction.FilterXML(mitHTTP.ResponseText, "//TravelDistance"), 3), 0) End Function 

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

• Εδώ, δημιούργησα μια συνάρτηση που ορίζεται από το χρήστη και ονομάζεται Απόσταση οδήγησης.
• Στη συνέχεια χρησιμοποίησα 3 παραμέτρους: τοποθεσία εκκίνησης , προορισμός , και keyvalue. Αυτές είναι η θέση των δύο διευθύνσεων και η API τιμή αντίστοιχα.
• Στη συνέχεια χρησιμοποίησα διάφορες μεταβλητές όπως First_Value , Second_Value , Τελευταία_τιμή , mitHTTP , &, mitUrl. Αυτές οι μεταβλητές χρησιμοποιούνται για την αποθήκευση διαφορετικών τιμών.
• Στη συνέχεια, συνδυάζονται οι τιμές (αποθηκευμένες στο mitUrl ) και χρησιμοποίησε διάφορες μεθόδους αντικειμένων ( Ανοίξτε το , SetRequestHeader , Στείλτε ). Έτσι κατάφερα να υπολογίσω την απόσταση οδήγησης μέσω του API .

Αυτό το VBA ο κώδικας δημιουργεί μια συνάρτηση που ορίζεται από το χρήστη και ονομάζεται Driving_Distance .

Η λειτουργία Driving_Distance απαιτεί 3 επιχειρήματα συνολικά.

Εδώ είναι η γενική σύνταξη της εντολής Driving_Distance λειτουργία.

Τώρα, ήρθε η ώρα να εφαρμόσουμε τη συνάρτηση που ορίζει ο χρήστης. Για το σκοπό αυτό,

• Επιλέξτε κελί E10 .
• Στη συνέχεια, εισάγετε τον ακόλουθο τύπο:

• Τώρα, πατήστε ENTER .

Κατανομή τύπου

• E5 είναι η Συντεταγμένη_θέσης_έναρξης .
• E6 είναι η Συντεταγμένη θέσης_τέλους .
• C8 είναι η API του Χάρτης Bing .

Η συνάρτηση υπολογίζει την απόσταση οδήγησης μεταξύ δύο διευθύνσεων σε μίλια. Ελέγξτε το κελί E10 . Θα δει τον αριθμό, 2790 .

Έτσι, η απόσταση οδήγησης μεταξύ MacArthur Park, Camden NSW, Αυστραλία, και Jersey City, New Jersey, ΗΠΑ είναι 2790 μίλια.

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

Τμήμα πρακτικής

Θα λάβετε ένα φύλλο Excel όπως το ακόλουθο στιγμιότυπο οθόνης, στο τέλος του παρεχόμενου αρχείου Excel, όπου μπορείτε να εξασκηθείτε σε όλες τις μεθόδους που αναλύονται σε αυτό το άρθρο.

Συμπέρασμα

Συνοψίζοντας, συζήτησα 2 τρόπους για τον υπολογισμό της απόστασης οδήγησης μεταξύ δύο διευθύνσεων στο Excel. Και μη διστάσετε να θέσετε οποιεσδήποτε ερωτήσεις στο τμήμα σχολίων παρακάτω. Θα προσπαθήσουμε να απαντήσουμε σε όλα τα σχετικά ερωτήματα το συντομότερο δυνατό. Και παρακαλούμε επισκεφθείτε την ιστοσελίδα μας Exceldemy για να εξερευνήσετε περισσότερα.