【エクセルマクロ】チェックボックスを複数一括作成(動画あり)

エクセルマクロで、複数のチェックボックスを一括作成するVBAコードをご紹介します。

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

チェックボックスを複数一括作成する

以下のマクロを実行すると、大量のチェックボックスを作ります。

Sub チェックボックスをたくさん作成()
 
Dim StartX As Single
Dim StartY As Single
Dim EndX As Single
Dim EndY As Single
Dim i As Long
Dim LastRow As Long
 
    'A列の最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
 
    'B列にチェックボックスを作成する
    For i = 2 To LastRow
 
        With Cells(i, 2)
 
            'セルの左端
            StartX = .Left
 
            'セルの上端
            StartY = .Top
 
            'セルの横幅
            EndX = .Offset(0, 1).Left - .Left
 
            'セルの高さ
            EndY = .Height
 
            'チェックボックス作る
            ActiveSheet.CheckBoxes.Add(StartX, StartY, EndX, EndY).Select
 
            'チェックボックスのテキストを指定
            Selection.Text = ""
            
            'セルに合わせて移動やサイズを変更する
            Selection.Placement = xlMoveAndSize
 
        End With
 
    Next i
 
End Sub

マクロ実行後

B列にチェックボックスを多数作りました。

チェックボックスのサイズは、各セルのサイズに合わせた大きさで作成されます。

 
 
この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】チェックボックス処理を自動化まとめ
 

【エクセルマクロ】チェックボックスを自動操作：使用例16選

...

kirinote.com

2022.11.12