Bu dosya, bir UserForm üzerindeki CheckBox ve TextBox nesnelerini birlikte kullanarak veri listelemeyi gösteren makrolu bir örnektir. İşaretlenen kutuların başlıkları ve karşılarındaki TextBox değerleri, formdaki ana TextBox içine alt alta aktarılır.
Dosyanın içeriği
- Sayfa1: Hücre verisi içermeyen tek çalışma sayfasıdır. Sayfada UserForm1'i açan bir komut düğmesi bulunur.
- UserForm1: CheckBox, TextBox ve listeleme işlemini yapan komut düğmesinden oluşan kullanıcı formudur.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kod dosyada şu şekilde çalışır:- Sayfa1 - CommandButton1_Click: Sayfadaki düğmeye tıklandığında UserForm1 penceresini açar.
- UserForm1 - CommandButton1_Click: Önce TextBox1 alanını temizler. Ardından formdaki tüm denetimleri tarar; işaretli (Value = True) her CheckBox için başlığını (Caption) ve ilgili TextBox değerini sekme karakteriyle ayırarak satır satır birleştirir. Sonuç TextBox1 içine yazılır. TextBox numarası 2'den başlar ve her denetimde bir artar.
- UserForm1 - TextBox9_Change: İçinde yalnızca tanımsız bir Z ifadesi bulunan boş bir olay yordamıdır; TextBox9 değiştiğinde hata verebilir, gerekirse bu satır silinebilir.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Sayfa1 üzerindeki düğmeye tıklayarak UserForm1'i açın.
- Listelenmesini istediğiniz CheckBox kutularını işaretleyin ve ilgili TextBox alanlarına değerleri girin.
- Formdaki komut düğmesine tıklayın; seçilen başlıklar ve değerler TextBox1 içinde listelenir.
- Kodu incelemek veya değiştirmek için Alt+F11 ile VBA düzenleyicisini açın.