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

Birçok öğe içeren bir veri doğrulama açılır listesi için, ihtiyacınız olanı bulmak için listede yukarı ve aşağı kaydırmanız veya liste kutusuna tüm kelimeyi doğru yazmanız gerekir. Karşılık gelen karakterleri yazarken açılır listeyi otomatik tamamlamanın bir yolu var mı? Bu, insanların hücrelerde açılan listelerle çalışma sayfalarında daha verimli çalışmasına yardımcı olur. Bu öğretici, bunu başarmanıza yardımcı olacak iki yöntem sunar.

VBA koduyla açılır listeleri otomatik tamamlama yapın
Açılır listeleri 2 saniye içinde kolayca otomatik tamamlama yapın
Açılır liste için daha fazla öğretici ...

VBA koduyla açılır listeleri otomatik tamamlama yapın

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 tamamlamalarını istediğiniz açılır liste hücrelerini içeren çalışma sayfasını açın.
2. Açılan kutuyu eklemeden önce Geliştirici sekmesini Excel şeridine eklemeniz gerekir. Şeridinizde Geliştirici sekmesi gösteriliyorsa, 3. adıma geç. Aksi takdirde, şeritte Geliştirici sekmesinin görünmesi için aşağıdakileri 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ıkla Geliştirici > Ekle > Birleşik Giriş Kutusu (ActiveX Kontrolü).
   
4. Geçerli ç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. Kapamak Tasarım Modu tıklayarak Geliştirici > Tasarım Modu.

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

1. Geçerli sayfa sekmesine sağ tıklayın ve tıklayın Kodu Görüntüle bağlam menüsünden. Ekran görüntüsüne bakın:
   
2. 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

   
3. 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:

Açılır listeyi 2 saniye içinde kolayca otomatik tamamlama yapın

Çoğu Excel kullanıcısı için yukarıdaki VBA yönteminde ustalaşmak zordur. Ama ile Aranabilir Açılır Liste özelliği Kutools for Excel, veri doğrulama açılır listeleri için otomatik tamamlamayı kolayca etkinleştirebilirsiniz. belirli bir aralık sadece 2 saniyede. Üstelik bu özellik tüm Excel sürümlerinde mevcuttur.

Bahşiş: Bu aracı uygulamadan önce lütfen kurun Kutools for Excel birinci olarak. Şimdi ücretsiz indirmeye git.

1. Açılır listelerinizde otomatik tamamlamayı etkinleştirmek için öncelikle açılır menülerin bulunduğu aralığı seçin. Ardından şuraya gidin: Kutools sekmesini seçin Açılır liste > Açılır Listeyi Aranabilir Hale Getirin, Otomatik Açılır.
2. içinde Açılır Listeyi Aranabilir Hale Getirin iletişim kutusunda OK ayarı kaydetmek için

Sonuç

Yapılandırma tamamlandıktan sonra, belirtilen aralıktaki açılır liste hücresine tıklamak bir liste kutusu açacaktır. Karakterleri girerken, bir öğe tam olarak eşleştiği sürece, kelimenin tamamı liste kutusunda hemen vurgulanır ve yalnızca Enter tuşuna basılarak açılır liste hücresine doldurulabilir.

İlgili yazılar: