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

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

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

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

Στο σύνολο δεδομένων μας, έχουμε Γεωγραφικό πλάτος και Γεωγραφικό μήκος για το Οχάιο και Αλάσκα Θα μετρήσουμε την απόσταση μεταξύ τους.

Το Γεωγραφικά πλάτη για το Οχάιο και Αλάσκα είναι 40.4173 Βόρεια και 64.2008 Βόρεια αντίστοιχα. Επίσης, η Γεωγραφικά μήκη για το Οχάιο και Αλάσκα είναι 82.9071 Δυτικά και 149.4937 Δύση αντίστοιχα.

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

Εάν είστε καλός στα μαθηματικά, χρησιμοποιώντας Φόρμουλα Haversine Αν και θα σας δώσει ένα κατά προσέγγιση αποτέλεσμα, είναι αρκετά καλό.

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

S = rθ

S = Απόσταση μεταξύ δύο διευθύνσεων

r = Ακτίνα της Γης

θ = Γωνία που εισάγεται στο κέντρο της Γης από τις δύο διευθύνσεις

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

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

Ας σας παρουσιάσουμε τις παραμέτρους του Φόρμουλα Haversine .

φ ₁ = Γεωγραφικό πλάτος του πρώτου τόπου

φ ₂ = Γεωγραφικό πλάτος της δεύτερης θέσης

ℽ ₁ = Γεωγραφικό μήκος του πρώτου τόπου

ℽ ₂ = Γεωγραφικό πλάτος της δεύτερης θέσης

Τώρα, θα σας δείξω πώς να εφαρμόσετε αυτόν τον τύπο στο Excel βήμα προς βήμα.

Βήματα:

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

=2*6400*ASIN(SQRT((SIN(C6-C5)/2)^2+COS(C5)*COS(C6)*(SIN(D6-D5)/2)^2))

Ο τύπος χρησιμοποιεί ASIN , SQRT , SIN και COS λειτουργίες . Είναι πολύ απλό αν κοιτάξετε απλά το Φόρμουλα Haversine Μετράμε την απόσταση σε χιλιόμετρα , οπότε βάζουμε την ακτίνα της γης σε χιλιόμετρα που είναι 6400 χιλιόμετρα . ASIN αναφέρεται στο αντίστροφο ημίτονο ή το ArcSine Αν συγκρίνουμε τις γωνίες των παραμέτρων των Φόρμουλα Haversine με τον τύπο του Excel, έχουμε,

₁ = Γεωγραφικό πλάτος του Οχάιο (C5)

₂ = Γεωγραφικό πλάτος της Αλάσκας (C6)

ℽ ₁ = Γεωγραφικό μήκος του Οχάιο (D5)

ℽ ₂ = Γεωγραφικό πλάτος της Αλάσκας (D6)

• Μετά από αυτό, πατήστε το πλήκτρο ENTER για να δείτε την απόσταση μεταξύ Οχάιο και Αλάσκα στο Χιλιόμετρα .

• Στη συνέχεια, αν θέλετε να να μετρήσετε την απόσταση σε μίλια , χρησιμοποιήστε τον ακόλουθο τύπο στο κελί C8 .

=2*3959*ASIN(SQRT((SIN(C6-C5)/2)^2+COS(C5)*COS(C6)*(SIN(D6-D5)/2)^2))

Εδώ, χρησιμοποιήσαμε τον ίδιο τύπο του Excel που χρησιμοποιήσαμε για να βρούμε την απόσταση σε miles Για το λόγο αυτό, λαμβάνουμε την ακτίνα της γης σε miles η οποία είναι 3959 .

Έτσι μπορείτε να υπολογίσετε το απόσταση μεταξύ δύο διευθύνσεων της γης στο Excel εφαρμόζοντας το Φόρμουλα Haversine .

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

