Excel açılır listesinde 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 öğeyi bulmak üzere listede yukarı ve aşağı kaydırmanız ya da tam kelimeyi liste kutusuna doğru bir şekilde yazmanız gerekir. Karakterleri yazarken açılır listenin otomatik olarak tamamlanmasını sağlamak mümkün mü? Bu durum, hücrelerde açılır listeler içeren çalışma sayfalarında insanların daha verimli çalışmasına yardımcı olacaktır. Bu öğretici, bunu başarmak için size iki yöntem sunar.

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

VBA kodu ile açılır listeleri otomatik tamamlama yapma

Lütfen bir hücreye karşılık gelen harfleri yazdıktan sonra açılır bir listenin otomatik tamamlanmasını sağlamak için aşağıdaki adımları izleyin.

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

1. Otomatik tamamlama özelliğini etkinleştirmek istediğiniz açılır liste hücrelerini içeren çalışma sayfasını açın.
2. Birleşik giriş kutusu eklemadan önce, Geliştirici sekmesini Excel şeridine eklemeniz gerekir. Eğer Geliştirici sekmesi şeridinizde görünüyor ise, 3. adıma geçin. Aksi takdirde, Geliştirici sekmesini şeritte göstermek için şu adımları izleyin: "Dosya" > "Seçenekler"e tıklayarak "Seçenekler" penceresini açın. Bu "Excel Seçenekleri" penceresinde, sol bölmedeki "Şeridi Özelleştir" seçeneğine tıklayın, "Geliştirici" kutucuğunu işaretleyin ve ardından "Tamam" düğmesine tıklayın. Ekran görüntüsüne bakın:
   
3. "Geliştirici" > "Ekle" > "Birleşik Giriş Kutusu (ActiveX Kontrolü)" seçeneğine tıklayın.
   
4. Geçerli çalışma sayfasında bir birleşik giriş kutusu çiziniz. Üzerine sağ tıklayın ve ardından sağ tıklama menüsünden "Özellikler" seçeneğini seçin.
   
5. "Özellikler" iletişim kutusunda lütfen "(Ad)" alanındaki orijinal metni "TempCombo" ile değiştirin.
   
6. "Geliştirici" > "Tasarım Modu" seçeneğine tıklayarak "Tasarım Modu"nu kapatın.

Sonra, aşağıdaki VBA kodunu uygulayın

1. Geçerli sayfa sekmesine sağ tıklayın ve bağlam menüsünden "Kodu Görüntüle" seçeneğine tıklayın. Ekran görüntüsüne bakın:
   
2. Açılan "Microsoft Visual Basic for Applications" penceresinde 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 listede 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. Microsoft Visual Basic Applications penceresini kapatmak için "Alt + Q" tuşlarına aynı anda basın.

Artık bir açılır liste hücresine tıkladığınızda, açılır liste otomatik olarak açılacaktır. Harf yazmaya başlayabilir ve ilgili öğenin seçili hücrede otomatik olarak tamamlanmasını sağlayabilirsiniz. Ekran görüntüsüne bakın:

Açılır listeyi 2 saniye içinde kolayca otomatik tamamlayabilme

Çoğu Excel kullanıcısı için yukarıdaki VBA yöntemi öğrenmesi zor olabilir. Ancak Kutools for Excel'in "Aranabilir Açılır Liste" özelliği ile belirli bir Aralıkta veri doğrulama açılır listeleri için otomatik tamamlamayı yalnızca 2 saniyede kolayca etkinleştirebilirsiniz. Ayrıca bu özellik tüm Excel sürümleri için kullanılabilir.

1. Açılır listelerinizde otomatik tamamlamayı etkinleştirmek için önce açılır listeleri içeren aralığı seçin. Ardından "Kutools" sekmesine gidin, "Açılır Liste" > "Açılır Listeyi Aranabilir Yap, Otomatik Açılan Pencere" seçeneğini seçin.
2. "Açılır Listeyi Aranabilir Yap" iletişim kutusunda, ayarları kaydetmek için "Tamam" düğmesine tıklayın.

Sonuç

Yapılandırma tamamlandıktan sonra, belirlenen aralık içinde bir açılır liste hücresine tıkladığınızda bir liste kutusu açılacaktır. Karakter girerken, bir öğe tam olarak eşleştiği sürece, tüm kelime liste kutusunda hemen vurgulanır ve açılır liste hücresine Enter tuşuna basarak doldurulabilir.

İlgili makaleler: