エクセルでチェックの無い行に着色

質問

エクセルでツールバー→フォームにある
チェックボックスをＡ1～Ａ551に入れ、Ｏ1～Ｏ551に
それぞれをリンク（ＴＲＵＥ、ＦＡＬＳＥの表示）
させたいのですが、
コントロールの書式設定でＡ1にＯ1をリンクさせ、コピぺすると、Ａ2もＯ1をリンクし、うまくいきません。
相対参照にしています。数が多い為、それぞれリンクを設定するには非常に時間がかかります。
うまくいく方法はありませんか、最終的には、
チェックが入っていない行を着色したいと考えています。
全く別の方法でもいいので、分かる方お願いします。

回答No.1

shishishishi

コピぺすると、すべてＯ1をリンクするようになりますね。
その場合、コピペが終わった後で以下のVBAでなおせます。

Sub test()
Dim x As CheckBox
Dim n As Integer

n = 1

For Each x In ActiveSheet.CheckBoxes
x.Select
With Selection
.Value = xlOn
.LinkedCell = "$O$" & n
End With
n = n + 1
Next

End Sub