Liste kutusu, kullanıcının bir öğe seçebileceği bir listedir. Oluşturmak için liste kutusu içinde Excel VBA'sı, aşağıdaki adımları uygulayın.
1. Geliştirici sekmesinde Ekle'ye tıklayın.
2. ActiveX Denetimleri grubunda Liste Kutusu'na tıklayın.
3. Çalışma sayfanızda bir liste kutusu sürükleyin.
Not: Kontrole sağ tıklayarak (Tasarım Modunun seçili olduğundan emin olun) ve ardından Özellikler'e tıklayarak bir kontrolün adını değiştirebilirsiniz. Şimdilik liste kutusunun adını ListBox1 olarak bırakacağız.
Bir Çalışma Kitabı Açık Etkinliği oluşturun. Çalışma Kitabı Açık Etkinliğine eklenen kod, çalışma kitabını açtığınızda Excel VBA tarafından yürütülecektir.
4. Visual Basic Düzenleyicisini açın.
5. Proje Gezgini'nde Bu Çalışma Kitabına çift tıklayı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çma Etkinliğine aşağıdaki kod satırlarını ekleyin:
Sheet1.ListBox1 ile
.AddItem "Paris"
.AddItem "New York"
.AddItem "Londra"
İle bitmek
Not: Liste kutunuz ikinci çalışma sayfasında bulunuyorsa Sayfa2'yi, liste kutunuz üçüncü çalışma sayfasındaysa Sayfa3'ü kullanın, vb. Bu kod satırlarını Workbook Open olayının dışında kullanırsanız, aşağıdaki kod satırını eklemek isteyebilirsiniz. bu kod satırlarından önce. Bu kod satırı liste kutusunu temizler. Bu şekilde, kodunuzu bir kereden fazla çalıştırırsanız, öğeleriniz birden çok kez eklenmeyecektir.
ListBox1.Temizle
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: Liste kutusunu bir dizi hücreyle doldurmak için ListFillRange özelliğine de 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ı olsa da, bir liste kutusu özellikle bir Kullanıcı formuna yerleştirildiğinde kullanışlıdır.
