Excel'de İki Şehir Arasındaki Mesafe Nasıl Hesaplanır

  • Bunu Paylaş
Hugh West

Aşağıdakiler için çeşitli kullanımlar vardır Excel 'deki havalı özel fonksiyon ve formül Microsoft Excel gezegendeki iki belirli şehir veya konum arasındaki ayrımı belirleyebilir. mesafeyi hesaplayın Bir harita üzerinde herhangi iki yer arasındaki gerçek mesafeyi hesaplamanızı sağlar ve seyahatinizin ne kadar süreceği konusunda size iyi bir tahmin sunar. Ancak excel ile bunu kolayca yapabiliriz. Bu makalede, Excel'de iki şehir arasındaki mesafeyi hesaplamanın birkaç yolunu göstereceğiz.

Alıştırma Çalışma Kitabını İndirin

Çalışma kitabını indirebilir ve onlarla pratik yapabilirsiniz.

İki Şehir Arasındaki Mesafeyi Hesapla.xlsm

Veri Seti Tanıtımı

İki şehir arasındaki mesafeyi hesaplamak için öncelikle veri kümesini hazırlamamız gerekir. İki şehrimiz olduğunu varsayalım Los Angeles eyaletinde büyük bir şehir olan Kaliforniya ve Pasco şehri olan Washington Şimdi, aralarındaki mesafeyi bulmamız gerekiyor. Bunun için enlem ve boylam Excel ile herhangi bir şehrin enlem ve boylamını basitçe bulabiliriz. Bunu nasıl yapabileceğimizi görelim.

ADIMLAR:

  • İlk olarak, şehirlerin adını koyduğumuz hücreyi seçin. Bizim durumumuzda, hücreleri seçiyoruz B5 ve B6 .
  • İkinci olarak, şu adrese gidin Veri şeridinden sekmesini seçin.
  • Üçüncü olarak Veri Türleri kategorisine tıklayın Coğrafya .

  • Ardından, enlemi bulmak için enlemi koyduğunuz hücreyi seçin ve formülü buraya yazın.
=B5.Enlem

  • Basın Girin Sonucu görmek için.

  • Benzer şekilde, hücrenin enlemini buluruz B6 .
  • Şimdi, boylamı ve aynı şekilde enlemi bulmak için bir hücre seçin ve aşağıdaki formülü bu hücreye yerleştirin.
=B5.Boylam

  • Vur Girin tuşuna basın.

  • Benzer şekilde, biz de B6 'nin boylamını önceki adımları takip ederek belirleyin.
  • İşte bu kadar, artık her iki şehrin enlem ve boylamlarına sahibiz. Yani, veri setimiz artık kullanıma hazır.

Excel'de İki Şehir Arasındaki Mesafeyi Hesaplamak İçin 5 Farklı Yöntem

İki yer arasındaki mesafeyi bulmak, iki konut arasındaki ayrımı belirlememizi sağlayacaktır. Bu bilgiyi kullanarak evler arasında ne kadar sürede seyahat edeceğimizi tahmin edebiliriz. İki şehir arasındaki mesafeyi bulmak için yukarıda yaptığımız veri kümesini kullanıyoruz.

1. İki Şehir Arasındaki Mesafeyi Hesaplamak için Haversine Formülünü Uygulayın

Okyanus keşifleri için temel denklemlerden biri Haversine Formülü Bu, enlem ve boylamlarını ve ayrıca yarım kürenin yarıçapını belirlemeniz koşuluyla küresel bir düzlemdeki iki konum arasındaki mesafeyi hesaplamak için kullanılabilir. GPS İki şehir arasındaki mesafeyi hesaplamak için formülü kullanma adımlarını takip edelim.

ADIMLAR:

  • Başlamak için, mesafeyi almak istediğiniz hücreyi seçin, bu nedenle hücreyi seçiyoruz C8 .
  • Sonra, koy Haversine Formülü seçilen hücreye yerleştirin.
=3959*ASIN(SQRT((SIN(C6-C5)/2)^2+COS(C5)*COS(C6)*(SIN(D6-D5)/2)^2))

  • Son olarak, tuşuna basın. Girin tuşuna basarak sonucu görebilirsiniz.

  • Böylece, formülü kullanarak sonucu elde ederiz 1367.581282 .

Daha Fazla Oku: Excel'de İki Adres Arasındaki Sürüş Mesafesi Nasıl Hesaplanır

2. Excel ACOS, SIN, COS ve RADIANS Fonksiyonları ile İki Şehir Arasındaki Mesafeyi Hesaplayın

Bir değerin ters kosinüsü ACOS işlevi Bir açının radyan cinsinden sinüsü şu şekilde döndürülür Excel SIN fonksiyonu . radyan cinsinden bir açının kosinüsü şu şekilde döndürülür COS işlevi kullanılarak radyanlar derecelere dönüştürülür. Excel RADIANS işlevi İki şehir arasındaki mesafeyi elde etmek için bu fonksiyonları birleştirebiliriz. GPS İki şehir arasındaki mesafeyi bulmak için bu fonksiyonların kombinasyonunu adımları takip ederek uygulayalım.

ADIMLAR:

  • İlk olarak, mesafeyi elde etmek istediğiniz hücreyi seçin; bu durumda, hücreyi seçiyoruz C8 .
  • Bundan sonra, işlev formülünün kombinasyonunu seçilen hücreye ekleyin.
=ACOS(COS(RADIANS(90-C5)) *COS(RADIANS(90-C6)) +SIN(RADIANS(90-C5)) *SIN(RADIANS(90-C6)) *COS(RADIANS(D5-D6)) *6371

  • Sonucu görüntülemek için Girin en sondaki tuş.

  • Böylece, formülü uygulayarak şu sayıya ulaşırız 1357.033633 .

Daha fazlasını okuyun: Excel'de İki GPS Koordinatı Arasındaki Mesafe Nasıl Hesaplanır

3. İki Şehir Arasındaki Mesafeyi Almak için Excel CONCATENATE ve SUBSTITUTE İşlevlerini Birleştirin

İki veya daha fazla kelime dizisini tek bir ifadede birleştirmek için metin işlevi CONCATENATE . Yaklaşık olarak otuz metin parçaları Excel kullanılarak birleştirilebilir CONCATENATE fonksiyonu, sonucu bir metin olarak döndürür. SUBSTITUTE işlevi excel, belirtilen bir dizedeki metni değiştirmek için karşılaştırmayı kullanır. Bu iki işlevi birleştirerek bir Google Harita bulmak için bağlantı iki adres arasındaki mesafe kullanarak iki şehir arasındaki mesafeyi bulmak için formülden yararlanalım.

ADIMLAR:

  • Aynı şekilde, önceki yöntemde, aşağıdaki verileri almak istediğiniz hücreyi seçin Google Harita ; bu durumda, hücreyi seçiyoruz C8 .
  • Ardından, formülü seçilen hücreye girin.

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

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

  • Sonuçları görüntülemek için Girin Anahtar.

Bu formülün yardımıyla, bir Google Harita rotasını gösteren Los Angeles için Pasco kullanılarak şehirler bağlantıya eklenecektir. CONCATENATE fonksiyonu kullanılarak eklenecek ve şehirlerin isimleri YEDEK fonksiyon.

  • Daha sonra, bu iki şehrin birbirinden ne kadar uzakta olduğunu öğrenmek için tarayıcınızın arama kutusuna bu bağlantıyı girin.

Bu CONCATENATE ve YEDEK fonksiyonları Excel'de gezegendeki iki şehir arasındaki mesafeyi belirlemek için de kullanılabilir.

Daha fazlasını okuyun: Excel'de İki Adres Arasındaki Mil Nasıl Hesaplanır (2 Yöntem)

4. İki Şehir Arasındaki Mesafeyi Hesaplamak için LAMBDA Fonksiyonu Oluşturun

LAMBDA işlevi Excel'de, bir çalışma sayfasında kullanılabilen ve bilinen adlarla erişilebilen özelleştirilmiş işlevler oluşturmak için kullanılır. Tanımlandıktan ve bir ad verildikten sonra, bu işlevleri çalışma kitabımızın herhangi bir yerinde kullanabiliriz.

Mesafe için ana denklem şudur:

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

Biraz bunaltıcı görünse de, bizim için en önemli olan girdilerdir:

  • Başlangıç noktasının enlem ve boylamı.
  • Son konumun enlem ve boylamı.

Yani formülde veya denklemde.

  • Δλ boylamlar arasındaki farkı gösterir ( lon_2-lon_1 ).
  • Φ 1 ve Φ 2 sırayla gösterir lat_1 ve lat_2 .
  • R yüzeyin yarıçapını gösterir.

Hadi bir LAMBDA fonksiyonunu kullanarak aşağıdaki adımları izleyerek iki şehir arasındaki mesafeyi hesaplayabilirsiniz.

ADIMLAR:

  • İlk olarak, hücreyi seçin C8 .
  • Ayrıca, formülü bu hücreye yerleştirin.
=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)

  • Ardından, tuşuna basın Girin .

  • Bu sonucu gösterecektir, ancak formül çok büyüktür ve bunu birçok kez kullanırken anlamak zor olabilir.
  • Bu nedenle, bunu yapmak yerine, şu öğeleri kullanarak özelleştirilmiş bir formül oluşturabiliriz LAMBDA fonksiyon.
  • Bunun için şu adrese gidin Formüller şeridinden sekmesini seçin.
  • altında Tanımlanmış İsimler grubunda, üzerine tıklayın İsim Yöneticisi .

  • Bu, aşağıdakileri gösterecektir İsim Yöneticisi iletişim kutusu.
  • Şimdi, üzerine tıklayın Yeni Menü.

  • Bu sizi şu adrese götürecektir Yeni İsim Pencere.
  • Ayrıca, iki şehir arasındaki mesafeyi hesaplamak istediğimiz için formülü adlandırın, bu nedenle formülün adını koyarız ŞehirMesafesi .
  • Ardından, aşağıdaki formülü şu alana yerleştirin Şunları ifade eder .

