Как да попълвам автоматично при въвеждане в падащия списък на Excel?

За падащ списък за валидиране на данни с много елементи, трябва да превъртите нагоре и надолу в списъка, за да намерите този, от който се нуждаете, или да въведете правилно цялата дума в списъчното поле. Има ли някакъв начин падащият списък да се попълва автоматично при въвеждане на съответните знаци? Това ще помогне на хората да работят по-ефективно в работни листове с падащи списъци в клетките. Този урок предоставя два метода, които да ви помогнат да го постигнете.

Направете автоматично довършване на падащи списъци с VBA код
Лесно правете автоматично довършване на падащите списъци за 2 секунди
Още уроци за падащия списък...

Направете автоматично довършване на падащи списъци с VBA код

Моля, направете следното, за да направите автоматично довършване на падащ списък, след като въведете съответните букви в клетката.

Първо, трябва да вмъкнете разгъващ се списък в работния лист и да промените свойствата му.

1. Отворете работния лист, който съдържа клетките от падащия списък, които искате да направите автоматично попълващи.
2. Преди да вмъкнете комбинирано поле, трябва да добавите раздела Разработчик към лентата на Excel. Ако разделът Разработчик се показва на вашата лента, преминете към стъпка 3. В противен случай направете следното, за да се покаже разделът Разработчик в лентата: Щракнете досие > Настроики за да отворите Настроики прозорец. В това Опции на Excel прозорец, кликнете Персонализирайте лентата в левия панел проверете Софтуерен Инженер и след това щракнете върху OK бутон. Вижте екранна снимка:
   
3. Кликнете Софтуерен Инженер > Поставете > Комбо поле (ActiveX Control).
   
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. Натискане Друг + Q клавиши едновременно, за да затворите Microsoft Visual Basic приложения прозорец.

Отсега нататък, когато щракнете върху клетка от падащ списък, падащият списък ще ви подкани автоматично. Можете да започнете да въвеждате буквата, за да завършите автоматично съответния елемент в избраната клетка. Вижте екранна снимка:

Лесно направете автоматично довършване на падащия списък за 2 секунди

За повечето потребители на Excel горният VBA метод е труден за овладяване. Но с Падащ списък с възможност за търсене функция на Kutools за Excel, можете лесно да активирате автоматичното довършване за падащите списъци за валидиране на данни в определен диапазон само за 2 секунди. Нещо повече, тази функция е достъпна за всички версии на Excel.

тип: Преди да приложите този инструмент, моля, инсталирайте Kutools за Excel на първо място. Отидете на безплатно изтегляне сега.

1. За да активирате автоматичното довършване във вашите падащи списъци, първо изберете диапазона с падащите менюта. След това отидете до Kutools раздела, изберете Падащ списък > Направете падащия списък достъпен за търсене, автоматично изскачащ.
2. в Направете падащия списък достъпен за търсене диалогов прозорец, щракнете върху OK за да запазите настройката.

Резултат

След като конфигурирането приключи, щракването върху клетка от падащ списък в посочения диапазон ще изведе списъчно поле. Когато въвеждате знаци, стига един елемент да съвпада точно, цялата дума веднага се маркира в списъчното поле и може да бъде попълнена в клетката на падащия списък просто чрез натискане на клавиша Enter.

Още по темата:

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Прочети повече ... Безплатно сваляне...

---

Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

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

Прочети повече ... Безплатно сваляне...