Note: The other languages of the website are Google-translated. Back to English

Як здійснити автозаповнення під час набору тексту у випадаючому списку Excel?

Для розкривного списку перевірки даних із багатьма елементами потрібно прокручувати список угору та вниз, щоб знайти потрібний, або правильно ввести все слово у поле зі списком. Чи є спосіб зробити розкривний список автозаповненим під час введення відповідних символів? Це допоможе людям ефективніше працювати на аркушах із розкривними списками в клітинках. Цей посібник пропонує два методи, які допоможуть вам досягти цього.

Зробіть автозаповнення випадаючих списків за допомогою коду VBA
Легко зробіть автозаповнення розкривних списків за 2 секунди

Більше підручників для випадаючого списку ...


Зробіть автозаповнення випадаючих списків за допомогою коду VBA

Будь ласка, виконайте наступні дії, щоб зробити розкривний список автозаповненням після введення відповідних літер у клітинку.

По-перше, вам потрібно вставити комбіноване поле в аркуш і змінити його властивості.

1. Відкрийте робочий аркуш, який містить комірки розкривного списку, які потрібно зробити автозаповненням.

2. Перш ніж вставляти поле зі списком, потрібно додати вкладку Розробник на стрічку Excel. Якщо на вашій стрічці відображається вкладка Розробник, перейдіть до кроку 3. В іншому випадку виконайте наведені нижче дії, щоб вкладка Розробник відобразилася на стрічці: Натисніть філе > Опції відкрити Опції вікно. У цьому Параметри Excel вікна, натисніть Налаштувати стрічку на лівій панелі перевірте Розробник , а потім клацніть на OK кнопку. Дивіться знімок екрана:

3. клацання Розробник > Insert > Combo Box (управління ActiveX).

4. Намалюйте комбіноване поле на поточному аркуші. Клацніть правою кнопкою миші, а потім виберіть властивості з меню, що клацне правою кнопкою миші.

5 В властивості діалоговому вікні, будь ласка, замініть оригінальний текст у (Ім'я) поле с TempCombo.

6 Вимкніть Режим дизайну натиснувши Розробник > Режим дизайну.

Потім застосуйте наведений нижче код VBA

7. Клацніть правою кнопкою миші на поточній вкладці аркуша та натисніть Переглянути код з контекстного меню. Дивіться знімок екрана:

8. На відкритті 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

9. прес інший + Q клавіші одночасно, щоб закрити Програми Microsoft Visual Basic вікна.

Відтепер, при натисканні на клітинку випадаючого списку, випадаючий список автоматично запитує. Ви можете почати вводити лист, щоб відповідний елемент автоматично заповнився у вибраній комірці. Дивіться знімок екрана:

Примітка: Цей код не працює для об’єднаних комірок.


Легко зробіть автозаповнення розкривного списку за 2 секунди

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

Чайові: Перш ніж застосовувати цей інструмент, установіть його Kutools for Excel по-перше Перейдіть до безкоштовного завантаження зараз.

  1. Select Кутулс > Випадаючий список > Розкривний список для пошуку.
  2. В Розкривний список для пошуку у діалоговому вікні вкажіть, де ви хочете застосувати цю функцію в Встановити область і натисніть кнопку OK щоб зберегти налаштування.
Результат

Після налаштування клацання комірки розкривного списку в межах указаного діапазону призведе до появи списку. Коли ви вводите символи, як тільки один елемент точно збігається, все слово буде автоматично завершено.

примітки: Щоб застосувати цю функцію, будь ласка завантажте та встановіть Kutools for Excel перший.

Статті по темі:

Як створити випадаючий список із декількома прапорцями в Excel?
Багато користувачів Excel, як правило, створюють випадаючий список із декількома прапорцями, щоб вибирати кілька елементів зі списку за раз. Насправді ви не можете створити список із кількома прапорцями за допомогою перевірки даних. У цьому підручнику ми покажемо вам два способи створення випадаючого списку з декількома прапорцями в Excel. Цей посібник пропонує метод вирішення проблеми.

Створіть випадаючий список з іншої книги в Excel
Створити випадаючий список перевірки даних серед робочих аркушів у книзі досить просто. Але якщо дані списку, необхідні для перевірки даних, знаходяться в іншій книзі, що б ви зробили? У цьому посібнику ви дізнаєтесь, як детально створити випадаючий список з іншої книги в Excel.

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

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

Більше підручників для випадаючого списку ...


Найкращі інструменти для підвищення продуктивності офісу

Kutools for Excel Вирішує більшість ваших проблем і підвищує вашу продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (325)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Я спробував, і він працював лише 2 дні у властивостях, він дає мені повідомлення про помилку при введенні TempCombo, що це неоднозначне ім'я. Будь ласка, допоможіть
Цей коментар був мінімізований модератором на сайті
Чудове рішення, дякую!
Цей коментар був мінімізований модератором на сайті
Привіт... Після додавання цього поля зі списком я не можу скопіювати та вставити інші елементи на аркуші. Це дозволяє мені копіювати методом вставки, виділено сірим кольором. Крім того, чи є спосіб зробити так, щоб поле зі списком працювало в об’єднаних клітинках? Дякую
Цей коментар був мінімізований модератором на сайті
Та ж проблема, що й у іншого користувача - після додавання цього поля зі списком я не можу скопіювати та вставити з однієї клітинки в іншу. Функція копіювання, здається, працює, але вставка, спеціальна вставка та CTRL+V ні. Дякую.
Цей коментар був мінімізований модератором на сайті
Привіт Томас... ти коли-небудь знаходив рішення для цього? Я ще не знайшов.
Цей коментар був мінімізований модератором на сайті
Немає справжньої відповіді - я просто повертаюся до РОЗРОБНИКА і знімаю вибір РЕЖИМ ДИЗАЙНУ, коли мені потрібно скопіювати, а потім - не забудьте знову натиснути РЕЖИМ ДИЗАЙНУ, коли ви закінчите; інакше ваше поле зі списком не працюватиме належним чином, якщо ви двічі клацнете клітинку.
Цей коментар був мінімізований модератором на сайті
Я захищаю аркуш, щоб формули не можна було змінювати, і коли я захищаю аркуш, функція автоматичного заповнення більше не працює. Чи є у вас рішення для цього?
Цей коментар був мінімізований модератором на сайті
ви знайшли рішення для цього?
Цей коментар був мінімізований модератором на сайті
Як я можу заблокувати клітинки?
Цей коментар був мінімізований модератором на сайті
Працює добре.. Дякую.. Заощадив багато мого часу.. Ще один вимір. З цим кодом він добре працює в одному стовпці. Які зміни ми повинні внести в код vba, щоб забезпечити роботу цього коду в іншому стовпці також на тому ж аркуші, але з іншим джерелом перевірки даних
Цей коментар був мінімізований модератором на сайті
Дякую за величезну допомогу. Багато мого часу буде збережено. Цей код працює лише для однієї перевірки даних у стовпці на аркуші. Які зміни ми повинні внести в код, щоб працювати з 2 перевірками даних у 2 окремих стовпцях з окремим джерелом даних
Цей коментар був мінімізований модератором на сайті
Чи має мій набір даних/іменований діапазон, який використовується для мого спадного списку, бути на одному аркуші, щоб це працювало? Я отримую, що поле зі списком активується, коли я двічі клацаю по спадному меню, але коли я починаю вводити, нічого не з’являється? Маєте уявлення, в чому тут може бути проблема? Я виконав усі кроки вище. Дуже дякую, Джареде
Цей коментар був мінімізований модератором на сайті
Мені вдалося змусити код працювати, але у мене виникли проблеми зі збереженням файлу, я отримую різні повідомлення про помилку. як тільки я його збережу та знову відкрию, функція автозаповнення не працює. Я використовую Excel 2007. Чи може хтось надати допомогу, як зберегти файл? багато допомоги в Інтернеті, але я не розумію всіх команд. Спасибі
Цей коментар був мінімізований модератором на сайті
Ніде не сказано, як додати елементи до спадного списку.
Цей коментар був мінімізований модератором на сайті
Джонатан, ти дізнався, як це зробити?
Цей коментар був мінімізований модератором на сайті
Мене це теж спочатку бентежило. Я зрозумів, що цей код має поєднуватися з будь-якою клітинкою перевірки даних на аркуші. Отже, спочатку налаштуйте перевірку даних, зокрема те, звідки вона отримує свою інформацію, а потім код витягне інформацію списку з перевірки даних і накладе ComboBox на комірку з перевіркою даних. Сподіваюся, це допоможе.
Цей коментар був мінімізований модератором на сайті
Дякую за корисне рішення :-)
Цей коментар був мінімізований модератором на сайті
Я завершив розкривний список автозаповнення, однак я не знаю, як показати значення після введення тексту в спадному списку. Наприклад, у моїй БАЗІ ДАНИХ колонка 1 складається з позицій, а стовпці 2 і 3 містять вартість товару. Якщо ввести товар у моєму спадному списку НА ОСНОВНОМУ АРКУШУ в колонці 1, вартість предметів з’явиться у колонках 2 і 3. Чи можливо це зробити? Допоможіть мені, будь ласка
Цей коментар був мінімізований модератором на сайті
де діапазон списку джерел для перевірки?
Цей коментар був мінімізований модератором на сайті
Не забудьте додати діапазон елементів для спадного списку у властивості ComboBox «ListFillRange»
Цей коментар був мінімізований модератором на сайті
Дуже добре працює для спадних списків, які використовують ='range', але функціональність порушується, як тільки діапазон є результатом формули, наприклад =IF(A1>0,'range','alternative'). Можливість вводити незаповнений TempCombo
Цей коментар був мінімізований модератором на сайті
Привіт! Це чудово. Але як зв’язати свій спадний список із Combobox??? будь ласка, допоможіть.
Цей коментар був мінімізований модератором на сайті
Привіт, у мене проблема з цим, я не бачу жодних значень у спадному меню. Хтось може сказати мені, як я можу зв’язати свій діапазон даних зі спадним меню? щоб показати пропозиції. якщо ви можете надіслати мені заповнену електронну таблицю, це буде дуже вдячний. (Моя електронна адреса deshandsouza@gmail.com)
Цей коментар був мінімізований модератором на сайті
Я отримав рішення для вищевказаного! Щойно пропустив створений спадний список перевірки даних. зараз він працює нормально.
Цей коментар був мінімізований модератором на сайті
Ууууу! Виконавши кроки в автозавершенні, вводячи у спадному списку код VBA, я отримав саме те, що хотів! Дякую! Дякую!
Цей коментар був мінімізований модератором на сайті
Ну... він працював для однієї клітинки, але коли я спробував змусити його працювати для всього стовпця, я не зміг :( У мене є стовпець A=Назва елемента Col B= Дата створення стовпець C= я хочу ввести категорію, але маю спадний список на вибір. У мене є 723 "Предмети", тому 723 рядки, де я хочу, щоб спадний список з'являвся під час введення значень. Будь-які пропозиції? Наперед дякую
Цей коментар був мінімізований модератором на сайті
але, як ви створюєте список для спадного списку з даних ...
There are no comments posted here yet
Load More

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL