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

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

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

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

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

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

1. Откройте рабочий лист, который содержит ячейки выпадающего списка, где вы хотите включить автозавершение.
2. Перед вставкой комбинированного списка вам нужно добавить вкладку «Разработчик» на ленту Excel. Если вкладка «Разработчик» уже отображается на вашей ленте, перейдите к шагу 3. В противном случае выполните следующие действия, чтобы отобразить вкладку «Разработчик» на ленте: Нажмите «Файл» > «Параметры», чтобы открыть окно «Параметры». В окне «Параметры Excel» нажмите «Настроить ленту» в левой панели, отметьте флажок «Разработчик» и затем нажмите кнопку «ОК». См. скриншот:
   
3. Нажмите «Разработчик» > «Вставить» > «Комбинированный список (Элемент управления ActiveX)».
   
4. Нарисуйте комбинированный список в текущем рабочем листе. Щелкните правой кнопкой мыши по нему и выберите «Свойства» из контекстного меню.
   
5. В диалоговом окне «Свойства» замените исходный текст в поле «(Имя)» на «TempCombo».
   
6. Отключите «Режим конструктора», нажав «Разработчик» > «Режим конструктора».

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

1. Щелкните правой кнопкой мыши по текущей вкладке листа и выберите «Просмотреть код» из контекстного меню. См. скриншот:
   
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

   
3. Нажмите клавиши «Alt + Q» одновременно, чтобы закрыть окно Microsoft Visual Basic for Applications.

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

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

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

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

Результат

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

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