Türkiye İl ve İlçelerinin Koordinatlarını Gösterme

Bu dosya, Türkiye'deki il ve ilçelerin koordinatlarını (Mayıs 2020 itibariyle) Excel tablosu olarak sunar. Koordinatlar hem dereceli hem ondalıklı gösterimle yer alır. Dosyadan hareketle iki konum arasındaki kuş uçuşu mesafeyi (km) hesaplayabilir, dereceli ve ondalıklı gösterim arasında dönüşüm yapabilirsiniz.

Dosyanın içeriği​

• S: Hesaplama sayfasıdır. Şehir.1 / İlçe.1 ve Şehir.2 / İlçe.2 seçimleri, enlem ve boylam değerleri, kuş uçuşu mesafe sonuçları ile dereceden ondalığa ve ondalıktan dereceye dönüşüm bölümleri burada bulunur.
• Liste: Şehir, ilçe, plaka, enlem ve boylam bilgilerini içeren ana veri tablosudur (yaklaşık 975 satır). Koordinatlar derece-dakika-saniye biçiminde (ör. 373248) ve ondalık olarak verilmiştir.
• H: Seçilen şehre ait ilçe adlarının listelendiği yardımcı sayfadır. İçeriği makro tarafından doldurulur.

Kullanılan formüller​

• VLOOKUP ve IFERROR: Seçilen şehrin enlem ve boylamını TblSehir tablosundan getirir.
• SUMPRODUCT: İl ve ilçe adına göre ilgili ilçenin enlem ve boylamını bulur.
• SIGN, INT, ABS: Ondalık değeri derece, dakika ve saniyeye ayırma işleminde kullanılır.
• ACOS, SIN, COS, RADIANS: İki nokta arasındaki kuş uçuşu mesafeyi 6371.1 km dünya yarıçapı ile hesaplar.
• Aynı hesap, Mesafe adlı kullanıcı tanımlı fonksiyonla da yapılır; iki yöntemin sonuçları yan yana görülebilir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem görülmemiştir.

• Worksheet_Change (S sayfası): Şehir.1 veya Şehir.2 hücresi değiştiğinde ilgili ilçe listesini ve ilçe seçimini temizler, ardından ilçe listesini yeniler. Otomatik çalışır.
• ilce1 ve ilce2: Seçilen şehre ait ilçeleri Liste sayfasından toplar, H sayfasına yazar ve alfabetik sıralar. İlçe açılır listeleri bu verilerle çalışır.
• Mesafe: Dört koordinat değerinden (Enlem_1, Boylam_1, Enlem_2, Boylam_2) kuş uçuşu mesafeyi km olarak döndüren fonksiyondur. Kod alıntıdan uyarlanmıştır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. S sayfasında şehirler arası mesafe için açılır listelerden Şehir.1 ve Şehir.2 değerlerini seçin.
3. İlçeler arası mesafe için Şehir.1 seçiminden sonra İlçe.1, Şehir.2 seçiminden sonra İlçe.2 değerini seçin.
4. Kuş uçuşu mesafeyi formülle ve Mesafe fonksiyonuyla hesaplanan hücrelerde izleyin.
5. Dönüşüm bölümüne derece ya da ondalık değer yazarak karşılığını görün.