从另一个工作表中选择一个复选框

Question

我在工作表“A”和工作表“B”上有一个 ActiveX CheckBox 控件。当我检查“A”处的复选框时，我希望我的宏检查“B”处的复选框。

到目前为止我尝试过的：

这：Sheets("B").Shapes("CheckBox1").ControlFormat.Value = xlOn

而这个：ThisWorkbook.Worksheets(1).Shapes("Check Box 1").OLEFormat.Object.Value = 1

两个代码都给我一个错误，说对象不接受这个属性或方法。

所以不可能从另一个工作表中检查 CheckBox ？

Answer 1

我发现使用With ... End With 语句来引用工作表很有用，因为它允许多个操作。

With Worksheets("B")
    ' for Form Control Checkbox
    .Shapes("Check Box 2").ControlFormat.Value = xlOn
    ' for ActiveX Control Checkbox
    .Shapes("CheckBox1").OLEFormat.Object.Object.Value = xlOn
End With

前缀句点（又名.或句号）适用于父工作表。