シート上にある複数のチェックボックスを行ごとに配置させます。
完成イメージ
チェックボックスを配置するまでの手順は
「Excel vbaでチェックボックスの位置を設定」を参照
よってソースのみを記載します!
ソース
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim maxCbox As Long
Dim Cbox As Long
maxCbox = ActiveSheet.CheckBoxes.Count
For Cbox = 1 To maxCbox
CheckBoxes(Cbox).Left = Range(Cells(Cbox, 1).Address).Left
CheckBoxes(Cbox).Top = Range(Cells(Cbox, 1).Address).Top
Next
End Sub
列ごとに配置する場合
Dim maxCbox As Long
Dim Cbox As Long
maxCbox = ActiveSheet.CheckBoxes.Count
For Cbox = 1 To maxCbox
CheckBoxes(Cbox).Left = Range(Cells(1, Cbox).Address).Left
CheckBoxes(Cbox).Top = Range(Cells(1, Cbox).Address).Top
Next
メソッド解説
ActiveSheet.CheckBoxes.Count
シート上にあるチェックボックスを数えてくれます!
※フォームコントロールのチェックボックスのみ
その他のプロパティ解説は「Excel vbaでチェックボックスの位置を設定」を参照
最近のコメント