Excelのvbaマクロで異なるシートのセルにチェックボックスを割り当てる

Question

シート内のすべてのチェックボックスを他のシートの同じセルに割り当てるマクロを実行しようとしています。 しかし、私はvba（実際には決して行ったことがないので、良くないと読み...）。 私はいくつかのprogammingを理解して行うので、これは私がこれまでに思い付いたものですが、私は立ち往生しています：

Sub LinkCheckBoxes() 
Dim chk As CheckBox 

For Each chk In ActiveSheet.CheckBoxes 
    With chk 
     .LinkedCell = Worksheets("data").Address 
    End With 

Next chk 

End Sub 

これは動作しませんし、私はそれを動作させるために正しいコードを見つけることができません。 これはリンクがリンクされていないときにリンクを設定するために一度だけ実行する必要があります。

（それが実行されている場合、それは私のために500個のチェックボックスの世話をします...）

おかげ

Answer 1

あなたは、彼らはオーバーですが、別のシート上のセルにリンクしたい場合：

Sub LinkCheckBoxes() 
    Dim chk As CheckBox 

    For Each chk In ActiveSheet.CheckBoxes 
     chk.LinkedCell = "Data!" & chk.Topleftcell.address 
    Next chk 

End Sub 

これは実際のチェックボックスが上であると思われる細胞と同じではないかもしれないチェックボックス形状の左上隅、下のセルを使用することに注意してください。