【エクセルマクロ】チェックボックスを削除する：使用列4選

エクセルマクロで、チェックボックスを削除するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

1 チェックボックスを削除
2 チェックボックスを削除（特定範囲）
3 チェックボックスを削除（特定列）
4 チェックボックスを削除（特定行）

チェックボックスを削除

以下の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