Цей підручник покаже, як використовувати перевірку даних для роботи зі спадними списками в Excel за допомогою VBA.
Перевірка даних Excel дозволяє обмежити значення, які можна ввести в клітинку або діапазон. Ви можете обмежити записи натуральними цілими числами, текстом, датами тощо. У цьому підручнику ми розглянемо, як створити розкривний список перевірки даних у клітинці за допомогою VBA.
Примітка: Альтернативою розкривного списку перевірки даних є об'єкт ListBox. ListBoxes можна додавати до робочих листів Excel. ListBoxes можуть запускати макроси, які запускаються щоразу, коли змінюється значення ListBox. ListBoxes також використовуються у формах користувача VBA.
Створення розкривного списку за допомогою VBA
Ми маємо текст Fruit у клітинці A1, і ми збираємось створити розкривний список у комірці A2 з п’ятьма записами.
Ми будемо використовувати метод Validation.Add і вкажемо, що параметром Type є xlValidateList. Ви можете додати потрібні елементи у свій список за допомогою параметра Formula1.
Наступний код створить розкривний список перевірки даних у комірці А2:
| 123456 | Sub DropDownListinVBA ()Діапазон ("A2"). Перевірка. Тип додавання: = xlValidateList, AlertStyle: = xlValidAlertStop, _Формула 1: = "Апельсин, яблуко, манго, груша, персик"End Sub |
Результат такий:
Заповніть розкривний список із іменованого діапазону у VBA
Ви можете використовувати іменований діапазон, що містить елементи, для заповнення випадаючого списку у VBA. Нижче наведено іменовані тварини:
Ми повинні встановити параметр Formula1 рівним іменованому діапазону. Наступний код створить розкривний список перевірки даних у комірці A7 на основі елементів із названого діапазону:
| 123456 | Sub PopulateFromANamedRange ()Діапазон ("A7"). Перевірка. Тип додавання: = xlValidateList, AlertStyle: = xlValidAlertStop, _Формула1: = "= Тварини"End Sub |
Результат такий:
Видалення випадаючого списку
Ви можете використати метод Validation.Delete, щоб видалити розкривний список із комірки. Наступний код видалить випадаючий список із комірки A7 у наведеному вище прикладі:
| 12345 | Sub RemoveDropDownList ()Діапазон ("A7"). Перевірка. ВидалитиEnd Sub |
