Otomatik Lokasyon Tespit Etme

Otomatik Lokasyon Tespit Etme

İndir
Genel Kurallar Yorumlar (0) Sorular (0) Limitler
Otomatik Lokasyon Tespit Etme
Bu dosya, bilgisayarın internet çıkış IP adresine göre yaklaşık konumu bulur ve enlem ile boylam değerlerini hücrelere yazar. Hesaplama, VBA ile yazılmış GetRealLocationArray fonksiyonuyla yapılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

  • Sayfa1: B2 hücresinde "Latitude (Enlem)" başlığı, B3 hücresinde enlem değeri yer alır. Fonksiyon iki satır ve iki sütunluk bir dizi döndürdüğü için sonuç B2:C3 aralığına yayılır; C sütununda "Longitude (Boylam)" başlığı ve boylam değeri görünür.

Kullanılan formüller​

B2 hücresindeki formül, makro modülünde tanımlı fonksiyonu çağırır:
Excel formülü 
=GetRealLocationArray()
Fonksiyon sonucu dizi olarak verir: ilk satırda başlıklar, ikinci satırda enlem ve boylam bulunur. Konum alınamazsa hücrede "Konum alınamadı!" iletisi görünür.

Makrolar​

  • Module1 - GetRealLocationArray: Arka planda bir PowerShell komutu çalıştırır. Komut, bir IP konum servisine (ipwhois.app) internet üzerinden istek gönderir ve yanıttaki latitude ile longitude değerlerini alır. Değerler ayrıştırılır, ondalık ayırıcı noktaya çevrilir ve 2x2'lik dizi olarak hücrelere verilir. Makro çalıştırmaya gerek yoktur; fonksiyon hücre formülü olarak çağrılır.
  • JsonConverter: JSON verisini ayrıştırmak ve üretmek için kullanılan genel amaçlı yardımcı modüldür (ParseJson, ConvertToJson). Konum fonksiyonu bu modüle bağlı değildir; kendi içinde metin ayrıştırma yapar.
Güvenlik notu: Dosya dışarıya bağlantı kurar ve PowerShell çalıştırır. Dosya silme gibi bir işlem yapmaz, ancak kullanım için internet bağlantısı gereklidir. Konum, IP adresine dayandığı için GPS kadar hassas değildir; sonuç internet sağlayıcısının bölgesini yansıtabilir.

Nasıl kullanılır​

  1. Dosyayı açın ve "İçeriği Etkinleştir" ile makroları etkinleştirin.
  2. İnternet bağlantınızın açık olduğundan emin olun.
  3. Sayfa1'de B2 hücresindeki formülün çalışmasını bekleyin; enlem ve boylam B3 ile C3 hücrelerinde görünür.
  4. Değerleri yenilemek için B2 hücresini seçip F2 ve ardından Enter tuşuna basın veya sayfayı yeniden hesaplatın.
  5. Fonksiyonu başka bir çalışma kitabında kullanmak için Module1 modülünü o dosyaya aktarın.

Galeri

  • Otomatik Lokasyon Tespit Etme - 1
    Otomatik Lokasyon Tespit Etme - 1

ExcelDepo tarafından daha fazla dosya

Detaylar
Destek al
Yazar
ExcelDepo
İndirme
1
Gösterim
134
İlk sürüm
Güncel
SHA-256
a394c406e4efce98907de2f1055b5fe63e51889b1a106f80e9b4e10b51cd7bed

Puanlar

0.00 Oylama 0 İnceleme

Benzer dosyalar Benzer kaynaklar Benzer konular

Geri
Üst