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 

注意，这里使用的复选框的形状，这可能不是与实际复选框似乎是在电池的左上角下的小区。