excel - 如何清除工作表中的所有复选框并更新连接到它们的公式

Question

我目前有一个 VBA 代码，我从网站复制到我的 excel 文件中，以清除事件工作表中的所有复选框。但是，如果未选中它们，则在未选中复选框时应该清除某些单元格内容的公式(通过 VBA 完成)无效。例如:我设置了 VBA 公式，如果选中复选框 1，则更改某个单元格的值以反射(reflect)某些信息，并且 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

我之前有过同样的问题。我通过所有选项框的循环解决了它并使用了以下代码:

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