2. Εφαρμογή των λειτουργιών CONCATENATE και SUBSTITUTE του Excel για τον υπολογισμό της απόστασης μεταξύ δύο διευθύνσεων

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

Βήματα:

• Αρχικά, πληκτρολογήστε τον ακόλουθο τύπο στο C8 .

=CONCATENATE("//maps.google.co.uk/maps?f=d&source=s_d&saddr=", SUBSTITUTE(B5," ", "+"),"&daddr=",SUBSTITUTE(B6," ", "+"))

Αυτός ο τύπος θα δημιουργήσει ένα Χάρτης Google σύνδεσμο για το πώς μπορείτε να ταξιδέψετε από Οχάιο στο Αλάσκα . CONCATENATE συνάρτηση θα προσθέσει το διευθύνσεις στο σύνδεσμο και το ΥΠΟΚΑΤΑΣΤΑΣΗ συνάρτηση θα τοποθετήσει το όνομα του διευθύνσεις .

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

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

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

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

3. Χρήση της VBA για τον υπολογισμό της απόστασης μεταξύ δύο διευθύνσεων στο Excel

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

Βήματα:

• Πρώτον, μεταβείτε στη διεύθυνση Προγραμματιστής >>, Visual Basic .

• Μετά από αυτό, επιλέξτε Εισαγωγή >>, Ενότητα για να ανοίξετε το Ενότητα VBA .

• Αργότερα, πληκτρολογήστε τον ακόλουθο κώδικα στο Ενότητα VBA Δημιουργούμε ένα Λειτουργία που ορίζεται από τον χρήστη για να υπολογίσετε απόσταση στο miles .

 Option Explicit Public Function DistanceInMiles(First_Location As String, _ Final_Location 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=mi" Set Setup_HTTP = CreateObject("MSXML2.ServerXMLHTTP") Output_Url = Initial_Point &- First_Location &- Ending_Point &- Final_Location &- 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 ("") DistanceInMiles = Round(Round(WorksheetFunction.FilterXML(Setup_HTTP.ResponseText, _ "//TravelDistance"), 3), 0) End Function 

Επεξήγηση κωδικού

• Πρώτον, ονομάσαμε το Λειτουργία ως DistanceInMiles . Εισάγουμε επίσης 3 παράμετροι: First_Location As String, Final_Location As String και Target_Value As String .
• Μετά από αυτό, δηλώσαμε Αρχικό_σημείο , Ending_Point , Distance_Unit και Outout_Url ως Συμβολοσειρά ; Setup_HTTP ως Αντικείμενο .
• Αργότερα, ορίσαμε Αρχικό_σημείο ως την έναρξη του Σύνδεσμος Url , Ending_Point ως Προορισμός και Distance_Unit στο Miles .
• Μετά από αυτό, ρυθμίζουμε τις απαραίτητες παραμέτρους για να δημιουργήσουμε μια σχέση μεταξύ των VBA κώδικα και το API
• Τέλος, καθιερώσαμε το Λειτουργία που ορίζεται από τον χρήστη .

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

Μπορείτε να δείτε ότι, μόλις αλλάξαμε το Distance_Unit στο χιλιόμετρα .

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

• Στη συνέχεια, πληκτρολογήστε τον ακόλουθο τύπο στο κελί C8 .

=DistanceInMiles(E5,E6,C8)

• Στη συνέχεια, πατήστε το πλήκτρο ENTER και θα δείτε το κουμπί απόσταση μεταξύ Οχάιο και Αλάσκα στο miles .

• Μετά από αυτό, χρησιμοποιήστε τον ακόλουθο τύπο για να δείτε το απόσταση στο χιλιόμετρο .

=DistanceInKM(E5,E6,C8)

Έτσι, μπορείτε να υπολογίσετε το απόσταση μεταξύ δύο διευθύνσεων χρησιμοποιώντας VBA και API κλειδί.

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

Πράγματα που πρέπει να θυμάστε

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

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

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

Συμπέρασμα

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