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

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