excel - 在 Excel 中使用 VBA 循环复选框非常慢

Question

我有一个 Excel 工作表，其中包含大约 4500 个复选框(我知道，这听起来很愚蠢，但它是给客户的，请不要问...)。只需编写下面的 VBA Sub 即可取消选中所有复选框。到目前为止它可以工作，但是速度非常慢，需要超过 5 分钟才能取消选中所有 boce，并且在 Sub 运行时，整个 Excel 应用程序变灰并卡住。我知道，4500 个复选框很安静，但我想知道它是否真的足以给 Excel 带来这样的麻烦......有人知道吗？

最佳迈克尔

Sub DeselectAll()
   Application.EnableCancelKey = False
   Application.Calculation = xlCalculationManual
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   Dim wksA As Worksheet
   Dim intRow As Integer

   Set wksA = Worksheets("Companies")
   For intRow = 1 To 4513
      wksA.CheckBoxes("Checkbox_" & intRow).Value = False
   Next
 End Sub

Answer 1

没有选择:

Sub DeselectAll()
  With Worksheets("Companies").CheckBoxes
   .Value = xlOff
  End With
End Sub