Çalışma kitabı açıldığında, açılır kutuyu belirtilen verilerle nasıl doldurabilirim?
Normalde, bir açılır kutuyu (ActiveX Denetimi), belirli bir hücre aralığındaki verilerle doldurmak için bu hücre başvurularını açılır kutunun Özellikler penceresindeki **ListFillRange** alanına girerek yapabilirsiniz. Ancak açılır kutuyu, özelliklerini manuel olarak ayarlamadan doğrudan belirttiğiniz verilerle doldurmak istiyorsanız, bu makalede açıklanan yöntem işinize yarayabilir.
Belirtilen verilerle VBA koduyla bir açılır kutuyu doldurma
Belirtilen verilerle VBA koduyla bir açılır kutuyu doldurma
Bu yöntem, çalışma kitabı açıldığında doğrudan belirtilen verilerle bir açılır kutuyu doldurmanıza olanak tanır. Lütfen aşağıdaki adımları uygulayın.
1. Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, sol bölmede yer alan ThisWorkbook öğesine çift tıklayarak ThisWorkbook kod düzenleyicisini açın. Ardından aşağıdaki VBA kodunu içine kopyalayın. Ekran görüntüsüne bakın:
VBA kodu: çalışma kitabı açıldığında bir açılır kutuyu belirtilen verilerle doldurma
Private Sub Workbook_Open()
'Updated by Extendoffice 2018/1/30
With Sheet1.ComboBox1
.Clear
.AddItem "Select a Fruit"
.AddItem "Apple"
.AddItem "Banana"
.AddItem "Peach"
.AddItem "Pineapple"
.AddItem "Watermelon"
.Text = .List(0)
End With
End Sub
Notlar:
3. Çalışma kitabını Excel Makro Etkin Çalışma Kitabı biçiminde kaydedin ve kapatın.
4. Çalışma kitabını yeniden açtığınızda, açılır kutunun belirtilen verilerle doldurulduğunu — aşağıdaki ekran görüntüsünde gösterildiği gibi — göreceksiniz.
İlgili makaleler:
- Excel'de açılır kutudaki değeri etkin hücreye nasıl kopyalayabilirim?
- Excel'de açılır kutu çıktısında tarih formatı nasıl görüntülenir?
- Excel'de bir açılır kutuya yazmayı nasıl engeller veya devre dışı bırakırım?
- Excel'de Adlandırılmış Aralık verileriyle açılır kutuyu nasıl doldurabilirim?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar