从另一个工作表中select一个checkbox

我在工作表“A”和工作表“B”上有一个ActiveXcheckbox控件。 当我检查“A”处的checkbox时，我希望我的macros在“B”处检查checkbox。

我到目前为止所尝试的：

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

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

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

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

Answer 1

工作表1中的checkbox1更改工作表2中的checkbox1

 Private Sub CheckBox1_Click() If Me.CheckBox1 = True Then Sheets("Sheet2").CheckBox1.Value = True Else Sheets("Sheet2").CheckBox1.Value = False End If End Sub 

Answer 2

我发现使用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 

前缀句点（aka .或句号 ）应用父级工作表。