Зміст
Перевірка даних є цікавою функцією Excel. Ця функція пропонує користувачеві контроль над введенням значень у комірку. Користувачі не можуть вводити все, що їм заманеться. Вони повинні вибирати із заданого списку. Ми обговоримо, як виконати автозаповнення випадаючого списку перевірки даних в Excel.
Завантажити Практичний посібник
Завантажте цей практичний посібник, щоб потренуватися, поки ви читаєте цю статтю.
Автозаповнення випадаючого списку перевірки даних.xlsm
2 Способи автозаповнення випадаючого списку перевірки даних в Excel
Ми покажемо 2 різні методи автоматичного заповнення випадаючого списку перевірки даних в Excel. Ми розглянемо наступний набір даних для автоматичної перевірки даних.
1. Автозаповнення випадаючого списку з перевіркою даних за допомогою кодів VBA в елементі управління Combo Box
Ми вставимо користувацькі VBA з кодом ActiveX Control інструмент для автоматичної перевірки даних з випадаючого списку в Excel.
Крок 1:
- По-перше, ми повинні додати Розробник в стрічці. Перейдіть на вкладку Файл> Параметри .
- Обирайте Налаштувати стрічку опція від Параметри Excel .
- Поставте галочку Розробник і натисніть ГАРАЗД. .
Крок 2:
- Обирайте Вставка від Розробник рахунок.
- Тепер виберіть Комбінований ящик від ActiveX Control .
Крок 3:
- Покладіть Блок управління на наборі даних.
- Натисніть правою кнопкою миші і виберіть Властивості зі списку.
Крок 4:
- Змініть Ім'я та прізвище до TempComboBox від Властивості вікно.
Крок 5:
- Перейдіть на сторінку Назва аркуша поле.
- Обирайте Переглянути код варіант зі списку.
А тепер Командний модуль VBA з'явиться. Ми повинні поставити VBA на цьому модулі.
Крок 6:
- Скопіюйте та вставте наступне VBA код на модулі.
Private Sub Wrksht_SelectionChange(ByVal Target As Range) Dim combox_1 As OLEObject Dim str_1 As String Dim ws_1 As Worksheet Dim arr_1 Set ws_1 = Application.ActiveSheet On Error Resume Next Set combox_1 = ws_1.OLEObjects("TempComboBox") With combox_1 .ListFillRange = "" .LinkedCell = "" .Visible = False End With If Target.Validation.Type = 3 Then Target.Validation.InCellDropdown = False Cancel =True str_1 = Ціль.Перевірка.Формула1 str_1 = Right(str_1, Len(str_1) - 1) If str_1 = "" Then Exit Sub With combox_1 .Visible = True .Left = Ціль.Left .Top = Ціль.Top .Width = Ціль.Width + 5 .Height = Ціль.Height + 5 .ListFillRange = str_1 If .ListFillRange = "" Then arr_1 = Split(str_1, ",") Me.TempComboBox.List = arr_1 End If .LinkedCell = Ціль.Адреса End With combox_1.ActivateMe.TempComboBox.DropDown End If End Sub Private Sub TempComboBox_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 Крок 7:
- А тепер, врятуйте VBA і перейдіть до набору даних. Вимкніть Режим проектування від Розробник рахунок.
Крок 8:
- Виберіть Комірка C5 .
- Виберіть пункт Інструменти даних група з Дані рахунок.
- Обирайте Перевірка даних зі списку.
Крок 9:
- Перевірка даних З'явиться вікно, в якому виберіть Список в Дозволити поле.
- В рамках проекту Джерело Виберіть у полі діапазон еталонних значень.
- Потім натисніть ГАРАЗД. .
Крок 10:
- Заходьте в будь-який осередок Відбір та натисніть будь-яку першу літеру.
Коли ми ставимо літеру, на цій комірці з'являється відповідна пропозиція.
Тепер заповнюємо всі клітинки бажаним вибором із запропонованого списку.
Читати далі: Випадаючий список перевірки даних за допомогою VBA в Excel (7 додатків)
2. автозаповнення випадаючого списку перевірки даних з комбінованим вікном з елементів управління ActiveX
Ми будемо використовувати тільки ActiveX Control для автоматичної перевірки даних.
Крок 1:
- Обирайте Вставка група з Розробник рахунок.
- Виберіть Комбінований ящик від ActiveX Control .
Крок 2:
- Помістіть Комбінований ящик на будь-якому вільному місці набору даних.
- Потім натисніть праву кнопку миші.
- Обирайте Властивості зі списку.
Крок 3:
- А тепер покладіть C5 в Зв'язана комірка оскільки дані будуть відображатися на Комірка C5 .
- Покладіть $5:$9 на ListFillRange поле.
- Обирайте 1-fmMatchEntryЗавершено для MatchEntry та збережіть зміни.
Крок 4:
- Тепер відключіть Режим проектування від Розробник рахунок.
Крок 5:
- Тепер поставте будь-яку літеру на комбіноване поле і пропозиція з'явиться. І, нарешті, дані можна буде переглянути на Комірка C5 .
Читати далі: Як створити випадаючий список в Excel для перевірки даних (8 способів)
Висновок
У цій статті ми виконали перевірка даних зі списку, що випадає Ми додали автозаповнення перевірки даних з випадаючого списку Excel. Сподіваюся, це задовольнить ваші потреби. Будь ласка, загляньте на наш сайт Exceldemy.com та висловлюйте свої пропозиції у полі для коментарів.
