Как выполнить автозаполнение при вводе в раскрывающемся списке Excel?

Для раскрывающегося списка проверки данных с большим количеством элементов вам необходимо прокрутить список вверх и вниз, чтобы найти тот, который вам нужен, или правильно ввести все слово в поле списка. Есть ли какие-либо методы для создания раскрывающегося списка с автозаполнением при вводе первой буквы или любых относительных символов? Это поможет людям более эффективно работать с листами с раскрывающимися списками в ячейках. В этом руководстве представлены два метода, которые помогут вам в этом.

Автозаполнение при вводе раскрывающегося списка с кодом VBA
Автозаполнение при вводе раскрывающегося списка с помощью замечательного инструмента
Дополнительные руководства для раскрывающегося списка ...

Автозаполнение при вводе раскрывающегося списка с кодом VBA

Чтобы раскрывающийся список автоматически заполнялся после ввода соответствующих букв в ячейке, сделайте следующее.

Во-первых, вам нужно вставить поле со списком в рабочий лист и изменить его свойства.

1. Откройте рабочий лист, содержащий ячейку раскрывающегося списка, для которой требуется выполнить автозаполнение.

2. Перед вставкой поля со списком вам необходимо добавить вкладку «Разработчик» на ленту Excel. Если на ленте отображается вкладка Разработчик, перейти к шагу 3. В противном случае сделайте следующее: Нажмите Файл > Опции для открытия Опции окно. В этом Параметры Excel окна, нажмите Настроить ленту на левой панели проверьте Застройщик поле, а затем щелкните OK кнопка. Смотрите скриншот:

3. Нажмите Застройщик > Вставить > Поле со списком (элемент управления ActiveX).

4. Нарисуйте поле со списком на текущем листе. Щелкните его правой кнопкой мыши и выберите Предложения из контекстного меню.

5. в Предложения диалоговое окно, замените исходный текст в (Имя) поле с ТемпКомбо.

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 окно.

С этого момента, когда щелкают ячейку раскрывающегося списка, раскрывающийся список будет запрашивать автоматически. Вы можете начать вводить букву, чтобы соответствующий элемент автоматически заполнялся в выбранной ячейке. Смотрите скриншот:

Примечание: Этот код не работает для объединенных ячеек.

Автозаполнение при вводе раскрывающегося списка с помощью замечательного инструмента

Поскольку многим пользователям Excel сложно работать с VBA, здесь рекомендуется Раскрывающийся список с возможностью поиска особенность Kutools for Excel чтобы помочь вам легко заполнить раскрывающийся список автоматически при вводе первого символа.

Внимание: Перед применением функции убедитесь, что вы создали раскрывающиеся списки на листе. В этом случае выпадающие списки помещаются в D3: D9.

1. Нажмите Кутулс > Раскрывающийся список > Раскрывающийся список с возможностью поиска > Настройки.

2. Во всплывающем Раскрывающийся список с возможностью поиска В диалоговом окне необходимо выполнить следующие настройки.

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

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

Нажмите, чтобы узнать больше об этой функции.

Статьи по теме:

---

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

Больше информации... Скачать бесплатно... Покупка ... 

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Больше информации... Скачать бесплатно... Покупка ...