Microsoft Excel çok yönlü bir elektronik tablo programıdır. Hayal bile edemeyeceğiniz kadar geniş bir görev yelpazesi sunar. Excel'de iki adres arasındaki sürüş mesafesini bile hesaplayabilirsiniz. Aralarındaki farkı bulmak için bir adres listeniz varsa, elbette MS Excel'i kullanabilirsiniz. Mesafeyi manuel olarak da hesaplayabilirsiniz. Ancak bu çok zaman alıcı olacaktır.Bu nedenle bu makalede, Excel'de iki adres arasındaki sürüş mesafesini nasıl hesaplayacağınızı göstereceğim.

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

Excel dosyasını aşağıdaki bağlantıdan indirebilir ve onunla birlikte pratik yapabilirsiniz.

Excel'de İki Adres Arasındaki Sürüş Mesafesini Hesaplamanın 2 Etkili Yolu

1. Sürüş Mesafesini Hesaplamak için Trigonometrik Fonksiyonların Kullanılması

Burada, size farklı kombinasyonları göstereceğim trigonometrik fonksiyonlar Excel'de iki adres arasındaki sürüş mesafesini hesaplamak için.

Size bir örnek vermek için iki adres aldım. İlk adres MacArthur Park, Camden NSW, Avustralya . Enlem ve boylamı şöyledir 34.06312149 ve -118.2783975 İkinci adres sırasıyla Jersey City, New Jersey, ABD . Enlem ve boylamı şöyledir 40.71799929 ve -74.04276812 sırasıyla.

Şimdi, birleştirme ACOS , COS , SİN , & RADYANLAR işlevlerini kullanarak bir formül oluşturun. Formül, iki adres arasındaki sürüş mesafesini mil cinsinden etkin bir şekilde hesaplayacaktır.

Bunun için,

❶ Hücre seçin D8 Birincisi.

❷ Ardından hücreye aşağıdaki formülü ekleyin.

❸ Bundan sonra, tuşuna basın. GİRİŞ Düğme.

Şimdi, formülün aşağıdaki noktalar arasındaki sürüş mesafesini hesapladığını göreceksiniz MacArthur Park, Camden NSW, Avustralya, ve Jersey City, New Jersey, ABD Böylece, sonucu hücre içinde göreceksiniz D8 ki bu 2445.270922 mil.

Formül Dağılımı

• COS(RADYAN(90-C6)) *COS(RADYAN(90-C5)) - ve RADYANLAR fonksiyonları değerleri radyana dönüştürür ve COS fonksiyonu değerlerin kosinüsünü sağlar, daha sonra enlem için kosinüsler çarpılır. Çıktı - 0.365377540842758
• COS(RADYAN(D6-D5)) - iki adres arasındaki boylam farkı için kosinüs değerini sağlar. Çıktı - 0.716476936499882

• SIN(RADYAN(90-C6)) *SIN(RADYAN(90-C5)) - boylamların 90 radyandan sapmasını hesaplar ve sinüs değerlerini çarpar. Çıktı - 0.627884682513118

• SIN(RADYAN(90-C6)) *SIN(RADYAN(90-C5)) *COS(RADYAN(D6-D5)) - 0,627884682513118 * 0,716476936499882 olur. Çıktı - 0.449864893802199

• COS(RADIANS(90-C6)) *COS(RADIANS(90-C5)) +SIN(RADIANS(90-C6)) *SIN(RADIANS(90-C5)) *COS(RADIANS(D6-D5)) - 0,365377540842758 * 0,449864893802199 olur. Çıktı - 0.815242434644958

• O zaman ACOS fonksiyonu değeri arccosines eder. Çıktı - 0.617648629071256

• Son olarak, değerin aşağıdakilerle çarpılması 3959 - 0.617648629071256 *3959 sonucu mil cinsinden verir. Çıktı - 2445.270922

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

2. VBA Kodunu Kullanarak İki Adres Arasındaki Sürüş Mesafesini Hesaplama

Bu bölümde, bir VBA kodunu kullanarak kullanıcı tanımlı bir fonksiyon oluşturacağım. Daha sonra bu fonksiyonu Excel'de iki adres arasındaki sürüş mesafesini hesaplamak için kullanacağım.

