エクセルマクロで、チェックボックスを削除するVBAコードをご紹介します。
このページのマクロコードは、コピペで使えます。
せひ、お試しください。
チェックボックスを削除
以下のExcelVBAを実行すると、アクティブシート内にあるすべてのチェックボックスを削除します。
Sub チェックボックス一括削除()
Dim checkbox As checkbox
For Each checkbox In ActiveSheet.CheckBoxes
checkbox.Delete
Next
End Sub
マクロ実行後
チェックボックスを一括で自動消去します。
チェックボックスを削除（特定範囲）
以下のExcelVBAを実行すると、特定範囲内にあるチェックボックスを消去します。
Sub チェックボックスを消す()
Dim cb As checkbox
For Each cb In ActiveSheet.CheckBoxes
If Not Application.Intersect(cb.TopLeftCell, ActiveSheet.Range("A2:A4")) Is Nothing Then
cb.Delete
End If
Next cb
End Sub
マクロ実行後
セル範囲 [A2：A4] の中にあるチェックボックスを消します。
チェックボックスを削除（特定列）
以下のExcelVBAを実行すると、特定の列にあるチェックボックスを削除します。
Sub 特定列のチェックボックスを消す()
Dim cb As checkbox
For Each cb In ActiveSheet.CheckBoxes
If cb.TopLeftCell.Column = 2 Then
cb.Delete
End If
Next cb
End Sub
マクロ実行後
Ｂ列にあるチェックボックスを消去します。
チェックボックスを削除（特定行）
以下のExcelVBAを実行すると、特定の行にあるチェックボックスをクリアします。
Sub 特定行のチェックボックスを消す()
Dim cb As checkbox
For Each cb In ActiveSheet.CheckBoxes
If cb.TopLeftCell.Row = 2 Or cb.TopLeftCell.Row = 4 Then
cb.Delete
End If
Next cb
End Sub
マクロ実行後
２行目と４行目にあるチェックボックスを消去します。
この記事がお役に立ちますと幸いです。
【エクセルマクロ】チェックボックスのチェックを一括解除：コピペで使えるコード
...
kirinote.com
2020.12.21
