我有一个带有复选框的文件,需要在打开时清除。我正在使用一个循环通过For Each循环的模块来将所有复选框设置为FALSE。问题是他们没有使用新值更新链接的单元格,并且单元格保持为空。我可以在循环中添加一些代码来强制每个复选框更新任何链接的单元格吗?
Sub ClearCheckBoxes()
Dim cb As Excel.CheckBox
Application.ScreenUpdating = False
For Each cb In ActiveSheet.CheckBoxes
cb.Value = False
Next cb
Application.ScreenUpdating = True
End Sub