修改表单控件

Question

我想在Excel 2013中创建一个宏来修改复选框的链接单元格。

例如，假设我在列D中有很多复选框，我想链接到D1，D2，D3，一直到D999999或其他什么。我可以使用循环来执行重复部分，但我不知道如何告诉它更改链接值。

Answer 1

对于表单控件复选框，语法是更改链接的单元格：

 ActiveSheet.Shapes.Range(Array("Check Box 1")).LinkedCell = "$J$1"

Answer 2

假设您想要将每个复选框绑定到其基础单元格：

Sub LinkBoxes()
    Dim oCbx As CheckBox
    For Each oCbx In ActiveSheet.CheckBoxes
        oCbx.LinkedCell = oCbx.TopLeftCell.Address
    Next
End Sub