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

请注意，这使用复选框形状左上角下方的单元格，该单元格可能与实际复选框似乎结束的单元格不同。