=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))

  • Ardından, tıklayın TAMAM. .

  • Bu sizi şu adrese götürecektir İsim Yöneticisi Tekrar diyalog.
  • Ayrıca, aşağıdakilere tıklayın Kapat düğmesine basarak işlemi tamamlayın.

  • Şimdi, yeni bir özel fonksiyon bulabilirsiniz ŞehirMesafesi . fonksiyonunu kullanarak iki şehir arasındaki mesafeyi elde edersiniz.

  • Böylece, formülü uygulayarak şu sayıya ulaşırız 1358.524645 .

Daha Fazla Oku: Excel'de Levenshtein Uzaklığı Nasıl Hesaplanır (4 Kolay Yöntem)

5. Excel VBA Kullanarak İki Şehir Arasındaki Mesafeyi Hesaplama

Bir API ( Uygulama Programlama Arayüzü ) bağlantısı kurmak ve bunu bir Kullanıcı Tanımlı fonksiyon VBA'da iki konum arasındaki mesafeyi belirlemenin diğer iki yoludur. Bir konum için veri toplamak için Excel API dahil olmak üzere herhangi bir haritaya Google Harita ve Bing Harita Bu nedenle, bu tekniği kullanabilmek için öncelikle bir API Bu gerçekten çok basit, ama ne yazık ki sadece Bing Harita ücretsiz bir API Bu yolu, Google'ı değil, ücretsiz Bing Harita API'si Anahtar. Buraya tıklayın kendiniz yaratmak için Bing Harita API Anahtarı .

ADIMLAR:

  • Başlangıç olarak, bir API tuşuna basın ve hücreye yerleştirin C8 .

  • Şimdi, şu adrese git Geliştirici şeridinden sekmesini seçin.
  • Sonra da Kod kategorisinde, üzerine tıklayın Visual Basic açmak için Visual Basic Düzenleyicisi . veya basın Alt + F11 açmak için Visual Basic Düzenleyicisi .

  • Bunu yapmak yerine, sadece sağ tıklayın çalışma sayfanıza gidin ve Kodu Görüntüle Bu da sizi şu adrese götürecektir Visual Basic Düzenleyicisi .

  • Bu, şu adreste görünecektir Visual Basic Düzenleyicisi .
  • Ayrıca, şuraya tıklayın Modül bir şey yok. Ekleme açılır menü çubuğu.

  • Bu, bir Modül çalışma kitabınızda.
  • Ve, kopyalayıp yapıştırın VBA kodu aşağıda gösterilmiştir.

VBA Kodu:

 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" 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 
  • Tüm çalışma kitabını mikro özellikli bir çalışma kitabı olarak kaydederek kodu kaydedin ve uzantı .xlsm .

  • Bu, kullanıcı tanımlı bir işlev adı oluşturacaktır ŞehirMesafesi .

VBA Kod Açıklaması

  • İşe ilk olarak Fonksiyon isim ŞehirMesafesi . İlk Şehir String olarak, İkinci Şehir As String, ve Hedef Değer String de argüman olarak dahil edilmiştir.
  • Sonra ilan ettik HTTP Kurulumu bir nesne olarak ve Başlangıç Noktası , Bitiş Noktası , Mesafe Birimi ve Çıktı Url Dizeler olarak.
  • Daha sonra, değiştirdik Mesafe Birimi için kilometre ve Başlangıç Noktası başlangıç noktasına Url Bağlantı.
  • Daha sonra, aşağıdaki parametreler arasında bir bağlantı kurmak için gerekli parametreleri ayarlıyoruz VBA kodu ve API .
  • Daha sonra kendi Kullanıcı Tanımlı İşlev .

Sonuç

Yukarıdaki yöntemler size şu konularda yardımcı olacaktır İki Şehir Arasındaki Mesafeyi Hesaplama Excel'de Umarım bu size yardımcı olur! Herhangi bir sorunuz, öneriniz veya geri bildiriminiz varsa lütfen yorum bölümünde bize bildirin. Veya aşağıdaki diğer makalelerimize göz atabilirsiniz ExcelWIKI.com Blog!

Hugh West, sektörde 10 yılı aşkın deneyime sahip oldukça deneyimli bir Excel eğitmeni ve analistidir. Muhasebe ve Finans alanında lisans derecesine ve İşletme alanında yüksek lisans derecesine sahiptir. Hugh öğretme tutkusuna sahiptir ve takip etmesi ve anlaması kolay benzersiz bir öğretim yaklaşımı geliştirmiştir. Excel konusundaki uzman bilgisi, dünya çapında binlerce öğrencinin ve profesyonelin becerilerini geliştirmesine ve kariyerlerinde başarılı olmasına yardımcı olmuştur. Hugh, blogu aracılığıyla bilgisini dünyayla paylaşıyor, bireylerin ve işletmelerin tam potansiyellerine ulaşmalarına yardımcı olmak için ücretsiz Excel eğitimleri ve çevrimiçi eğitimler sunuyor.