单击checkboxclosures一张纸上的计算

所需对象

我的代码中的CheckBox9数值行错误。 我想在用户对各种工作表进行编辑时，closures工作簿中单个工作表的计算。

我似乎无法弄清楚我的错误在哪里。 谢谢你的帮助

Sub StopCalc() If CheckBox9.Value = True Then Sheets("Sheet1").EnableCalculation = False Else Sheets("Sheet1").EnableCalculation = True End If End Sub 

Answer 1

将整个If语句replace为：

 Sheets("Sheet1").EnableCalculation = Not (Sheets("Sheet1").CheckBox9) 

---

确认checkbox的名称：

Answer 2

如果您需要在工作表上查找ActiveX或窗体控件，请参阅此答案 。

从工作表的Shapes集合中获取您的checkbox，如上面的评论线程中所讨论的：

 Sheets("Sheet1").EnableCalculation = _ Not (ActiveSheet.Shapes("Check Box 9").ControlFormat.Value)