Burada iki adres kullanıyorum. İlk adres MacArthur Park, Camden NSW, Avustralya . Enlem ve boylamı şöyledir 34.06312149 ve -118.2783975 İkinci adres sırasıyla Jersey City, New Jersey, ABD . Enlem ve boylamı şöyledir 40.71799929 ve -74.04276812 sırasıyla.

Adreslerin her biri için koordinatlar oluşturacağım. Koordinat, enlem ve boylamın bir kombinasyonudur. Koordinat oluşturmak için,

• Önce bir adresin enlemini yazın.
• Sonra bir virgül ekleyin.
• Bundan sonra aynı adresin boylamını yazın.

Yani ilk adresin koordinatı 34.0631214903094,-118.27839753751 . İkinci adresin koordinatı ise 40.7179992930381,-74.0427681204225 .

Bu VBA kodu bir API sürüş mesafesini hesaplamak için bir haritanın API Uygulama Programlama Arayüzü anlamına gelir. API bağlamak için Google Harita ya da Bing Harita neyi tercih edersen.

Ama yaratmak Google Harita API'si ödenir. Tam tersine, bir API .. Bing HARİTA ücretsiz olarak.

Bu nedenle, ben Bing MAP API Burada.

• Ücretsiz oluşturmak için Bing MAP API , buraya tıklayın .

Ben bir API . ekliyorum API aşağıda:

Şimdi, yazmanın zamanı geldi VBA Kod. Bunun için,

• Basın ALT + F11 açmak için VBA Düzenleyici .
• Şimdi şuraya git Ekleme ➤ Modül yeni bir modül açmak için.

Açtıktan sonra VBA Düzenleyici , aşağıdakileri ekleyin VBA açılan modüldeki kod.

 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) Son Fonksiyon 

Kod Dökümü

• Burada, kullanıcı tanımlı bir fonksiyon oluşturdum Sürüş_Mesafesi.
• Sonra 3 parametre kullandım: başlangıç konumu , Hedef ve anahtardeğer. Bunlar iki adresin konumu ve API değeri sırasıyla.
• Sonra aşağıdaki gibi çeşitli değişkenler kullandım First_Value , İkinci_Değer , Son_değer , mitHTTP , & mitUrl. Bu değişkenler farklı değerleri saklamak için kullanılır.
• Daha sonra değerleri birleştirin (içinde saklanan mitUrl ) ve birkaç nesne yöntemi ( Açık , SetRequestHeader , Gönder ) aracılığıyla sürüş mesafesini bu şekilde hesaplamayı başardım. API .

Bu VBA kodu, kullanıcı tanımlı bir işlev oluşturur Sürüş_Mesafesi .

Fonksiyon Sürüş_Mesafesi gerektirir 3 argüman Toplamda.

İşte genel sözdizimi Sürüş_Mesafesi fonksiyon.

Şimdi, kullanıcı tanımlı fonksiyonu uygulama zamanı. Bunun için,

• Hücre seçin E10 .
• Ardından aşağıdaki formülü ekleyin:

• Şimdi, basın GİRİŞ .

Formül Dağılımı

• E5 bu Start_Location_Coordinate .
• E6 bu End_Location_Coordinate .
• C8 bu API .. Bing HARİTA .

Fonksiyon, iki adres arasındaki sürüş mesafesini mil cinsinden hesaplar. Hücreye göz atın E10 . Numarayı görecektir, 2790 .

Bu yüzden MacArthur Park, Camden NSW, Avustralya, ve Jersey City, New Jersey, ABD o 2790 mil.

Daha fazlasını okuyun: Excel'de İki Adres Arasındaki Mesafe Nasıl Hesaplanır (3 Yol)

Uygulama Bölümü

Sağlanan Excel dosyasının sonunda, bu makalede tartışılan tüm yöntemleri uygulayabileceğiniz aşağıdaki ekran görüntüsü gibi bir Excel sayfası alacaksınız.

Sonuç

Özetlemek gerekirse, Excel'de iki adres arasındaki sürüş mesafesini hesaplamanın 2 yolunu tartıştım. Ve aşağıdaki yorum bölümünde herhangi bir soru sormaktan çekinmeyin. İlgili tüm soruları en kısa sürede yanıtlamaya çalışacağız. Ve lütfen web sitemizi ziyaret edin Exceldemy daha fazlasını keşfetmek için.