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

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

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

Сделать выпадающие списки автозаполненными с кодом VBA

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

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

1. Откройте лист, содержащий ячейки раскрывающегося списка, для которых вы хотите сделать их автозаполнением.
2. Прежде чем вставлять поле со списком, вам необходимо добавить вкладку «Разработчик» на ленту Excel. Если на ленте отображается вкладка «Разработчик», перейти к шагу 3. В противном случае сделайте следующее, чтобы вкладка «Разработчик» появилась на ленте: Нажмите Файл > Опции для открытия Опции окно. В этом Параметры Excel окна, нажмите Настроить ленту на левой панели проверьте Застройщик поле, а затем щелкните OK кнопка. Смотрите скриншот:
   
3. Нажмите Застройщик > Вставить > Поле со списком (элемент управления ActiveX).
   
4. Нарисуйте поле со списком на текущем листе. Щелкните правой кнопкой мыши и выберите Объекты из контекстного меню.
   
5. В Объекты диалоговое окно, замените исходный текст в (Имя) поле с ТемпКомбо.
   
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. Press другой + Q клавиши одновременно, чтобы закрыть Приложения Microsoft Visual Basic окно.

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

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

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

Функции: Перед применением этого инструмента установите Kutools for Excel в первую очередь. Перейти к бесплатной загрузке сейчас.

1. Чтобы включить автозаполнение в раскрывающихся списках, сначала выберите диапазон с раскрывающимися списками. Затем перейдите к Кутулс , выберите Раскрывающийся список > Сделать раскрывающийся список доступным для поиска, автоматическое всплывающее окно.
2. В Сделайте раскрывающийся список доступным для поиска диалоговом окне нажмите кнопку OK чтобы сохранить настройку.

Результат

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

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