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

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