Excel VBA Liste Kutusu
Liste kutusu, kullanıcının bir öğeyi seçebileceği bir listedir. Oluşturmak için liste kutusu içinde Excel VBAaşağıdaki adımları uygulayın.
1. Geliştirici sekmesinde, Ekle'ye tıklayın.
2. ActiveX Denetimleri grubunda, Liste Kutusu'nu tıklatın.
3. Çalışma sayfanızdaki bir liste kutusunu sürükleyin.
Not: Bir kontrolün ismini kontrol üzerine sağ tıklayarak değiştirebilirsiniz (Tasarım Modunun seçili olduğundan emin olun) ve ardından Özellikler'e tıklayın. Şimdilik, ListBox1'i liste kutusunun adı olarak bırakacağız.
Bir Çalışma Kitabı Açık Etkinlik oluşturun. Çalışma kitabını açtığınızda, Çalışma Kitabı Açık Etkinliğine eklenen kod, Excel VBA tarafından yürütülecektir.
4. Visual Basic Düzenleyicisi'ni açın.
5. Bu Çalışma Kitabını Proje Gezgini'nde çift tıklatın.
6. Soldaki açılır listeden Çalışma Kitabı'nı seçin ve sağdaki açılır listeden Aç'ı seçin.
7. Liste kutusuna öğe eklemek için, Çalışma Kitabı Açık Etkinliğine aşağıdaki kod satırlarını ekleyin:
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
End With
Not: Liste kutusunun ikinci çalışma sayfasında yer alması durumunda Sayfa2'yi, liste kutusunun üçüncü çalışma sayfasında yer alması durumunda Sayfa3'ü kullanın. Bu kod satırlarını Çalışma Kitabı Aç olayı dışında kullanırsanız, aşağıdaki kod satırını bunlardan önce eklemek isteyebilirsiniz. kod satırları. Bu kod satırı liste kutusunu temizler. Bu şekilde, kodunuzu birden fazla kez çalıştırırsanız öğeleriniz birden çok kez eklenmez.
8. Bu liste kutusunu bir hücreye bağlamak için liste kutusuna sağ tıklayın (tasarım modunun seçili olduğundan emin olun) ve Özellikler'e tıklayın. LinkedCell için D3'ü doldurun.
Not: ayrıca bir dizi hücre ile liste kutusu doldurmak için ListFillRange özelliğine bakın.
9. Excel dosyasını kaydedin, kapatın ve yeniden açın.
Sonuç:
Bazı durumlarda, çalışma sayfanıza doğrudan bir liste kutusu yerleştirmek yararlı olabilir, ancak bir liste kutusu, bir Userform'a yerleştirildiğinde özellikle yararlıdır.