/ / Excel VBA Birleşik Kutu

Excel VBA Birleşik Kutu

Bir açılan kutu, kullanıcının bir öğeyi seçebileceği veya kendi seçimini doldurabileceği bir açılır liste. Oluşturmak için açılan kutu içinde Excel VBAaşağıdaki adımları uygulayın.

1. Geliştirici sekmesinde, Ekle'ye tıklayın.

2. ActiveX Denetimleri grubunda, Birleşik Kutu'ya tıklayın.

Excel VBA'da birleşik kutu oluşturma

3. Çalışma sayfanızdaki bir açılan kutuyu sürükleyin.

Birleşik Kutuyu 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 ComboBox1'i açılan kutunun 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.

Excel VBA Çalışma Kitabı Açık Etkinlik

7. Birleşik giriş kutusuna öğe eklemek için, Çalışma Kitabı Açık Etkinliğine aşağıdaki kod satırlarını ekleyin:

With Sheet1.ComboBox1
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With

Not: Açılan kutunuz ikinci çalışma sayfasında yer alıyorsa, Sayfa3'ü kullanın, açılan kutunuz üçüncü çalışma sayfasında yer alıyorsa, Sayfa3. Bu kod satırlarını Çalışma Kitabı Aç olayı dışında kullanırsanız, aşağıdaki kod satırlarını bunlardan önce eklemek isteyebilirsiniz. kod satırları. İlk kod satırı açılan kutuyu temizler. Bu şekilde, kodunuzu birden çok kez çalıştırırsanız öğeleriniz birden fazla kez eklenmez. İkinci kod satırı kendi seçiminizi temizler.

ComboBox1.Clear
ComboBox1.Value = ""

8. Bu birleşik kutuyu bir hücreye bağlamak için, açılan kutucuğa sağ tıklayın (tasarım modunun seçildiğinden emin olun) ve Özellikler'e tıklayın. LinkedCell için D2'yi doldurun.

LinkedCell

Not: Ayrıca, bir hücre aralığına sahip bir açılan kutuyu doldurmak için ListFillRange özelliğine bakın.

9. Excel dosyasını kaydedin, kapatın ve yeniden açın.

Sonuç:

Açılan kutu

Bazı durumlarda, çalışma sayfanıza doğrudan birleşik giriş kutusu yerleştirmek yararlı olsa da, birleşik kutu özellikle bir Kullanıcı Formuna yerleştirildiğinde kullanışlıdır.

Ayrıca oku: