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

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

VBAコードを使用してすべてのチェックされたチェックボックスを選択解除する

VBAコードを使用してすべてのチェックされたチェックボックスを選択解除する

すべてのチェックされたチェックボックス（フォームコントロール）を選択解除する:

チェックボックスがフォームコントロールの場合、次のVBAコードを使用して一度にそれらを選択解除できます：

1. ALT + F11キーを押しながら押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」>「モジュール」をクリックし、次のコードを モジュールウィンドウに貼り付けます。

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 for Applicationsウィンドウを開きます。

2. 「挿入」> 「モジュール」をクリックし、次のコードをモジュールウィンドウに貼り付けます。

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のチェックボックス一括挿入機能を使用すると、複数のチェックボックスを一度に簡単に挿入できます。 Kutools for Excelをダウンロードするにはここをクリック！