Dosya simgesi

ADO Yöntemi ile Benzersiz Sayma

ADO Yöntemi ile Benzersiz Sayma
Bu dosya, bir sütundaki tekrar eden değerlerin yalnızca bir kez sayılmasını ADO yöntemiyle gösterir. Sayım işlemi, VBA ile yazılmış Benzersiz_Say adlı kullanıcı tanımlı fonksiyon tarafından yapılır. Çok sayıda satır içeren veri aralıklarında benzersiz sayım ihtiyacı için hazırlanmış, ADO öğrenmek isteyenlere yönelik basit bir örnektir.

Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

  • Sayfa1: B sütununda "ALT ETİKET" başlığı altında şehir adları (örnekte İSTANBUL) listelenir. E sütununda "BENZERSİZ" başlığı bulunur ve sonuç hücresi burada yer alır. Örnekte sonuç 4 olarak görünür.
  • Module1: Bağlantı ayarlarını ve Benzersiz_Say fonksiyonunu içeren VBA modülüdür.

Kullanılan formüller​

E2 hücresinde fonksiyon, başlık hücresine başvurularak çağrılır:
Excel formülü
=Benzersiz_Say(C1)
Fonksiyon parametre olarak sütun başlığını metin olarak alır ve o başlığa ait benzersiz kayıt sayısını döndürür.

Makrolar​

  • Benzersiz_Say: Çalışma kitabının kendi dosyasına ADO bağlantısı açar. Ardından Sayfa1 üzerinde, verilen sütun başlığı için SELECT COUNT(*) FROM (SELECT DISTINCT ...) sorgusunu çalıştırır ve dönen değeri hücreye yazar. Kayıt dönmezse sonuç 0 olur.
  • Modülün başındaki koşullu derleme bölümü, VBA7 (yeni sürüm) ortamında Microsoft.ACE.OLEDB.12.0 sağlayıcısını, eski sürümlerde Microsoft.Jet.OLEDB.4.0 sağlayıcısını seçer.
  • Makro, yalnızca dosyanın kendisini okur; dosya silme ya da dış bağlantı işlemi içermez.
  • Makro ayrıca çalıştırılmaz; fonksiyon hücre formülü olarak çağrıldığında çalışır.

Nasıl kullanılır​

  1. Dosyayı açın ve makroları etkinleştirin.
  2. Verileri Sayfa1 üzerinde, ilk satırı başlık olacak biçimde girin.
  3. Sonuç hücresine Benzersiz_Say fonksiyonunu yazın ve parametre olarak sayılacak sütunun başlığını içeren hücreyi gösterin.
  4. Veriler değiştiğinde sorgu dosyanın kayıtlı halini okuduğundan, sonucu güncellemek için önce dosyayı kaydedin, ardından hesaplamayı yenileyin.

ExcelDepo tarafından daha fazla dosya

Detaylar
Yazar
ExcelDepo
İndirme
5
Gösterim
2,677
İlk sürüm
Güncel
SHA-256
166565e6b949632875efe8ff5d0c42dd236b286946ff24a479b6eb49a89ea388

Puanlar

5.00 Oylama 1 İnceleme

En son değerlendirmeler

Çok teşekkür ederim, elinize sağlık.
Geri
Üst