Sub关闭ScreenUpdating时会产生“闪烁”效果

Question

我正在使用以下代码（简化为相关部分）：

Sub deleteCategory()
    Application.ScreenUpdating = False
        Sheets("Recurring Expenses").Activate
        'A bunch of stuff is checked and done on the now activated sheet
        Sheets("Input").Activate 'This is the sheet the sub is called from via a button
    Application.ScreenUpdating = True
End Sub

虽然Application.ScreenUpdating已关闭，但每次单击按钮并运行宏（否则无错误）时，您可以清楚地看到工作表“重复费用”暂时闪烁一下。 知道是什么导致这个或如何解决它？

Answer 1

尝试使用With语句：

changein

希望这对你有所帮助。