ScreenUpdating = False fails in Excel 2013 and 2016

后端 未结 4 1871
礼貌的吻别
礼貌的吻别 2021-01-18 01:23

Long-running, high-end Excel-based applications that I developed years ago and that run beautifully in Excel 2007 and 2010 look like Amateur Hour in Excel 2013 and 2016 beca

4条回答
  •  [愿得一人]
    2021-01-18 02:06

    Here is a technique that helps reduce flickering and preserves the StatusBar message.

    Application.Cursor = xlWait
    Application.ScreenUpdating = False
    . . .
    Set wkbNewBook = Workbooks.Add
    ThisWorkbook.Windows(1).Visible = False
    . . .
    ThisWorkbook.Windows(1).Visible = True
    wkbNewBook.Activate
    Application.ScreenUpdating = True
    Application.Cursor = xlDefault
    

提交回复
热议问题