单击Checkbox，关闭一张纸上的计算

Question

  

需要对象

我的代码中CheckBox9值行的

错误。我想在用户对各种工作表进行编辑时关闭工作簿中单张工作表的计算。

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

Sub StopCalc()

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

 End Sub

Answer 1

将整个If语句替换为：

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

确认复选框的名称：

Answer 2

如果您需要在工作表上找到ActiveX或表单控件，请参阅this answer。

从工作表的Shapes集合中获取您的复选框，如上面的评论主题中所述：

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