Bu dosya, bulunulan konumun enlem ve boylam değerlerini Excel hücrelerine getiren bir kullanıcı tanımlı fonksiyon içerir. Coğrafi veri analizi, harita entegrasyonu ve konum bazlı raporlama çalışmalarında başlangıç verisi olarak kullanılabilir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Fonksiyon 2x2 boyutunda bir dizi döndürür: ilk satırda başlıklar, ikinci satırda enlem ve boylam değerleri yer alır. Sonuç B2:C3 aralığına yayılır.
Dosyanın içeriği
- Sayfa1: B2 hücresinde "Latitude (Enlem)", C2 hücresinde "Longitude (Boylam)" başlığı yer alır. B3 ve C3 hücreleri değerleri gösterir. Örnek değer olarak B3'te 41.0082376 görülür.
- Module1: Konum bilgisini alan GetRealLocationArray fonksiyonunu barındırır.
- JsonConverter: JSON verisini ayrıştırmak ve üretmek için kullanılan hazır VBA modülüdür.
Kullanılan formüller
B2 hücresinde fonksiyon aşağıdaki şekilde çağrılır:=GetRealLocationArray()
Makrolar
- GetRealLocationArray: Windows PowerShell'i çalıştırarak bir IP konum servisine istek gönderir ve yanıttaki latitude ile longitude değerlerini ayıklar. Virgülleri noktaya çevirip 2x2 dizi olarak hücrelere verir. Yanıt boş gelirse hücrede "Konum alınamadı!" mesajı görünür.
- JsonConverter: ParseJson ve ConvertToJson gibi yordamlarla JSON dönüşümü yapan genel amaçlı modüldür.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- İnternet bağlantınızın açık olduğundan emin olun.
- Sayfa1'de B2 hücresindeki formülü çalıştırın; gerekirse hücreye girip Enter tuşuna basarak yeniden hesaplatın.
- Enlem ve boylam değerleri B3 ve C3 hücrelerinde listelenir.
- Formülü başka bir sayfada kullanmak için Module1 ve JsonConverter modüllerini hedef dosyaya aktarın ve dosyayı .xlsm olarak kaydedin.