208

view

チェックボックス挿入マクロ___列バージョン


コードが分かりにくかったですね。申し訳ありません。
列方向に4列目から1250列目、すなわち D列からAVB列までのチェックボックス挿入と考えて良いでしょうか。下記コードの4行目から7行目に、それぞれ 開始列数字、終了列数字、チェックボックスのリンク先行数、チェックボックスの挿入先行数を代入して、マクロを開始して下さい。


下記では、D列からAVB列まで、5行目にチェックボックスを挿入し、2行目にリンクさせる前提にしています。適時に変更して下さい。


------------------------------------------------------------

Sub Sample_checkbox列()
ActiveSheet.CheckBoxes.Delete
Dim 開始, 終了, リンク行, ボックス行 As Integer

開始 = 4 '______________________ 開始列
終了 = 1250 '_____________________ 終了列
リンク行 = 2 '___________________ リンク先の行
ボックス行 = 5 '_________________ チェックボックス挿入行

Dim n As Integer
For n = 開始 To 終了
With ActiveSheet
Set addCell = .Cells(ボックス行, n)
.CheckBoxes.Add Left:=addCell.Left, Top:=addCell.Top, _
Width:=addCell.Width, Height:=addCell.Height
End With
With ActiveSheet.CheckBoxes(n - 開始 + 1)
.LinkedCell = _
Mid(Cells(1, n).Address, 2, InStr(Cells(1, n).Address, _
"1") - 3) & リンク行
.Characters.Text = ""
End With
Next
MsgBox "終了"
End Sub

------------------------------------------------------------