チェックボックスを一括して挿入する方法

チェックボックスのあるセルをドラッグで連続コピーするとチェックボックスもあわせてコピーされます。

以下は、田舎フリーエンジニアのワークログの記事を参照としました。詳細はリンク先を参照してください。

＊　田舎フリーエンジニアのワークログ

【エクセル2016】チェックボックスを挿入して一括で連動させる方法

https://gyazo.com/091e93a10de6ec93b3f64fab959d0c4f

マクロ実行後に表示されるダイアログにそれぞれ、

チェックボックスを表示する列：P

リンクするセルの列：V

最初のチェックボックスを挿入する行番号：3

最後のチェックボックスを挿入する行番号：10

とすると上図の様にチェックボックスが挿入されます。

以下にマクロソースコードを転記（参考ウェブサイトよりコピー＆ペースト）

Sub チェックボックス生成()

Dim i As Long

Dim bufA As String

Dim bufB As String

Dim bufC As Long

Dim bufD As Long

bufA = Application.InputBox("チェックボックスを表示する列 (例)A", "入力1 / 4", Type:=2)

bufB = Application.InputBox("リンクするセル (例)B", "入力2 / 4", Type:=2)

bufC = Application.InputBox("入力を開始する行番号 (例)1", "入力3 / 4", Type:=1)

bufD = Application.InputBox("入力を終了する行番号 (例)10", "入力3 / 4", Type:=1)

For i = bufC To bufD

ActiveSheet.CheckBoxes.Add(442, 162, 27.5, 19).Select

With Selection

.Caption = ""

.Value = xlOn

.LinkedCell = CStr(bufB) & i

.Display3DShading = False

.Top = ActiveSheet.Range(CStr(bufA) & i).Top

.Left = ActiveSheet.Range(CStr(bufA) & i).Left

End With

Next

End Sub