Kullanıcı formları oluştururken Excel VBA'sı, kullanabilirsiniz Kontrol koleksiyonu kontroller arasında kolayca geçiş yapmak ve her kontrolün bir özelliğini belirli bir değere ayarlamak için.
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, metin 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 Metin Kutusu'na tıklayarak bir metin kutusu denetimi oluşturun. Ardından, Kullanıcı formunda bir metin kutusunu sürükleyebilirsiniz.
4. Kullanıcı formu, etiket 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()
UserForm1.Show vbModeless
Alt Bitiş
Açıklama: vbModeless ekleyerek Userform'u kullanabilir ve aynı anda çalışma sayfanızda çalışabilirsiniz.
Şimdi Userform'un ilk bölümünü oluşturduk. Halihazırda düzgün görünse de, Userform'daki komut düğmesine tıkladığımızda henüz hiçbir şey olmayacak.
6. Visual Basic Düzenleyicisini açın.
7. Proje Gezgini'nde, UserForm1'e çift tıklayın.
8. Komut düğmesine çift tıklayın.
9. Aşağıdaki kod satırlarını ekleyin:
Özel Alt KomutDüğmesi1_Click()
Dim i Tamsayı Olarak
i = 1 ila 10 için
Controls("TextBox" & i).Value = Cells(i + 1, 1).Value
sonraki ben
Alt Bitiş
Açıklama: Sadece birkaç satır kodla, metin kutularını sayfadaki telefon numaralarıyla doldurabiliriz. Elemanları birleştirmek (birleştirmek) için & operatörünü kullandık. Bu kod satırları, metin kutusu denetimlerinin (TextBox1, TextBox2, TextBox3, vb.) adlarını değiştirmediğimiz için çalışır. Kontrollerin adlarını değiştirmek için Görünüm, Özellikler Penceresi'ne tıklayın ve her bir kontrole tıklayın.
Sayfadaki komut düğmesine tıkladığınızda sonuç:
