使用 IRibbonControl 的时间执行 VBA SUB-SUB

Question

我在执行我的子时遇到了时间问题。 例如下面的代码。如果我从 VBA 编辑器执行它需要 4 秒，但如果我使用功能区中的自定义按钮调用它：Public Sub test_sub(control as IRibbonControl) 需要 66 秒。我不明白为什么..

'SUB executed from VBA editor:

Public Sub test_sub()

Dim i As Integer

Dim t As Double

t = Timer

For i = 0 To 20

    Call generar_resumen

Next i

Debug.Print " tiempo sub = " & Timer - t

End Sub


'SUB executed from button in Excel Ribbon:

Public Sub test_sub(control as IRibbonControl)

Dim i As Integer

Dim t As Double

t = Timer

For i = 0 To 20

    Call generar_resumen

Next i

Debug.Print " tiempo sub = " & Timer - t

End Sub

拜托，有人可以帮助我吗？我不知道该怎么办。

谢谢

Answer 1

也许你可以尝试在开始时使用它：

 On Error GoTo Err_Exit:
 Application.EnableEvents = false
 Application.ScreenUpdating = false

最后你可以再次使用它来启用它

 Err_Exit:
 Application.EnableEvents = true
 Application.ScreenUpdating = true