エクセルマクロで、チェックボックスを整列する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
マクロ実行後
チェックボックスを上寄せにして横に整列します。
配置が不揃いになっているチェックボックスを揃えて表示することができます。
【エクセルマクロ】ダブルクリックでチェックボックス挿入：簡単解説
...
kirinote.com
2020.09.22
