excel vba宏將複選框分配給不同工作表中的單元格

Question

我試圖運行一個宏，它將工作表中的所有複選框分配給其他工作表中的同一單元格。 但我不擅長vba（實際上從來沒有這樣做，所以閱讀不如......）。 我明白了一些預設電臺所以這是我想出了到目前爲止，但我堅持：

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 

注意，這裏使用的複選框的形狀，這可能不是與實際複選框似乎是在電池的左上角下的小區。