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

請注意，這使用復選框形狀左上角下方的單元格，該單元格可能與實際復選框似乎結束的單元格不同。