ExcelでVBAコードを使用してコンボボックスの内容をクリアするにはどうすればよいですか？

通常、入力範囲リストのデータをクリアすることで、コンボボックスの内容をクリアできます。 しかし、Excelワークシートのすべてのコンボボックスの内容をクリアするのはどうですか？ この記事では、コンボボックスの内容をクリアするだけでなく、Excelワークシートですべてのコンボボックスの内容を同時にクリアするのに役立つXNUMXつのVBAコードを用意します。

VBAコードでコンボボックスの内容を簡単にクリア

---

VBAコードでコンボボックスの内容を簡単にクリア

以下のXNUMXつのVBAコードは、アクティブなワークシートのコンボボックスまたはすべてのコンボボックスの内容をクリアするのに役立ちます。 次のようにしてください。

1.コンボボックスの内容をクリアする必要があるワークシートで、を押してください 他の + F11 同時にキーを開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下の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のセルでコンテンツと書式設定を同時にクリアするにはどうすればよいですか？
• Excelで名前付き範囲の内容をクリアするにはどうすればよいですか？
• Excelのセルの制限値をクリアするにはどうすればよいですか？
• Excelで別のセルの値が変更された場合、指定されたセルの内容をクリアするにはどうすればよいですか？
• Excelブックで開いたり終了したりするときに指定したセルの内容をクリアするにはどうすればよいですか？