/ / Excel VBA’daki Denetimlerle Döngü

Excel VBA’daki Denetimlerle Döngü

Sadece birkaç satır kod ile kolayca yapabiliriz denetimlerle döngü üzerinde Excel VBA Kullanıcı Formu. Oluşturulacak olan Userform aşağıdaki gibi görünür:

Excel VBA’daki Denetimlerle Döngü

Bu Kullanıcı Formunu oluşturmak için aşağıdaki adımları uygulayın.

1. Visual Basic Düzenleyicisi'ni açın. Proje Gezgini görünmüyorsa, Görüntüle, Proje Gezgini'ni tıklatın.

2. Ekle, Kullanıcı formu'nu tıklayın. Araç Kutusu otomatik olarak görünmezse, Görünüm, Araç Kutusu'nu tıklatın. Ekranınız aşağıdaki gibi ayarlanmalıdır.

Excel VBA'da Kullanıcı Formu Ekranı Kurulumu

3. Etiketi ekleyin, onay kutularını (ilk önce üstte, ikincisinin altında ikinci, vb.) Ve komut düğmesini tıklayın. Bu tamamlandıktan sonra sonuç, daha önce gösterilen Kullanıcı Formunun resmi ile tutarlı olmalıdır. Örneğin, araç kutusundan CheckBox'a tıklayarak bir onay kutusu denetimi oluşturun. Ardından, Kullanıcı Formu'ndaki onay kutusunu sürükleyebilirsiniz.

4. Kontrollerin isimlerini ve başlıklarını değiştirebilirsiniz. Adlar Excel VBA kodunda kullanılır. Altyazılar, ekranınızda görünenlerdir. Kontrollerin isimlerini değiştirmek iyi bir uygulamadır, ancak burada gerekli değildir çünkü bu örnekte sadece birkaç kontrolümüz vardır. Kullanıcı formu, etiket, onay kutuları ve komut düğmelerinin altyazısını değiştirmek için Görünüm, Özellikler Penceresi'ni tıklayın ve her bir kontrolü 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:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Şimdi, Userform'un ilk bölümünü oluşturduk. Henüz temiz görünüyor olsa da, Temizle düğmesine tıkladığımızda henüz bir şey olmayacak.

6. Visual Basic Düzenleyicisi'ni 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:

Private Sub CommandButton1_Click()

Dim contr As control

For Each contr In UserForm1.Controls
    If TypeName(contr) = "CheckBox" Then
        contr.Value = False
    End If
Next

End Sub

Açıklama: Excel VBA, Userform'daki tüm denetimlerden geçer. TypeName işlevi, onay kutusu denetimlerini filtrelemek için kullanılır. Bir onay kutusu denetimi, Excel VBA onay kutusunu işaretler. Contr burada rastgele seçilir, herhangi bir ismi kullanabilirsiniz. Kodunuzun geri kalanında bu adı belirtmeyi unutmayın.

Temizle düğmesini tıkladığınızda sonuç:

Kontroller Sonucu ile Dön

Ayrıca oku: