Як здійснити автозаповнення під час набору тексту у випадаючому списку Excel?

Для розкривного списку перевірки даних із багатьма елементами потрібно прокручувати список угору та вниз, щоб знайти потрібний, або правильно ввести все слово у поле зі списком. Чи є спосіб зробити розкривний список автозаповненим під час введення відповідних символів? Це допоможе людям ефективніше працювати на аркушах із розкривними списками в клітинках. Цей посібник пропонує два методи, які допоможуть вам досягти цього.

Зробіть автозаповнення випадаючих списків за допомогою коду VBA
Легко зробіть автозаповнення розкривних списків за 2 секунди
Більше підручників для випадаючого списку ...

Зробіть автозаповнення випадаючих списків за допомогою коду VBA

Будь ласка, виконайте наступні дії, щоб зробити розкривний список автозаповненням після введення відповідних літер у клітинку.

По-перше, вам потрібно вставити комбіноване поле в аркуш і змінити його властивості.

1. Відкрийте робочий аркуш, який містить клітинки розкривного списку, які потрібно зробити автозаповненими.
2. Перш ніж вставляти поле зі списком, потрібно додати вкладку «Розробник» на стрічку Excel. Якщо вкладка «Розробник» відображається на стрічці, перейдіть до кроку 3. В іншому випадку виконайте наведені нижче дії, щоб вкладка Розробник відобразилася на стрічці: Натисніть Файл > Опції відкрити Опції вікно. У цьому Параметри Excel вікна, натисніть Налаштувати стрічку на лівій панелі перевірте Розробник , а потім клацніть на OK кнопку. Дивіться знімок екрана:
   
3. Натисніть Розробник > Insert > Combo Box (управління ActiveX).
   
4. Намалюйте поле зі списком на поточному аркуші. Клацніть його правою кнопкою миші та виберіть властивості з меню, що клацне правою кнопкою миші.
   
5. У властивості діалоговому вікні, будь ласка, замініть оригінальний текст у (Ім'я) поле с TempCombo.
   
6. Вимкніть Режим дизайну натиснувши Розробник > Режим дизайну.

Потім застосуйте наведений нижче код VBA

1. Клацніть правою кнопкою миші вкладку поточного аркуша та натисніть Переглянути код з контекстного меню. Дивіться знімок екрана:
   
2. На відкритті Microsoft Visual Basic для додатків вікно, скопіюйте та вставте наведений нижче код VBA у вікно коду робочого аркуша.
   Код VBA: автозаповнення під час введення в розкривному списку

   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. прес інший + Q клавіші одночасно, щоб закрити Програми Microsoft Visual Basic вікна.

Відтепер, при натисканні на клітинку випадаючого списку, випадаючий список автоматично запитує. Ви можете почати вводити лист, щоб відповідний елемент автоматично заповнився у вибраній комірці. Дивіться знімок екрана:

Легко зробіть автозаповнення розкривного списку за 2 секунди

Для більшості користувачів Excel важко освоїти наведений вище метод VBA. Але з Розкривний список для пошуку особливість Kutools для Excel, ви можете легко ввімкнути автозаповнення для розкривних списків перевірки даних заданий діапазон всього за 2 секунди. Більше того, ця функція доступна для всіх версій Excel.

Чайові: Перш ніж застосовувати цей інструмент, установіть його Kutools для Excel по-перше Перейдіть до безкоштовного завантаження зараз.

1. Щоб увімкнути автозаповнення у спадних списках, спочатку виберіть діапазон із спадними списками. Потім перейдіть до Кутулс вкладку, виберіть Випадаючий список > Зробити розкривний список доступним для пошуку, автоматично спливати.
2. У Зробіть розкривний список доступним для пошуку у діалоговому вікні натисніть значок OK кнопка, щоб зберегти налаштування.

Результат

Після завершення конфігурації клацніть клітинку розкривного списку в межах зазначеного діапазону, щоб відкрити список. Під час введення символів, якщо один елемент точно збігається, усе слово одразу виділяється у полі списку та може бути заповнено коміркою розкривного списку, просто натиснувши клавішу Enter.

Статті по темі: