Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Siluvia Last modified

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

A screenshot demonstrating autocomplete functionality in an Excel drop-down list

Включение автозавершения в выпадающих списках с помощью кода VBA
Легко включить автозавершение в выпадающих списках за 2 секунды

Больше руководств для выпадающих списков...


Включение автозавершения в выпадающих списках с помощью кода VBA

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

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

  1. Откройте рабочий лист, который содержит ячейки выпадающего списка, где вы хотите включить автозавершение.
  2. Перед вставкой комбинированного списка вам нужно добавить вкладку «Разработчик» на ленту Excel. Если вкладка «Разработчик» уже отображается на вашей ленте, перейдите к шагу 3. В противном случае выполните следующие действия, чтобы отобразить вкладку «Разработчик» на ленте: Нажмите «Файл» > «Параметры», чтобы открыть окно «Параметры». В окне «Параметры Excel» нажмите «Настроить ленту» в левой панели, отметьте флажок «Разработчик» и затем нажмите кнопку «ОК». См. скриншот:
    A screenshot showing the Excel Options window where the Developer tab is enabled
  3. Нажмите «Разработчик» > «Вставить» > «Комбинированный список (Элемент управления ActiveX)».
    A screenshot of selecting Combo Box under Developer tools in Excel
  4. Нарисуйте комбинированный список в текущем рабочем листе. Щелкните правой кнопкой мыши по нему и выберите «Свойства» из контекстного меню.
    A screenshot illustrating drawing and selecting properties for a Combo Box in Excel
  5. В диалоговом окне «Свойства» замените исходный текст в поле «(Имя)» на «TempCombo».
    A screenshot of the Properties dialog for a Combo Box in Excel, renaming it to TempCombo
  6. Отключите «Режим конструктора», нажав «Разработчик» > «Режим конструктора».

Затем примените следующий код VBA

  1. Щелкните правой кнопкой мыши по текущей вкладке листа и выберите «Просмотреть код» из контекстного меню. См. скриншот:
    A screenshot showing the context menu to access View Code for the current worksheet in Excel
  2. В открывшемся окне «Microsoft Visual Basic for Applications» скопируйте и вставьте следующий код 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
    A screenshot showing VBA code added to enable autocomplete in Excel drop-down lists
  3. Нажмите клавиши «Alt + Q» одновременно, чтобы закрыть окно Microsoft Visual Basic for Applications.

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

A screenshot demonstrating autocomplete functionality in an Excel drop-down list

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

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

Для большинства пользователей Excel вышеупомянутый метод VBA трудно освоить. Но с помощью функции «Поисковый выпадающий список» Kutools для Excel вы можете легко включить автозавершение для выпадающих списков с проверкой данных в указанном диапазоне всего за 2 секунды. Кроме того, эта функция доступна для всех версий Excel.

Kutools для Excel предлагает более 300 продвинутых функций для упрощения сложных задач, повышая креативность и эффективность. Интеграция с возможностями ИИ позволяет Kutools автоматизировать задачи с высокой точностью, делая управление данными без усилий. Подробная информация о Kutools для Excel...  Бесплатная пробная версия...
  1. Чтобы включить автозавершение в ваших выпадающих списках, сначала выберите диапазон с выпадающими списками. Затем перейдите на вкладку «Kutools», выберите «Выпадающий список» > «Сделать выпадающий список доступным для поиска, автоматическое появление».
  2. В диалоговом окне «Сделать выпадающий список доступным для поиска» нажмите кнопку «ОК», чтобы сохранить настройки.
  3. A screenshot of Kutools’ settings for enabling searchable drop-down lists in Excel

Результат

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

A demonstration of the autocomplete feature in Excel drop-down lists using Kutools

Примечание: Чтобы использовать эту функцию, пожалуйста, скачайте и установите Kutools для Excel. Или вы можете узнать больше об этой функции.

Связанные статьи:

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

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

Создание поискового выпадающего списка в Excel
Для выпадающего списка с множеством значений найти подходящее значение непросто. Ранее мы представили метод автозавершения выпадающего списка при вводе первой буквы в выпадающее поле. Помимо функции автозавершения, вы также можете сделать выпадающий список доступным для поиска, чтобы повысить эффективность работы при поиске подходящих значений в выпадающем списке. Для создания поискового выпадающего списка попробуйте метод из этого руководства.

Автоматическое заполнение других ячеек при выборе значений в выпадающем списке Excel
Допустим, вы создали выпадающий список на основе значений в диапазоне ячеек B8:B14. Когда вы выбираете любое значение из выпадающего списка, вы хотите, чтобы соответствующие значения в диапазоне ячеек C8:C14 автоматически заполнялись в выбранной ячейке. Для решения этой проблемы методы из этого руководства помогут вам.

Больше руководств для выпадающих списков...

Лучшие инструменты для повышения продуктивности в Office

🤖 Kutools AI Aide: Совершенно новый подход к анализу данных благодаря: Интеллектуальное выполнение |  Генерация кода  |  Создание пользовательских формул |  Анализ данных и построение диаграмм  |  Вызов Kutools Functions
Популярные функции: Поиск, выделение или отметка дубликатов | Удалить пустые строки | Объединить столбцы или адреса без потери данных | Округлить ...
Супер ПОИСК: VLOOKUP по нескольким критериям | VLOOKUP по нескольким значениям | Многолистовой поиск | Распознавание нечетких соответствий ...
Расширенный раскрывающийся список: Быстро создать раскрывающийся список | Зависимый раскрывающийся список | Множественный выбор в раскрывающемся списке ...
Менеджер столбцов: Добавить определённое количество столбцов | Переместить столбцы | Переключить видимость скрытых столбцов | Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка фокусировки | Дизайн листа | Улучшенная строка формулы | Управление книгой и листами | Библиотека автотекста | Выбор даты | Объединить данные | Зашифровать/расшифровать ячейки | Отправить письмо по списку | Супер фильтр | Специальный фильтр (фильтр жирный/курсив/зачеркнутый...) ...
Топ15 наборов инструментов:12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...) |50+ типов диаграмм (Диаграмма Ганта, ...) |40+ полезных формул (Расчет возраста на основе даты рождения, ...) |19 инструментов для вставки (Вставить QR-код, Вставить изображение по пути, ...) |12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...) |7 инструментов объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...) | ... и многое другое
Используйте Kutools на предпочитаемом вами языке — поддерживает Английский, Испанский, Немецкий, Французский, Китайский и более40 других языков!

Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...


Office Tab добавляет вкладки в Office и делает вашу работу намного проще

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

Все надстройки Kutools. Один установщик

Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.

Excel Word Outlook Tabs PowerPoint
  • Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
  • Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
  • Совместная работа — максимальная эффективность между приложениями Office
  • 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
  • Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек