如何清除工作表中的所有复选框并更新与其相连的公式。

Question

我目前有一个VBA代码，我从一个网站复制到我的excel文件中，以清除活动工作表中的所有复选框。然而，当它们被取消选中时，当复选框被取消选中时，应该清除某些单元格内容的公式(通过VBA完成)没有生效。举个例子。我设置了VBA公式，如果复选框1被选中，那么某个单元格的值就会改变，以反映某些信息，当复选框被取消时，VBA代码也会使单元格的内容被清除。下面这段代码的问题是，当它运行时（确实成功取消了复选框），当取消复选框时，与这些复选框相连的单元格的值并没有像应该的那样清除.下面是代码。

Sub ClearCheckBoxes()
'Updateby Extendoffice 20161129
Dim chkBox As Excel.CheckBox
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.CheckBoxes
        chkBox.Value = xlOff
Next chkBox
Application.ScreenUpdating = True
Call SiteClear
End Sub

Answer 1

我以前也有过同样的问题。我用一个循环解决了它，在alle Option-Boxes上使用这个代码。

ActiveSheet.OLEObjects("NameOfCheckBox").Object.Value = False