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

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

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

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

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

Сначала вставьте поле со списком на лист и настройте его свойства.

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

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

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

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

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

Результат

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

См. также:

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

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

Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

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

Подробнее о Kutools для Excel…Бесплатная загрузка…

---

Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

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

Подробнее о Office Tab…Бесплатная загрузка…

---

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

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

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

Подробнее о Kutools for Office…Бесплатная загрузка…