Aşağıda, birden çok sayfa içeren bir Kullanıcı Formu oluşturan Excel VBA'daki bir programa bakacağız. Bu kullanıcı formu ayrıca resimler içerir.
Çok Sayfalı Kontrol iki sayfa içerir. 1. sayfada, kullanıcı kişisel bilgilerini doldurabilir. 2. sayfada kullanıcı en çok hangi resmi beğendiğini belirtebilir.
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. Çok Sayfalı denetimi, etiketleri, metin kutularını (ilk önce üstte, ikinci birincinin altında), çerçeveyi, seçenek düğmelerini (ilk solda, ikinci sağda), liste kutusunu, Görüntü denetimi ve komut düğmesini ekleyin. Bu tamamlandığında, sonuç, daha önce gösterilen Kullanıcı Formunun boş sürümüyle tutarlı olmalıdır. Örneğin, Araç Kutusundan Çoklu Sayfa'ya tıklayarak Çok Sayfalı bir denetim oluşturun. Ardından, Kullanıcı formunda bir Çok Sayfalı denetimi sürükleyebilirsiniz. Cinsiyet çerçevesine geldiğinizde, içine iki seçenek düğmesini yerleştirmeden önce bu çerçeveyi çizmeyi unutmayın.
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ı formunun, Çoklu sayfa sekmelerinin, etiketlerin, çerçevenin, seçenek düğmelerinin ve komut düğmesinin başlığını değiştirmek için Görünüm, Özellikler Penceresi'ni ve her bir denetime 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 Sub UserForm_Initialize'ı oluşturacağız. Kullanıcı formu için Göster yöntemini kullandığınızda, bu alt otomatik olarak yürütülecektir.
6. Visual Basic Düzenleyicisini açın.
7. Proje Gezgini'nde, UserForm1'e sağ tıklayın ve ardından Kodu Görüntüle'ye tıklayın.
8. Soldaki açılır listeden Kullanıcı formu'nu seçin. Sağdaki açılır listeden Başlat'ı seçin.
9. Aşağıdaki kod satırlarını ekleyin:
Özel Alt UserForm_Initialize()
ListBox1 ile
.AddItem "Dağlar"
.AddItem "Gün Batımı"
.AddItem "Plaj"
.AddItem "Kış"
İle bitmek
Alt Bitiş
Açıklama: 2. sayfadaki liste kutusu doldurulacaktır.
Şimdi Userform'un ilk bölümünü oluşturduk. Zaten düzgün görünse de, liste kutusundan bir öğe seçtiğimizde veya Tamam düğmesine tıkladığımızda henüz hiçbir şey olmayacak.
10. Resimleri (bu sayfanın sağ tarafı) indirin ve "C:\test\" klasörüne ekleyin.
11. Proje Gezgini'nde, UserForm1'e çift tıklayın.
12. Liste kutusuna çift tıklayın.
13. Aşağıdaki kod satırlarını ekleyin:
Özel Alt Liste Kutusu1_Click()
ListBox1.ListIndex = 0 ise
Image1.Picture = LoadPicture("C:\test\Mountains.jpg")
Bitir
ListBox1.ListIndex = 1 ise
Image1.Picture = LoadPicture("C:\test\Sunset.jpg")
Bitir
ListBox1.ListIndex = 2 ise
Image1.Picture = LoadPicture("C:\test\Plaj.jpg")
Bitir
ListBox1.ListIndex = 3 ise
Image1.Picture = LoadPicture("C:\test\Winter.jpg")
Bitir
Alt Bitiş
Açıklama: Bu kod satırları, liste kutusunda seçilen öğeye bağlı olarak bir resim yükler.
14. Tamam düğmesine çift tıklayın.
15. Aşağıdaki kod satırlarını ekleyin:
Özel Alt KomutDüğmesi1_Click()
Dim boşSatır Kadar Uzun
'Sayfa1'i aktif yap
Sayfa1.Etkinleştir
'Boş Satırı belirle
boşRow = WorksheetFunction.CountA(Range("A:A")) + 1
'Bilgi aktarma
Cells(emptyRow, 1).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
OptionButton1.Value = True ise
Cells(emptyRow, 3).Value = "Erkek"
Başka
Cells(emptyRow, 3).Value = "Kadın"
Bitir
Cells(emptyRow, 4).Value = ListBox1.Value
'Kullanıcı formunu kapat
Beni Kaldır
Alt Bitiş
Açıklama: İlk olarak Sayfa1'i etkinleştiriyoruz. Ardından emptyRow'u belirliyoruz. emptyRow değişkeni ilk boş satırdır ve her kayıt eklendiğinde artar. Ardından, Userform'dan gelen bilgileri emptyRow'un belirli sütunlarına aktarıyoruz. Son olarak Userform'u kapatıyoruz.
16. Visual Basic Düzenleyiciden çıkın, aşağıda gösterilen etiketleri 1. satıra girin ve Kullanıcı formunu test edin.
Sonuç:
