MXDさん、Wendy02 です。
前回のご質問の延長ですね。
＞ドラッグと同時にリンクの対象セルも自動で変化してくれる方法をご存知有りませんか？
これは、なかなか難しいご質問です。ドラッグと同時にリンクするというのは不可能です。
私は、先ほどのご質問で、フォームのチェック・ボックスをお勧めしたので、その延長でお答えしていきます。ただ、これは、マクロ処理でしかできません。
一度で、うまくいかない場合は、位置揃えをしなおしてください。
チェックボックスを設定したシートのシートタブを右クリックすると、「コードの表示」というメニューがあります。それをクリックして、以下を貼り付けてください。
そして、F5を押すと、一応は、リンクされます。
しかし、正しく、リンクされているのかは、True 表示をみて確かめてください。うまくないようでしたら、チェックボックスの位置などを修正して、再び、マクロを実行してみてください。
Sub ChckBoxesLiking()
Dim chbx As CheckBox
Dim r1 As Long
For Each chbx In ActiveSheet.CheckBoxes
With chbx
'注意:チェックボックスの左側の上下のセルは、一旦、必ず、削除されます。
Range(.TopLeftCell.Offset(, -1), .TopLeftCell.Offset(1, -1)).ClearContents
'チェックボックスの範囲内の上下を中間値を探す。
r1 = (.BottomRightCell.Row + .TopLeftCell.Row) \ 2
'チェックボックスの中間値の左隣をリンクさせる。
.LinkedCell = Cells(r1, .TopLeftCell.Column - 1).Address
'正しい位置か、Trueを表示させる。
.Value = 1 'True
End With
Next chbx
End Sub
お礼
引き続きのご回答ありがとうございます。 うまくできなかったのですが、いろいろ試してみます。