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

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

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

通過VBA代碼輕松清除組合框的內容驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！

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

1.在工作表中，您需要清除組合框的內容，請按 其他 + F11 按鍵同時打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口中，單擊 插頁 > 模塊。 然后將下面的VBA代碼復制到“代碼”窗口中。

VBA 1：清除工作表中的組合框的內容

Sub ClearAComboBox()ActiveSheet.Shapes.Range(Array("Drop Down 2")).SelectWith Selection.ListFillRange = ""End WithEnd SubCopy

備注：在代碼中，“下拉列表2”是您要從中清除內容的組合框的名稱。 請更改為您自己的。

VBA 2：清除活動工作表中所有組合框的內容

Sub ClearComboBox()Dim xOle As OLEObjectDim xDrop As DropDownApplication.ScreenUpdating = FalseFor Each xOle In ActiveSheet.OLEObjectsIf TypeName(xOle.Object) = "ComboBox" ThenxOle.ListFillRange = ""End IfNextFor Each xDrop In ActiveSheet.DropDownsxDrop.ListFillRange = ""NextApplication.ScreenUpdating = TrueEnd SubCopy

3。 按 F5 鍵或單擊“運行”按鈕以運行代碼。

然后，您可以看到在活動工作表中指定的組合框或所有組合框中的內容被清除，如下面的屏幕截圖所示：

備注：VBA代碼可以同時應用于組合框（窗體控件）和組合框（ActiveX控件）。

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

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel