【エクセルマクロ】選択範囲のチェックボックスをオン・オフ:動画あり

vba_選択範囲のチェックボックスONOFF-アイキャッチ ExcelVBA

エクセルマクロで、選択範囲のチェックボックスをオン・オフにするVBAコードをご紹介します。

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

選択範囲のチェックボックスをオン

以下のExcelVBAを実行すると、選択範囲のチェックボックスをONにします。


Sub 指定範囲のチェックボックスオン()

Dim cb As checkbox

    '選択範囲のチェックボックスをループ
    For Each cb In ActiveSheet.CheckBoxes
        If Not Application.Intersect(cb.TopLeftCell, Selection) Is Nothing Then
            cb.Value = True
        End If
    Next cb

End Sub

 

マクロ実行前

チェックボックスがある範囲を選択します。


 

マクロ実行後

選択範囲のチェックボックスに、チェックを入れます。


 

補足

チェックボックスのオブジェクトの左上部分が、

選択範囲外にある場合、そのチェックボックスにチェックは入りません。


 

選択範囲のチェックボックスをオフ

以下のExcelVBAを実行すると、選択範囲のチェックボックスをOFFにします。


Sub 指定範囲のチェックボックスオフ()

Dim cb As checkbox

    '選択範囲のチェックボックスをループ
    For Each cb In ActiveSheet.CheckBoxes
        If Not Application.Intersect(cb.TopLeftCell, Selection) Is Nothing Then
            cb.Value = False
        End If
    Next cb

End Sub

 

マクロ実行前

チェックボックスがある範囲を選択します。


 

マクロ実行後

選択範囲のチェックボックスのチェックを外します。


 

補足

チェックボックスのオブジェクトの左上部分が、

選択範囲外にある場合、そのチェックボックスのチェックは外れません。


 

動画の解説

動画ではコードの作り方・動作を確認できます。

クリックすると、このブログ上で再生されます^^

 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】チェックボックスを自動操作する:超便利15選
...

 

「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」へ
毎日の業務を瞬時に終わらせるしくみを解説