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

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

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

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

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

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

1. Відкрийте робочий аркуш, який містить комірки розкривного списку, які потрібно зробити автозаповненням.

2. Перш ніж вставляти поле зі списком, потрібно додати вкладку Розробник на стрічку Excel. Якщо на вашій стрічці відображається вкладка Розробник, перейдіть до кроку 3. В іншому випадку виконайте наведені нижче дії, щоб вкладка Розробник відобразилася на стрічці: Натисніть філе > Опції відкрити Опції вікно. У цьому Параметри Excel вікна, натисніть Налаштувати стрічку на лівій панелі перевірте Розробник , а потім клацніть на OK кнопку. Дивіться знімок екрана:

3. клацання Розробник > Insert > Combo Box (управління ActiveX).

4. Намалюйте комбіноване поле на поточному аркуші. Клацніть правою кнопкою миші, а потім виберіть властивості з меню, що клацне правою кнопкою миші.

5 В властивості діалоговому вікні, будь ласка, замініть оригінальний текст у (Ім'я) поле с TempCombo.

6 Вимкніть Режим дизайну натиснувши Розробник > Режим дизайну.

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

7. Клацніть правою кнопкою миші на поточній вкладці аркуша та натисніть Переглянути код з контекстного меню. Дивіться знімок екрана:

8. На відкритті 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

9. прес інший + Q клавіші одночасно, щоб закрити Програми Microsoft Visual Basic вікна.

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

Примітка: Цей код не працює для об’єднаних комірок.

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

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

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

1. Select Кутулс > Випадаючий список > Розкривний список для пошуку.
2. В Розкривний список для пошуку у діалоговому вікні вкажіть, де ви хочете застосувати цю функцію в Встановити область і натисніть кнопку OK щоб зберегти налаштування.

Результат

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

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

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools for Excel Вирішує більшість ваших проблем і підвищує вашу продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...