如何在Excel中使用VBA代码清除组合框的内容？

通常，您可以通过清除输入区域列表数据来清空组合框的内容。但如果要清除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

注意：在代码中，“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 Sub

3. 按下 F5 键或点击运行按钮以执行代码。

然后，您可以如下面截图所示，看到指定的组合框或活动工作表中的所有组合框内容已被清除：

注意：这些VBA代码适用于组合框（窗体控件）和组合框（ActiveX控件）。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何在Excel中同时清除单元格的内容和格式？
• 如何在Excel中清除命名区域的内容？
• 如何在Excel中清除单元格中的受限值？
• 如何在Excel中当另一个单元格的值发生变化时清除指定单元格的内容？
• 如何在Excel工作簿打开和退出时清除指定单元格的内容？