チェックボックスのTRUEについて

A1にチェックボックスを作成し、レ点チェックを入れるとJ１にTRUE、FALSEを返したいと考えています。
B1に別項目のチェックボックスを入れると、K1にTRUE,FALSEを。
C1にもチェック入れると、L１にTRUE,FALSEを。

横一列にこれらを作成し、それを2行目から10行目までコピー貼り付けをしたいのですが、A2の項目をチェック入れると、なぜか「J1」がTRUEとなってしまいます。同じ書式を2～10行目まで作りたいのですが、どなたか教えていただきたいと思います

No.2 回答者： ママチャリ 回答日時： 2016/10/02 10:43

No.1 銀鱗さんの云うとおり、ひとつずつ設定するしかないでしょうね。

そこで1案です。
本来、手作業で行うべき設定作業をマクロ化してみまた。こんな感じです。
しかし、30個位なら手でやった方が早ですね。もし、もっと増えるようならお試しください。

下記マクロは、A1~C10セルを検索し、各セル中にあるチェックボックスのLinkedCellプロパティを当該セルの右9個目のセルに設定します（A1列の場合→J1列）。

Sub sample()
Dim r As Range
Dim i As Long
For Each r In Range("A1:C10")
For i = 1 To ActiveSheet.CheckBoxes.Count
With ActiveSheet.CheckBoxes(i)
If .Top >= r.Top And _
.Top < r.Top + r.Height And _
.Left >= r.Left And _
.Left < r.Left + r.Width Then
.LinkedCell = r.Offset(0, 9).Address
End If
End With
Next
Next
End Sub

No.1 回答者： 銀鱗 回答日時： 2016/09/30 22:49

セルをコピーする動作とは異なり「チェックボックスのコントロール」に指定したリンクするセルは自動でインクリメントされることはありません。

一つ一つ地道に頑張りましょう。