Bu dosya, bir veri tablosunda imlecin bulunduğu sütunun benzersiz değerlerini bir iletişim penceresinde listeler ve seçilen değere göre tabloyu filtreler. Filtre, tek bir düğmeyle kaldırılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Tab Liste: A1:G54 aralığında örnek bir personel tablosu bulunur. Sütunlar Bölüm, İsim, Telefon No ve Danışman başlıklarını taşır (örnek satır: Access bölümü, Telefon No 8118). Tablo, _FilterDatenbank adlı tanımlı ad ile adlandırılmıştır.
- Dlg ListenAnzeige: Benzersiz değerlerin gösterildiği iletişim penceresi sayfasıdır. Pencerede bir liste kutusu ve onay düğmeleri yer alır.
- Makro modülü gizli bir sayfada tutulur ve dosyanın kod kısmını oluşturur.
Makrolar
- auto_open: Dosya açıldığında çalışır, Tab Liste sayfasında A1 hücresine gider ve AllesZeigen makrosunu çağırır.
- FülleListe: İmlecin bulunduğu sütunun başlığını alır. Geçici bir pivot tablo oluşturup bu alanın benzersiz değerlerini sıralı biçimde liste kutusuna doldurur, ardından geçici sayfayı siler. Seçim yapıldığında bir mesaj kutusu seçilen değeri gösterir, düğme yazısı "Wieder alles zeigen..." olarak değişir ve tablo AutoFilter ile seçilen değere göre süzülür. İmleç bir veri alanında değilse hata mesajı verilir.
- AllesZeigen: Etkin sayfadaki otomatik filtreyi kaldırır ve düğmeyi ilk haline, "Erzeuge unique Liste..." yazısına ve FülleListe makrosuna geri döndürür.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Tab Liste sayfasında filtrelemek istediğiniz sütunda, tablo içindeki bir hücreye tıklayın.
- Sayfadaki "Erzeuge unique Liste..." düğmesine basın.
- Açılan pencerede listelenen değerlerden birini seçip onaylayın.
- Tablo seçilen değere göre süzülür. Tüm satırları yeniden görmek için "Wieder ales zeigen..." yazan düğmeye basın.
- Kendi verinizi kullanmak için tabloyu Tab Liste sayfasına yapıştırın; makro, imlecin bulunduğu veri bölgesini otomatik olarak kullanır.