Excel VBA チェックボックスのリンクを設定する

チェックボックスのリンクを一括で設定する方法

セルに配置したチェックボックスのリンクをひとつずつ右クリックで設定する場合

チェックボックスの数だけ右クリックしてセルを選択するのはめんどくさいですね

チェックボックスのひとつ右のセルとリンクさせるコード

Sub AllCheckBoxLink()

Dim CheckBox As CheckBox

For Each CheckBox In ActiveSheet.CheckBoxes

  CheckBox.LinkedCell = CheckBox.TopLeftCell.Offset(0, 1).Address

Next CheckBox

End Sub

実行結果

E列の字の色をセルの色と合わせるとTRUE / FALSE が見えなくなってすっきりします。