Съдържание
Проверката на данните е интересна функция на Excel. Тази функция предлага контрол на потребителя за въвеждане на стойности в клетка. Потребителите не могат да въвеждат каквото искат. Те трябва да избират от даден списък. Ще обсъдим как да извършим автоматично попълване на данни за проверка на падащ списък в Excel.
Изтегляне на работна тетрадка за практика
Изтеглете тази учебна тетрадка, за да се упражнявате, докато четете тази статия.
Автоматично попълване на данни за валидиране на списък с падащи списъци.xlsm
2 метода за автоматично попълване на падащ списък с валидиране на данни в Excel
Ще покажем 2 различни методи за автоматично попълване на падащия списък за валидиране на данни в Excel. Ще разгледаме следния набор от данни за автоматично попълване на валидиране на данни.
1. Автоматично попълване на списък с падащи списъци за валидиране на данни с помощта на VBA кодове в Combo Box Control
Ние ще вмъкнем обичай VBA код с Контрол ActiveX инструмент за автоматично извършване на валидиране на данни от падащия списък в Excel.
Стъпка 1:
- Първо трябва да добавим Разработчик в лентата. Отидете в Файл> Опции .
- Изберете Персонализиране на лентата опция от Опции за Excel .
- Отбележете Разработчик и натиснете OK .
Стъпка 2:
- Изберете Вмъкване на от Разработчик таб.
- Сега изберете Комбинирана кутия от Контрол ActiveX .
Стъпка 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 = Target.Validation.Formula1 str_1 = Right(str_1, Len(str_1) - 1) If str_1 = "" Then Exit Sub With combox_1 .Visible = True .Left = Target.Left .Top = Target.Top .Width = Target.Width + 5 .Height = Target.Height + 5 .ListFillRange = str_1 If .ListFillRange = "" Then arr_1 = Split(str_1, ",") Me.TempComboBox.List = arr_1 End If .LinkedCell = Target.Address 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:
- Утвърждаване на данните Ще се появи прозорец. Изберете Списък в Позволете област.
- В Източник: изберете диапазона на референтната стойност.
- След това натиснете OK .
Стъпка 10:
- Отидете в която и да е клетка на Избор и натиснете всяка първа буква.
Когато поставим буква, съответното предложение ще се покаже в тази клетка.
Сега попълнете всички клетки с желания от нас избор от предложения списък.
Прочетете още: Списък с падащи списъци за валидиране на данни с VBA в Excel (7 приложения)
2. Автоматично попълване на падащ списък с проверка на данните с Combo Box от ActiveX Controls
Ще използваме само Контрол ActiveX за автоматично валидиране на данните.
Стъпка 1:
- Изберете Вмъкване на група от Разработчик таб.
- Изберете Комбинирана кутия от Контрол ActiveX .
Стъпка 2:
- Поставете Комбинирана кутия на всяко празно място в набора от данни.
- След това натиснете десния бутон на мишката.
- Изберете Имоти от списъка.
Стъпка 3:
- Сега поставете C5 в Свързана клетка поле, тъй като данните ще се показват в Клетка C5 .
- Поставете $B$5:$B$9 на ListFillRange област.
- Изберете 1-fmMatchEntryComplete за MatchEntry и запишете промените.
Стъпка 4:
- Сега деактивирайте Режим на проектиране от Разработчик таб.
Стъпка 5:
- Сега поставете която и да е буква в полето за избор и ще се появи предложението. И накрая, данните ще бъдат прегледани на Клетка C5 .
Прочетете още: Как да създадете падащ списък в Excel за валидиране на данни (8 начина)
Заключение
В тази статия извършихме валидиране на данни от падащия списък . Добавихме автоматично попълване на валидиране на данни от падащия списък на Excel. Надявам се, че това ще задоволи нуждите ви. Моля, разгледайте нашия уебсайт Exceldemy.com и дайте своите предложения в полето за коментари.