Свойство Application.ScreenUpdating (Excel)

Значение True, если обновление экрана включено. Для чтения и записи, Boolean.

Синтаксис

выражение. ScreenUpdating

выражение: переменная, представляющая объект Application.

Примечания

Для ускорения кода макроса отключите обновление экрана. Вы не сможете увидеть, что делает макрос, но он будет выполняться быстрее.

Не забудьте установить значение True для свойства ScreenUpdating при завершении макроса.

Пример

В этом примере показано, как отключение обновления экрана может ускорить выполнение кода. В этом примере скрываются все остальные столбцы на листе Sheet1, а также отслеживается время, необходимое для этого. В первый раз в примере скрываются столбцы при включенном обновлении экрана; во второй раз обновление экрана отключено. При выполнении этого примера можно сравнить соответствующее время, которое отображается в окне сообщения.

Dim elapsedTime(2) 
Application.ScreenUpdating = True 
For i = 1 To 2 
 If i = 2 Then Application.ScreenUpdating = False 
 startTime = Time 
 Worksheets("Sheet1").Activate 
 For Each c In ActiveSheet.Columns 
 If c.Column Mod 2 = 0 Then 
 c.Hidden = True 
 End If 
 Next c 
 stopTime = Time 
 elapsedTime(i) = (stopTime - startTime) * 24 * 60 * 60 
Next i 
Application.ScreenUpdating = True 
MsgBox "Elapsed time, screen updating on: " & elapsedTime(1) & _ 
 " sec." & Chr(13) & _ 
 "Elapsed time, screen updating off: " & elapsedTime(2) & _ 
 " sec."

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.