Combo Box, Excel'deki Adlandırılmış Aralık verileriyle nasıl doldurulur?

Aralığı, Birleşik giriş kutusunun ListFillRange özelliklerine ekleyerek, belirli bir aralıktaki verileri içeren bir Birleşik Giriş kutusu (ActiveX Kontrolü) belirtebilirsiniz. Ancak, bir Birleşik Giriş kutusunu Excel'de adlandırılmış bir aralığın verileriyle nasıl dolduracağınızı biliyor musunuz? Örneğin, çalışma sayfanızdaki bir hücre aralığını adlandırdınız ve şimdi bu aralık adını bir Birleşik giriş kutusunda belirtmeniz gerekiyor. Bir Birleşik giriş kutusunda aralık adını seçerken, bu adlandırılmış aralıktaki tüm hücre değerleri başka bir Birleşik giriş kutusunda otomatik olarak doldurulacaktır. Bu makale, bu sorunu çözmek için bir VBA yöntemi tanıtacaktır.

Birleşik giriş kutusunu adlandırılmış bir aralığın verileriyle VBA kodu ile doldurun

Birleşik giriş kutusunu adlandırılmış bir aralığın verileriyle VBA kodu ile doldurun

Birleşik giriş kutusunu Excel'de adlandırılmış bir aralığın verileriyle doldurmak için lütfen aşağıdaki işlemleri yapın.

1. Lütfen çalışma sayfanızdaki tüm başlıkları seçin (bu durumda A1: E1'i seçiyorum) ve ardından isim Kutusu aşağıda gösterilen ekran görüntüsü gibi.

2. Başlığı dışındaki her bir sütun verisini seçin ve ardından sütuna ayrı olarak isim Kutusu. Ekran görüntüsüne bakın:

Bu durumda, A2: A8, B2: B8, C2: C8, D2: D8 ve E2: E8 aralığını Tarih, Mağaza, Öğeler, Satışlar ve Hafta içi olarak ayrı ayrı adlandırdım.

3. Ardından tıklayarak bir Birleşik giriş kutusu ekleyin Geliştirici > Ekle > Birleşik Giriş Kutusu (ActiveX Kontrolü). Ekran görüntüsüne bakın:

4. Çalışma sayfasına başka bir Birleşik giriş kutusu eklemek için 3. adımı tekrarlayın.

5. Sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden. Ekran görüntüsüne bakın:

6. Açılışta Uygulamalar için Microsoft Visual Basic penceresi, lütfen VBA kodunu kopyalayıp Kod penceresine yapıştırın.

VBA kodu: Birleşik giriş kutusunu adlandırılmış bir aralığın verileriyle doldurun

Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
    Dim xRg As Range
    Set xRg = Range(Me.ComboBox1.Text)
    Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xRg As Range
    Set xRg = Range("Headers")
    Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

not: Kodda, ComboBox1, içindeki tüm aralık adlarını listeleyeceğiniz birleşik giriş kutusunun adıdır ve ComboBox2, belirtilen adlandırılmış aralığın verilerinin içinde doldurulacağı birleşik giriş kutusunun adıdır. "Başlıklar", 1. adımda oluşturduğunuz aralık adıdır.

7. Tıklayarak Tasarım Modunu kapatın. Geliştirici > Tasarım Modu.

8. Kodu etkinleştirmek için çalışma sayfasındaki herhangi bir hücreye tıklayın. İlk açılan kutudaki ok düğmesini tıklayın, tüm adlandırılmış aralıkların içinde listelendiğini görebilirsiniz. Ekran görüntüsüne bakın:

İlk açılan kutuda adlandırılmış bir aralık seçerken, karşılık gelen hücre verileri aşağıda gösterilen ekran görüntüsü gibi ikinci birleşik giriş kutusunda doldurulacaktır:

İlgili yazılar:

• Combo Box değerini Excel'deki etkin hücreye nasıl kopyalarım?
• Excel'de açılan kutu çıktısında tarih biçimini nasıl görüntüleyebilirim?
• Excel'de birleşik giriş kutusuna yazmayı nasıl önleyebilir veya devre dışı bırakabilirim?
• Çalışma Kitabı açıkken belirtilen verilerle birleşik giriş kutusu nasıl doldurulur?
• Excel açılır listesindeki değerleri seçerken diğer hücreleri otomatik olarak nasıl doldurabilirim?

En İyi Ofis Üretkenlik Araçları

🤖	Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
	Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
	Süper Arama: Çoklu Ölçütlü VLookup  |   Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
	Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
	Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
	Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu   |  Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz   |  E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
	En İyi 15 Araç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Devamı ... Ücretsiz indirin...

---

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

• Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
• Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
• Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Devamı ... Ücretsiz indirin...