Πώς να υπολογίσετε την απόσταση μεταξύ δύο πόλεων στο Excel

  • Μοιραστείτε Αυτό
Hugh West

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

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

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

Υπολογισμός απόστασης μεταξύ δύο πόλεων.xlsm

Εισαγωγή συνόλου δεδομένων

Για να υπολογίσουμε την απόσταση μεταξύ δύο πόλεων, πρέπει πρώτα να προετοιμάσουμε το σύνολο δεδομένων. Ας υποθέσουμε ότι έχουμε δύο πόλεις Λος Άντζελες η οποία είναι μια μεγάλη πόλη στην πολιτεία της Καλιφόρνια , και Pasco η οποία είναι η πόλη της Ουάσιγκτον Τώρα, πρέπει να βρούμε την απόσταση μεταξύ τους. Για το σκοπό αυτό, πρέπει να γνωρίζουμε το γεωγραφικό πλάτος και γεωγραφικό μήκος των δύο πόλεων. Μπορούμε απλά να βρούμε το γεωγραφικό πλάτος και μήκος οποιασδήποτε πόλης με το Excel. Ας δούμε πώς μπορούμε να το κάνουμε αυτό.

ΒΗΜΑΤΑ:

  • Πρώτον, επιλέξτε το κελί όπου βάζουμε το όνομα των πόλεων. Στην περίπτωσή μας, επιλέγουμε τα κελιά B5 , και B6 .
  • Δεύτερον, πηγαίνετε στο Δεδομένα από την κορδέλα.
  • Τρίτον, στο Τύποι δεδομένων κατηγορία κάντε κλικ στο Γεωγραφία .

  • Στη συνέχεια, για να βρείτε το γεωγραφικό πλάτος, επιλέξτε το κελί στο οποίο τοποθετήσατε το γεωγραφικό πλάτος και πληκτρολογήστε εκεί τον τύπο.
=B5.Latitude

  • Τύπος Εισάγετε το για να δείτε το αποτέλεσμα.

  • Ομοίως, βρίσκουμε το γεωγραφικό πλάτος του κελιού B6 .
  • Τώρα, για να βρείτε το γεωγραφικό μήκος, ομοίως, το γεωγραφικό πλάτος, επιλέξτε ένα κελί και βάλτε τον ακόλουθο τύπο σε αυτό το κελί.
=B5.Longitude

  • Πατήστε το Εισάγετε το στο πληκτρολόγιό σας.

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

5 διαφορετικές μέθοδοι υπολογισμού της απόστασης μεταξύ δύο πόλεων στο Excel

Η εύρεση της απόστασης μεταξύ δύο τόπων θα μας επιτρέψει στη συνέχεια να προσδιορίσουμε την απόσταση μεταξύ δύο κατοικιών. Μπορούμε να εκτιμήσουμε πόσο χρόνο θα μας πάρει να ταξιδέψουμε μεταξύ κατοικιών χρησιμοποιώντας αυτές τις πληροφορίες. Για να βρούμε την απόσταση μεταξύ δύο πόλεων χρησιμοποιούμε το παραπάνω σύνολο δεδομένων που μόλις φτιάξαμε.

1. Εφαρμόστε τον τύπο Haversine για τον υπολογισμό της απόστασης μεταξύ δύο πόλεων

Μια από τις θεμελιώδεις εξισώσεις για την εξερεύνηση των ωκεανών είναι η Φόρμουλα Haversine , το οποίο μπορεί να χρησιμοποιηθεί για τον υπολογισμό της απόστασης μεταξύ δύο θέσεων σε ένα σφαιρικό επίπεδο, εφόσον προσδιορίσετε το γεωγραφικό πλάτος και μήκος τους, καθώς και την ακτίνα του ημισφαιρίου. GPS συσκευές την έχουν ουσιαστικά αυτοματοποιήσει. Ας ακολουθήσουμε τα βήματα για να χρησιμοποιήσουμε τον τύπο για να υπολογίσουμε την απόσταση μεταξύ δύο πόλεων.

ΒΗΜΑΤΑ:

  • Αρχικά, επιλέξτε το κελί στο οποίο θέλετε να πάρετε την απόσταση, έτσι, επιλέγουμε το κελί C8 .
  • Στη συνέχεια, βάλτε το Φόρμουλα Haversine σε αυτό το επιλεγμένο κελί.
=3959*ASIN(SQRT((SIN(C6-C5)/2)^2+COS(C5)*COS(C6)*(SIN(D6-D5)/2)^2))

  • Τέλος, πατήστε το πλήκτρο Εισάγετε το για να δείτε το αποτέλεσμα.

  • Έτσι, με τη χρήση του τύπου έχουμε το αποτέλεσμα 1367.581282 .

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

2. Υπολογισμός της απόστασης μεταξύ δύο πόλεων με τις συναρτήσεις ACOS, SIN, COS και RADIANS του Excel

Το αντίστροφο συνημίτονο μιας τιμής είναι αυτό που η λειτουργία ACOS Το ημίτονο μιας γωνίας σε ακτίνια επιστρέφεται από την εντολή η συνάρτηση SIN του Excel Το συνημίτονο μιας γωνίας σε ακτίνια επιστρέφεται από τη σχέση η λειτουργία COS Τα ακτίνια μετατρέπονται σε μοίρες χρησιμοποιώντας η συνάρτηση RADIANS του Excel Μπορούμε να συνδυάσουμε αυτές τις συναρτήσεις για να πάρουμε την απόσταση μεταξύ δύο πόλεων. Επίσης, έχει αυτοματοποιηθεί βασικά με τη χρήση του GPS συσκευές. Ας εφαρμόσουμε τον συνδυασμό αυτών των συναρτήσεων για να βρούμε την απόσταση μεταξύ δύο πόλεων, ακολουθώντας τα βήματα.

ΒΗΜΑΤΑ:

  • Αρχικά, επιλέξτε το κελί στο οποίο θέλετε να μετρήσετε την απόσταση- στην προκειμένη περίπτωση, επιλέγουμε το κελί C8 .
  • Στη συνέχεια, εισάγετε τον συνδυασμό του τύπου της συνάρτησης στο επιλεγμένο κελί.
=ACOS(COS(RADIANS(90-C5)) *COS(RADIANS(90-C6)) +SIN(RADIANS(90-C5)) *SIN(RADIANS(90-C6)) *COS(RADIANS(D5-D6))) *6371

  • Για να δείτε το αποτέλεσμα, πατήστε το κουμπί Εισάγετε το στο τέλος.

  • Έτσι, εφαρμόζοντας τον τύπο, καταλήγουμε στον αριθμό 1357.033633 .

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

3. Συνδυάστε τις λειτουργίες CONCATENATE και SUBSTITUTE του Excel για να λάβετε την απόσταση μεταξύ δύο πόλεων

Για να συνδυάσετε δύο ή και περισσότερες ακολουθίες λέξεων σε μία φράση, χρησιμοποιήστε η συνάρτηση κειμένου CONCATENATE . Περίπου τριάντα κομμάτια κειμένου μπορούν να ενωθούν χρησιμοποιώντας το Excel CONCATENATE η οποία επιστρέφει το αποτέλεσμα ως κείμενο. Η συνάρτηση SUBSTITUTE του excel χρησιμοποιεί τη σύγκριση για να τροποποιήσει το κείμενο σε μια καθορισμένη συμβολοσειρά. Μπορούμε να συνδυάσουμε αυτές τις δύο συναρτήσεις για να δημιουργήσουμε μια Χάρτης Google σύνδεσμο για να βρείτε το απόσταση μεταξύ δύο διευθύνσεων χρησιμοποιώντας. Ας χρησιμοποιήσουμε τον τύπο για να βρούμε την απόσταση μεταξύ δύο πόλεων, ακολουθώντας τα βήματα.

ΒΗΜΑΤΑ:

  • Ομοίως, στην προηγούμενη μέθοδο, επιλέξτε το κελί όπου θέλετε να αποκτήσετε το Χάρτης Google ; σε αυτή την περίπτωση, επιλέγουμε το κελί C8 .
  • Στη συνέχεια, εισαγάγετε τον τύπο σε αυτό το επιλεγμένο κελί.

=CONCATENATE("//maps.google.co.uk/maps?f=d&source=s_d&saddr=",

SUBSTITUTE(B5," ", "+"),"&daddr=",SUBSTITUTE(B6," ", "+"))

  • Για να εμφανίσετε τα αποτελέσματα, πατήστε το πλήκτρο Εισάγετε το κλειδί.

Με τη βοήθεια αυτής της φόρμουλας, μπορείτε να συνδεθείτε με ένα Χάρτης Google που δείχνει τη διαδρομή από Λος Άντζελες στο Pasco Οι πόλεις θα προστεθούν στο σύνδεσμο χρησιμοποιώντας το CONCATENATE και τα ονόματα των πόλεων θα προστεθούν χρησιμοποιώντας τη συνάρτηση ΥΠΟΚΑΤΑΣΤΑΣΗ λειτουργία.

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

Το CONCATENATE και ΥΠΟΚΑΤΑΣΤΑΣΗ μπορούν επίσης να χρησιμοποιηθούν στο Excel για τον προσδιορισμό της απόστασης μεταξύ δύο πόλεων στον πλανήτη.

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

4. Δημιουργία της συνάρτησης LAMBDA για τον υπολογισμό της απόστασης μεταξύ δύο πόλεων

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

Η βασική εξίσωση για την απόσταση είναι:

D = acos (sinΦ 1 . sinΦ 2 + cosΦ 1 . cosΦ 2 cos Δλ) . R

Ακόμα και αν μπορεί να φαίνεται λίγο υπερβολικό, οι εισροές που έχουν μεγαλύτερη σημασία για εμάς είναι:

  • Το γεωγραφικό πλάτος και μήκος του σημείου εκκίνησης.
  • Το γεωγραφικό πλάτος και μήκος της τελικής θέσης.

Έτσι, στον τύπο ή την εξίσωση.

  • Δλ υποδηλώνει τη διαφορά μεταξύ των γεωγραφικών μηκών ( lon_2-lon_1 ).
  • Φ 1 και Φ 2 υποδεικνύουν διαδοχικά lat_1 και lat_2 .
  • R υποδεικνύει την ακτίνα της επιφάνειας.

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

ΒΗΜΑΤΑ:

  • Πρώτον, επιλέξτε το κελί C8 .
  • Επιπλέον, τοποθετήστε τον τύπο σε αυτό το κελί.
=LAMBDA(_lat1, _lon1, _lat2, _lon2, LET(lat_1, RADIANS(_lat1),lon_1, RADIANS(_lon1),lat_2,RADIANS(_lat2),lon_2, RADIANS(_lon2),r, 6378,ACOS((SIN(lat_1) * SIN(lat_2)) + (COS(lat_1) * COS(lat_2) * COS(lon_2-lon_1))) * r)))(C5,D5,C6,D6)

  • Στη συνέχεια, πατήστε Εισάγετε το .

  • Αυτό θα δείξει το αποτέλεσμα, αλλά ο τύπος είναι πολύ μεγάλος και μπορεί να είναι δύσκολο να τον καταλάβετε, ενώ τον χρησιμοποιείτε πολλές φορές.
  • Έτσι, αντί να το κάνουμε αυτό, μπορούμε να δημιουργήσουμε έναν προσαρμοσμένο τύπο χρησιμοποιώντας την εντολή LAMBDA λειτουργία.
  • Για το σκοπό αυτό, μεταβείτε στο Τύποι από την κορδέλα.
  • Σύμφωνα με το Καθορισμένα ονόματα ομάδα, κάντε κλικ στο Όνομα Διαχειριστής .

  • Αυτό θα εμφανίσει το Όνομα Διαχειριστής παράθυρο διαλόγου.
  • Τώρα, κάντε κλικ στο Νέο μενού.

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

=LAMBDA(_lat1, _lon1, _lat2, _lon2, LET(lat_1, RADIANS(_lat1),lon_1, RADIANS(_lon1),lat_2,RADIANS(_lat2),lon_2, RADIANS(_lon2),r, 6378,ACOS((SIN(lat_1) * SIN(lat_2)) + (COS(lat_1) * COS(lat_2) * COS(lon_2-lon_1))) * r)))

  • Στη συνέχεια, κάντε κλικ στο OK .

  • Αυτό θα σας μεταφέρει στο όνομα Διαχειριστής διάλογο ξανά.
  • Επιπλέον, κάντε κλικ στο Κλείστε το για να ολοκληρώσετε τη διαδικασία.

  • Τώρα, μπορείτε να βρείτε μια νέα προσαρμοσμένη λειτουργία CityDistance Και χρησιμοποιώντας τη συνάρτηση θα λάβετε την απόσταση μεταξύ δύο πόλεων.

  • Έτσι, εφαρμόζοντας τον τύπο, καταλήγουμε στον αριθμό 1358.524645 .

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

5. Υπολογισμός της απόστασης μεταξύ δύο πόλεων χρησιμοποιώντας το Excel VBA

Κάνοντας μια API ( Διεπαφή προγραμματισμού εφαρμογών ) σύνδεση και τη χρήση της για τη δημιουργία ενός Λειτουργία που ορίζεται από τον χρήστη στην VBA είναι δύο άλλοι τρόποι για τον προσδιορισμό της απόστασης μεταξύ δύο τοποθεσιών. Για να συγκεντρώσει δεδομένα για μια τοποθεσία, το Excel συνδέεται μέσω του API σε οποιονδήποτε χάρτη, συμπεριλαμβανομένου Χάρτης Google και Χάρτης Bing Επομένως, για να χρησιμοποιήσουμε αυτή την τεχνική, πρέπει πρώτα να καθορίσουμε ένα API Αυτό είναι πραγματικά απλό, αλλά δυστυχώς, μόνο Χάρτης Bing προσφέρει δωρεάν API , όχι η Google. Θα αποδείξουμε αυτόν τον τρόπο χρησιμοποιώντας το δωρεάν API χάρτη Bing κλειδί. Κάντε κλικ εδώ για να δημιουργήσετε το δικό σας Κλειδί API χάρτη Bing .

ΒΗΜΑΤΑ:

  • Αρχικά, δημιουργήσαμε ένα API και το τοποθέτησε στο κελί C8 .

  • Τώρα, πηγαίνετε στο Προγραμματιστής από την κορδέλα.
  • Στη συνέχεια, από το Κωδικός κατηγορία, κάντε κλικ στο Visual Basic για να ανοίξετε το Visual Basic Editor . ή πατήστε Alt + F11 για να ανοίξετε το Visual Basic Editor .

  • Αντί να το κάνετε αυτό, μπορείτε απλά να δεξί κλικ στο στο φύλλο εργασίας σας και πηγαίνετε στο Προβολή κωδικού Αυτό θα σας μεταφέρει επίσης στο Visual Basic Editor .

  • Αυτό θα εμφανιστεί στο Visual Basic Editor .
  • Επιπλέον, κάντε κλικ στο Ενότητα από το Εισαγωγή αναπτυσσόμενη γραμμή μενού.

  • Αυτό θα δημιουργήσει ένα Ενότητα στο βιβλίο εργασίας σας.
  • Και, αντιγράψτε και επικολλήστε το Κώδικας VBA φαίνεται παρακάτω.

Κωδικός VBA:

 Option Explicit Public Function CityDistance(First_City As String, Second_City As String, _ Target_Value As String) Dim Initial_Point As String, Ending_Point As String, _ Distance_Unit As String, Setup_HTTP As Object, Output_Url As String Initial_Point = "//dev.virtualearth.net/REST/v1/Routes/DistanceMatrix?origins=" Ending_Point = "&destinations=" Distance_Unit ="&travelMode=driving&o=xml&key=" &- Target_Value &- "&distanceUnit=km" Set Setup_HTTP = CreateObject("MSXML2.ServerXMLHTTP") Output_Url = Initial_Point &- First_City &- Ending_Point &- Second_City &- Distance_Unit Setup_HTTP.Open "GET", Output_Url, False Setup_HTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" Setup_HTTP.Send("") CityDistance = Round(Round(WorksheetFunction.FilterXML(Setup_HTTP.ResponseText, _ "//TravelDistance"), 3), 0) End Function 
  • Αποθηκεύστε τον κώδικα, αποθηκεύοντας ολόκληρο το βιβλίο εργασίας ως βιβλίο εργασίας με δυνατότητα μικροεπεξεργασίας και η επέκταση θα είναι .xlsm .

  • Αυτό θα δημιουργήσει ένα όνομα συνάρτησης που έχει οριστεί από το χρήστη CityDistance .

Επεξήγηση κώδικα VBA

  • Ξεκινήσαμε δίνοντας το Λειτουργία το όνομα CityDistance . Πρώτη πόλη As String, Δεύτερη Πόλη As String, και Αξία-στόχος As String συμπεριλήφθηκαν επίσης ως ορίσματα.
  • Στη συνέχεια δηλώσαμε Ρύθμιση HTTP ως αντικείμενο και Αρχικό σημείο , Σημείο λήξης , Μονάδα απόστασης , και Url εξόδου ως Strings.
  • Αργότερα, αλλάξαμε το Μονάδα απόστασης στο χιλιόμετρο και Αρχικό σημείο στο σημείο εκκίνησης της Url σύνδεσμος.
  • Στη συνέχεια, ορίζουμε τις παραμέτρους που απαιτούνται για τη δημιουργία μιας σύνδεσης μεταξύ των Κώδικας VBA και το API .
  • Στη συνέχεια δημιουργήσαμε το Λειτουργία που ορίζεται από τον χρήστη .

Συμπέρασμα

Οι παραπάνω μέθοδοι θα σας βοηθήσουν Υπολογισμός απόστασης μεταξύ δύο πόλεων στο Excel Ελπίζω αυτό να σας βοηθήσει! Παρακαλούμε ενημερώστε μας στο τμήμα σχολίων αν έχετε οποιεσδήποτε ερωτήσεις, προτάσεις ή σχόλια. Ή μπορείτε να ρίξετε μια ματιά στα άλλα άρθρα μας στην ενότητα ExcelWIKI.com blog!

Ο Hugh West είναι ένας εξαιρετικά έμπειρος εκπαιδευτής και αναλυτής του Excel με πάνω από 10 χρόνια εμπειρίας στον κλάδο. Είναι κάτοχος πτυχίου Λογιστικής και Χρηματοοικονομικής και μεταπτυχιακού στη Διοίκηση Επιχειρήσεων. Ο Hugh έχει πάθος για τη διδασκαλία και έχει αναπτύξει μια μοναδική προσέγγιση διδασκαλίας που είναι εύκολο να ακολουθηθεί και να κατανοηθεί. Οι εξειδικευμένες γνώσεις του στο Excel έχουν βοηθήσει χιλιάδες φοιτητές και επαγγελματίες παγκοσμίως να βελτιώσουν τις δεξιότητές τους και να διαπρέψουν στην καριέρα τους. Μέσω του ιστολογίου του, ο Hugh μοιράζεται τις γνώσεις του με τον κόσμο, προσφέροντας δωρεάν μαθήματα Excel και διαδικτυακή εκπαίδευση για να βοηθήσει άτομα και επιχειρήσεις να αξιοποιήσουν πλήρως τις δυνατότητές τους.