ToggleButton ile ListBox Seçim Kontrolü

Bu dosya, bir UserForm üzerindeki ListBox içinde bulunan öğelerin ToggleButton ve CheckBox ile nasıl topluca seçileceğini ve seçimin nasıl kaldırılacağını gösteren çalışan bir örnektir. Düğmenin durumuna göre başlık da "Hepsini Sec" ve "Secimi İptal Et" arasında değişir.

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

Dosyanın içeriği​

• exceldestek.com | exceldepo.com sayfası: A3:D12 aralığında kullanılan alan yer alır. Sayfada formül, tablo, grafik veya veri doğrulama bulunmaz.
• UserForm1: Üzerinde ListBox2, ToggleButton1 ve CheckBox1 denetimleri bulunan form. ListBox2 açılışta dört öğeyle dolar: "1. eleman", "2. eleman", "3. eleman", "4. eleman".
• Module1: Formu açan tek bir makro içerir.

Makrolar​

• form (Module1): UserForm1 formunu açar. Dosyada çalıştırılacak giriş makrosu budur.
• UserForm_Initialize: Form açılırken ListBox2 içine dört örnek öğeyi ekler.
• SecimYap: Mantıksal bir değer alır ve ListBox2 içindeki tüm öğeleri bu değere göre seçer ya da seçimden çıkarır. Liste boşsa işlem yapmadan çıkar.
• ToggleButton1_Click: ToggleButton basılı olduğunda tüm öğeleri seçer ve düğme başlığını "Secimi İptal Et" yapar; düğme bırakıldığında seçimi kaldırır ve başlığı "Hepsini Sec" yapar.
• CheckBox1_Change: Aynı işi CheckBox ile yapar; işaretlenince tümü seçilir, işaret kaldırılınca seçim temizlenir ve başlık buna göre değişir.

Makrolarda dosya silme, dışarıya bağlantı gibi zararlı bir işlem yoktur; kod yalnızca form içindeki ListBox öğeleriyle çalışır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile makro listesini açıp form makrosunu çalıştırın; UserForm1 ekrana gelir.
3. ListBox2 içindeki tüm öğeleri seçmek için ToggleButton1 düğmesine ya da CheckBox1 kutusuna tıklayın.
4. Seçimi kaldırmak için aynı denetime yeniden tıklayın.
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.