Excelですべてのチェックボックスを一度にオフまたは選択解除するにはどうすればよいですか？

次のスクリーンショットに示すように、ワークシートで一度にすべてのチェックボックスをオフまたは選択解除するにはどうすればよいですか？ この記事では、それを解決するためのいくつかの簡単なコードについて説明します。

VBAコードでチェックされているすべてのチェックボックスをオフまたは選択解除します

VBAコードでチェックされているすべてのチェックボックスをオフまたは選択解除します

チェックされているすべてのチェックボックス（フォームコントロール）のチェックを外すか、選択を解除します。

チェックボックスがフォームコントロールの場合は、次のVBAコードを使用して一度にチェックを外すことができます。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：チェックされているすべてのチェックボックス（フォームコントロール）のチェックを外すか、選択を解除します。

Sub ClearCheckBoxes()
'Updateby Extendoffice
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
            chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub

3。 次に、 F5 このコードを実行するにはキーを押します。アクティブなワークシートでは、チェックされているすべてのチェックボックスが一度にオフになっています。

チェックされているすべてのチェックボックス（ActiveXコントロール）のチェックを外すか、選択を解除します。

チェックボックスがActiveXコントロールの場合は、以下のVBAコードを適用してください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：チェックされているすべてのチェックボックス（ActiveXコントロール）のチェックを外すか、選択を解除します。

Sub clearcheckbox()
'Updateby Extendoffcie
    Dim c As Object
    For Each c In ActiveSheet.OLEObjects
        If InStr(1, c.Name, "CheckBox") > 0 Then
            c.Object.Value = False
        End If
    Next
End Sub

3。 次に、 F5 このコードを実行するにはキーを押します。アクティブなワークシートでは、チェックされているすべてのチェックボックスが一度に選択解除されています。

選択範囲に一度に複数のチェックボックスを挿入します

Kutools for Excel's バッチ挿入チェックボックス ユーティリティを使用すると、一度に複数のチェックボックスをすばやく挿入できます。 クリックしてKutoolsfor Excelをダウンロードしてください！