Как очистить содержимое комбинированного поля с помощью кода VBA в Excel?

Обычно вы можете очистить содержимое комбинированного поля, удалив данные из списка входного диапазона. Но как очистить содержимое всех комбинированных полей на листе Excel? В этой статье представлены два кода VBA, которые помогут вам не только очистить содержимое одного комбинированного поля, но и одновременно очистить содержимое всех комбинированных полей на листе Excel.

Легко очистите содержимое комбинированного поля с помощью кода 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

Примечание: В коде «Выпадающий список 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 Sub

3. Нажмите клавишу F5 или кнопку Выполнить, чтобы запустить код.

После этого вы увидите, что содержимое очищено в указанном комбинированном поле или во всех комбинированных полях на активном листе, как показано на скриншоте ниже:

Примечание: коды VBA могут применяться как к Полю со списком (Элемент управления формы), так и к Полю со списком (Элемент управления ActiveX).

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!

Связанные статьи:

• Как очистить содержимое и форматирование одновременно в ячейках Excel?
• Как очистить содержимое именованного диапазона в Excel?
• Как очистить ограниченные значения в ячейках Excel?
• Как очистить содержимое определенной ячейки при изменении значения другой ячейки в Excel?
• Как очистить содержимое определенной ячейки при открытии и закрытии книги Excel?