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

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

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

 

マクロ実行後

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


 
 

【エクセルマクロ】ダブルクリックでチェックボックス挿入:簡単解説
...