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

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

Автозаповнення під час введення в розкривному списку коду VBA
Автозавершення під час введення у спадному списку за допомогою дивовижного інструменту
Більше підручників для випадаючого списку ...

Автозаповнення під час введення в розкривному списку коду 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 вікна.

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

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

Автозавершення під час введення у спадному списку за допомогою дивовижного інструменту

Оскільки VBA важко обробляти багатьом користувачам Excel, рекомендуємо тут Розкривний список для пошуку особливість Kutools для Excel щоб допомогти вам легко заповнити розкривний список автоматично під час введення першого символу.

примітки: перед застосуванням функції переконайтеся, що ви створили спадні списки на робочому аркуші. У цьому випадку розкривні списки розміщуються в D3:D9.

1. клацання Кутулс > Випадаючий список > Розкривний список для пошуку > настройки.

2. У спливаючому Розкривний список для пошуку діалогове вікно, вам потрібно виконати наступні налаштування.

3. Після завершення налаштувань необхідно увімкнути функцію, натиснувши Кутулс > Випадаючий список > Розкривний список для пошуку > Увімкнути розкривний список для пошуку.

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

Натисніть, щоб дізнатися більше про цю функцію.

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї утиліти, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.

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

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

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

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

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

---

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

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

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