【エクセルマクロ】チェックボックスを整列:作業効率アップの方法

エクセルマクロ_チェックボックスを整列する_アイキャッチ エクセルマクロで効率化する

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

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

チェックボックスを整列する(縦)

以下のExcelVBAを実行すると、チェックボックスを整列します。


Sub チェックボックスを並べる()
  
    Dim checkbox As checkbox
    Dim MyCb() As Variant
    Dim i As Long
     
    i = 1
  
    'すべてのチェックボックスをループ
    For Each checkbox In ActiveSheet.CheckBoxes
        ReDim Preserve MyCb(i)
        MyCb(i) = checkbox.Name
        i = i + 1
    Next
     
    '全てのチェックボックスを全選択
    ActiveSheet.Shapes.Range(MyCb).Select
    
    '選択しているチェックボックスを左揃えに配置
    Selection.ShapeRange.Align msoAlignLefts, msoFalse
  
End Sub

 

マクロ実行後

チェックボックスを左寄せにして縦に整列します。
位置がズレているチェックボックスをきれいに揃えることができます。


 
 

チェックボックスを整列する(横)

以下のExcelVBAを実行すると、チェックボックスを整列します。


Sub チェックボックス並べる()
  
    Dim checkbox As checkbox
    Dim MyCb() As Variant
    Dim i As Long
     
    i = 1
  
    'すべてのチェックボックスをループ
    For Each checkbox In ActiveSheet.CheckBoxes
        ReDim Preserve MyCb(i)
        MyCb(i) = checkbox.Name
        i = i + 1
    Next
     
    '全てのチェックボックスを全選択
    ActiveSheet.Shapes.Range(MyCb).Select
    
    '選択しているチェックボックスを左揃えに配置
    Selection.ShapeRange.Align msoAlignTops, msoFalse
  
End Sub

 

マクロ実行後

チェックボックスを上寄せにして横に整列します。
配置が不揃いになっているチェックボックスを揃えて表示することができます。


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

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

 

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