如何在Excel中用VBA代碼清除組合框的內容？

通常，您可以通過清除輸入範圍列表數據來清除組合框的內容。 但是，如何清除Excel工作表中所有組合框的內容？ 本文準備了兩個VBA代碼，它們不僅可以幫助您清除組合框的內容，而且可以同時清除Excel工作表中所有組合框的內容。

通過VBA代碼輕鬆清除組合框的內容

通過VBA代碼輕鬆清除組合框的內容

下面的兩個VBA代碼可以幫助您清除活動工作表中組合框或所有組合框的內容。 請執行以下操作。

1.在工作表中，您需要清除組合框的內容，請按 其他 + 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控件）。

使用 Kutools AI 解鎖 Excel 魔法

• 智慧執行：執行單元格操作、分析資料並建立圖表 - 所有這些都由簡單的命令驅動。
• 自定義公式：產生客製化公式以簡化您的工作流程。
• VBA編碼：輕鬆編寫和實作 VBA 程式碼。
• 公式解讀：輕鬆理解複雜的公式。
• 文字翻譯：打破電子表格中的語言障礙。

使用 AI 支援的工具增強您的 Excel 功能。 立即下載 並體驗前所未有的效率！

相關文章：

• 如何在Excel的單元格中同時清除內容和格式？
• 如何清除Excel中命名範圍的內容？
• 如何清除Excel中單元格中的限制值？
• 如果另一個單元格的值在Excel中發生更改，如何清除指定的單元格內容？
• 如何清除Excel工作簿中打開和退出時指定的單元格內容？