【エクセルマクロ】チェックボックスを削除：使用列4選（動画あり）

エクセルマクロで、チェックボックスを削除する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

2022.03.07