CheckBox ile ListBox Kontrol Etme

Bu dosya, bir UserForm üzerindeki CheckBox ve ToggleButton kontrolleriyle ListBox içindeki tüm öğelerin tek seferde seçilmesini ya da seçimin kaldırılmasını gösteren VBA örneğidir. Çoklu seçim yapılan liste kutularında "Hepsini Seç" işlevinin nasıl kurulacağını öğrenmek isteyenler için hazırlanmıştır.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com: B1:D16 aralığında kullanılan çalışma sayfasıdır; formül içermez.
• UserForm1: İçinde ListBox2, CheckBox1 ve ToggleButton1 kontrolleri bulunan kullanıcı formudur. Form açıldığında liste "1. eleman", "2. eleman", "3. eleman" ve "4. eleman" öğeleriyle dolar.
• Module1: Formu açan form makrosunu barındırır.

Makrolar​

• form: UserForm1 formunu ekrana getirir. Makro Geliştirici sekmesindeki Makrolar penceresinden veya Alt+F8 ile çalıştırılır.
• UserForm_Initialize: Form açılırken ListBox2 içine dört örnek öğeyi ekler.
• SecimYap: ListBox2 içindeki tüm öğeleri döngüyle dolaşır ve her birinin seçili durumunu gönderilen True/False değerine ayarlar. Liste boşsa işlem yapmadan çıkar.
• CheckBox1_Change: CheckBox1 işaretlendiğinde tüm öğeleri seçer, işaret kaldırıldığında seçimi temizler. Kutunun yazısı da "Secimi İptal Et" ile "Hepsini Sec" arasında değişir.
• ToggleButton1_Click: CheckBox ile aynı işi düğme üzerinden yapar; basılı durumda tüm öğeler seçilir, düğme eski haline dönünce seçim kalkar ve düğme yazısı güncellenir.

Makrolarda dosya silme veya dış bağlantı gibi işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile form makrosunu seçip çalıştırın.
3. Açılan formda CheckBox1'i işaretleyerek ListBox2'deki tüm öğeleri seçin; işareti kaldırarak seçimi temizleyin.
4. Aynı işlemi ToggleButton1 düğmesiyle de deneyin.
5. Kendi listenizi kullanmak için Alt+F11 ile VBA düzenleyicisini açın ve UserForm_Initialize içindeki AddItem satırlarını değiştirin.