Excel açılır listesine yazarken otomatik tamamlama nasıl yapılır?

Çok sayıda öğe içeren bir veri doğrulama açılır listesi için, ihtiyacınız olanı bulmak için listeyi yukarı ve aşağı kaydırmanız veya tüm sözcüğü liste kutusuna doğru şekilde yazmanız gerekir. İlk harfi veya herhangi bir ilgili karakteri yazarken otomatik olarak tamamlanan bir açılır liste oluşturmanın herhangi bir yöntemi var mı? Bu, insanların hücrelerde açılır listeler içeren çalışma sayfalarında daha verimli çalışmasına yardımcı olacaktır. Bu öğretici, bunu başarmanıza yardımcı olacak iki yöntem sunar.

VBA kodu ile açılır listeye yazarken otomatik tamamlama
Harika bir araçla açılır listeye yazarken otomatik tamamlama
Açılır liste için daha fazla öğretici ...

VBA kodu ile açılır listeye yazarken otomatik tamamlama

Hücreye karşılık gelen harfleri yazdıktan sonra açılır listeyi otomatik tamamlama yapmak için lütfen aşağıdaki işlemleri yapın.

Öncelikle, çalışma sayfasına birleşik giriş kutusu eklemeniz ve özelliklerini değiştirmeniz gerekir.

1. Otomatik tamamlamasını istediğiniz açılır liste hücresini içeren çalışma sayfasını açın.

2. Bir Birleşik giriş kutusu eklemeden önce, Excel şeridine Geliştirici sekmesini eklemeniz gerekir. Geliştirici sekmesi şeridinizde gösteriliyorsa, 3. adıma geç. Aksi takdirde şunları yapın: fileto > Opsiyonlar açmak için Opsiyonlar pencere. Bunda Excel Seçenekleri Pencere, tıklayın Şerit özelleştirme sol bölmede, kontrol edin Geliştirici ve ardından OK buton. Ekran görüntüsüne bakın:

3. tık Geliştirici > Ekle > Birleşik Giriş Kutusu (ActiveX Kontrolü).

4. Mevcut çalışma sayfasında bir açılan kutu çizin. Sağ tıklayın ve ardından seçin Emlaklar sağ tıklama menüsünden.

5. içinde Emlaklar iletişim kutusu, lütfen orijinal metni değiştirin (Ad) ile alan TempCombo.

6. Kapatın Tasarım Modu tıklayarak Geliştirici > Tasarım Modu.

Ardından, aşağıdaki VBA kodunu uygulayın

7. Geçerli sayfa sekmesine sağ tıklayın ve Kodu Görüntüle bağlam menüsünden. Ekran görüntüsüne bakın:

8. Açılışta Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki VBA kodunu çalışma sayfasının Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Açılır listeye yazarken otomatik tamamlama

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update by Extendoffice: 2020/01/16
    Dim xCombox As OLEObject
    Dim xStr As String
    Dim xWs As Worksheet
    Dim xArr
    
    Set xWs = Application.ActiveSheet
    On Error Resume Next
    Set xCombox = xWs.OLEObjects("TempCombo")
    With xCombox
        .ListFillRange = ""
        .LinkedCell = ""
        .Visible = False
    End With
    If Target.Validation.Type = 3 Then
        Target.Validation.InCellDropdown = False
        Cancel = True
        xStr = Target.Validation.Formula1
        xStr = Right(xStr, Len(xStr) - 1)
        If xStr = "" Then Exit Sub
        With xCombox
            .Visible = True
            .Left = Target.Left
            .Top = Target.Top
            .Width = Target.Width + 5
            .Height = Target.Height + 5
            .ListFillRange = xStr
            If .ListFillRange = "" Then
                xArr = Split(xStr, ",")
                Me.TempCombo.List = xArr
            End If
            .LinkedCell = Target.Address
        End With
        xCombox.Activate
        Me.TempCombo.DropDown
    End If
End Sub
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case 9
            Application.ActiveCell.Offset(0, 1).Activate
        Case 13
            Application.ActiveCell.Offset(1, 0).Activate
    End Select
End Sub

9. Basın Ara Toplam + Q kapatmak için aynı anda tuşları Microsoft Visual Basic Uygulamaları pencere.

Şu andan itibaren, bir açılır liste hücresine tıkladığınızda, açılır liste otomatik olarak sorulacaktır. İlgili öğenin seçili hücrede otomatik olarak tamamlanmasını sağlamak için harfi yazmaya başlayabilirsiniz. Ekran görüntüsüne bakın:

Not: Bu kod, birleştirilmiş hücreler için çalışmaz.

Harika bir araçla açılır listeye yazarken otomatik tamamlama

Birçok Excel kullanıcısı için VBA'yı yönetmek zor olduğundan, burada şunu tavsiye edin: Aranabilir Açılır Liste özelliği Kutools for Excel ilk karakteri yazarken bir açılır listeyi otomatik olarak kolayca tamamlamanıza yardımcı olmak için.

not: Özelliği uygulamadan önce, çalışma sayfasında açılır listeler oluşturduğunuzdan emin olun. Bu durumda, açılır listeler D3:D9'a yerleştirilir.

1. tık Kutools > Açılır liste > Aranabilir Açılır Liste > Ayarlar.

2. Açılırken Aranabilir Açılır Liste iletişim kutusunda aşağıdaki ayarları yapmanız gerekir.

3. Ayarları tamamladıktan sonra, tıklayarak özelliği etkinleştirmeniz gerekir. Kutools > Açılır liste > Aranabilir Açılır Liste > Aranabilir Açılır Listeyi Etkinleştir.

Şimdi, açılır liste hücresine tıkladığınızda, tüm öğeleri içeren bir liste kutusu görüntülenir. İlgili tüm öğeleri görüntülemek için metin kutusuna bir karakter yazmanız ve Up or Aşağı ok ihtiyacınız olan öğeyi seçin veya eşleşen ilk öğenin liste kutusunu otomatik olarak doldurmasına izin verin ve ardından Keşfet açılan liste hücresini eşleşen öğeyle otomatik olarak tamamlamak için tuşuna basın. Aşağıdaki demoya bakın.

Bu özellik hakkında daha fazla bilgi edinmek için tıklayın.

İlgili yazılar:

---

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

• Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
• Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
• Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
• Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
• Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
• Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
• Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
• Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
• 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.

Devamı ... Ücretsiz indirin... Satın alma... 

---

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... Satın alma...