Как с помощью кода VBA очистить содержимое поля со списком в Excel?
Обычно содержимое поля со списком можно очистить, удалив данные из диапазона, указанного в параметре «Входной диапазон». Но что делать, если нужно очистить сразу все поля со списком на листе Excel? В этой статье представлены два кода VBA, которые позволят вам не только очистить содержимое одного такого поля, но и мгновенно удалить данные из всех полей со списком на листе.
Легко очистите содержимое поля со списком с помощью кода VBA
Легко очистите содержимое поля со списком с помощью кода VBA
Приведённые ниже два фрагмента кода VBA позволят вам очистить содержимое одного или сразу всех полей со списком на активном листе. Выполните следующие действия.
1. На листе, где нужно очистить содержимое поля со списком, одновременно нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications выберите пункт Вставка > Модуль, а затем скопируйте приведённый ниже код VBA в окно кода.
VBA 1: Очистка содержимого поля со списком на листе
Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
.ListFillRange = ""
End With
End SubПримечание: «Drop Down 2» в коде — это имя поля со списком, содержимое которого нужно очистить. Замените его на своё.
VBA 2: Очистка содержимого всех полей со списком на активном листе
Sub ClearComboBox()
Dim xOle As OLEObject
Dim xDrop As DropDown
Application.ScreenUpdating = False
For Each xOle In ActiveSheet.OLEObjects
If TypeName(xOle.Object) = "ComboBox" Then
xOle.ListFillRange = ""
End If
Next
For Each xDrop In ActiveSheet.DropDowns
xDrop.ListFillRange = ""
Next
Application.ScreenUpdating = True
End Sub3. Нажмите клавишу F5 или кнопку «Выполнить», чтобы запустить код.
После этого вы увидите, что содержимое очищено в указанном поле со списком или во всех полях со списком на активном листе, как показано на следующем снимке экрана:
Примечание: коды VBA можно использовать как с полями со списком (элементами управления формы), так и с полями со списком (элементами управления ActiveX).
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Связанные статьи:
- Как одновременно очистить содержимое и форматирование ячеек в Excel?
- Как очистить содержимое именованного диапазона в Excel?
- Как удалить ограничения на значения в ячейках Excel?
- Как очистить содержимое определённых ячеек при изменении значения в другой ячейке Excel?
- Как очистить содержимое указанных ячеек при открытии и закрытии рабочей книги Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек