运行宏后保持Application.ScreenUpdating = False

时间:2018-08-21 20:34:21

标签: excel vba

我正在尝试创建一个热键,以切换Application.ScreenUpdating。我刚刚了解到,较新的Excel版本在运行宏后会自动将Application.ScreenUpdating重置为true,这是99.99%的时间,但是我不希望发生这种情况,我希望它能够持久存在。反正我有保留Application.ScreenUpdating = False吗?

Sub suspend_screen_update()

    MsgBox "1st " & Application.ScreenUpdating

    If Application.ScreenUpdating = True Then
    Application.ScreenUpdating = False
    Else
        Application.ScreenUpdating = True
    End If
    MsgBox "2nd " & Application.ScreenUpdating

End Sub

Private Sub hk_toggle_screen_update()
    Application.OnKey "{F1}", suspend_screen_update
End Sub

为什么?老板有时会要求我仅使用Excel,而不能使用其他任何东西来处理大量数据。如果数据真的很大,Excel可能会非常慢,甚至不会崩溃。我正在尝试通过创建此热键来节省我们的时间。

0 个答案:

没有答案