Sadece birkaç satır kod ile kolayca kontroller arasında döngü üzerinde Excel VBA Kullanıcı Formu. Oluşturacağımız Userform aşağıdaki gibi görünüyor:
Bu Kullanıcı formunu oluşturmak için aşağıdaki adımları uygulayın.
1. Visual Basic Düzenleyicisini açın. Proje Gezgini görünmüyorsa, Görünüm, Proje Gezgini'ne tıklayın.
2. Ekle, Kullanıcı formu'na tıklayın. Araç Kutusu otomatik olarak görünmezse, Görünüm, Araç Kutusu'nu tıklayın. Ekranınız aşağıdaki gibi ayarlanmalıdır.
3. Etiketi, onay kutularını (ilk üstte, ikinci birincinin altında vb.) ve komut düğmesini ekleyin. Bu tamamlandığında, sonuç daha önce gösterilen Kullanıcı Formu resmiyle tutarlı olmalıdır. Örneğin, Araç Kutusu'ndan CheckBox'a tıklayarak bir onay kutusu kontrolü oluşturun. Ardından, Kullanıcı formunda bir onay kutusunu sürükleyebilirsiniz.
4. Kontrollerin adlarını ve başlıklarını değiştirebilirsiniz. Adlar Excel VBA kodunda kullanılır. Altyazılar, ekranınızda görünenlerdir. Kontrollerin adlarını değiştirmek iyi bir uygulamadır, ancak bu örnekte sadece birkaç kontrole sahip olduğumuz için burada gerekli değildir. Kullanıcı formu, etiket, onay kutuları ve komut düğmesinin başlığını değiştirmek için Görünüm, Özellikler Penceresi'ne tıklayın ve her bir kontrole tıklayın.
5. Kullanıcı formunu göstermek için çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırını ekleyin:
Özel Alt KomutDüğmesi1_Click()
KullanıcıForm1.Göster
Alt Bitiş
Şimdi Userform'un ilk bölümünü oluşturduk. Zaten temiz görünse de Clear butonuna tıkladığımızda henüz bir şey olmayacak.
6. Visual Basic Düzenleyicisini açın.
7. Proje Gezgini'nde, UserForm1'e çift tıklayın.
8. Temizle düğmesine çift tıklayın.
9. Aşağıdaki kod satırlarını ekleyin:
Özel Alt KomutDüğmesi1_Click()
Dim contr Kontrol olarak
UserForm1.Controls'deki her bir kontrol için
TypeName(contr) = "CheckBox" ise
contr.Value = Yanlış
Bitir
Sonraki
Alt Bitiş
Açıklama: Excel VBA, Kullanıcı Formundaki tüm denetimler arasında geçiş yapar. TypeName işlevi, onay kutusu denetimlerini filtrelemek için kullanılır. Bir onay kutusu denetimi varsa, Excel VBA onay kutusunun işaretini kaldırır. contr burada rastgele seçilir, herhangi bir isim kullanabilirsiniz. Kodunuzun geri kalanında bu isme başvurmayı unutmayın.
Temizle düğmesine tıkladığınızda sonuç:
