Здравствуйте, товарищи!
Макрос скрывает или показывает нужные строки, если в первых ячейках написано слово "УБРАТЬ". Активируется при активации листа. Лист зависает примерно на 3 секунды. Можно ли как-нибудь это дело ускорить?
Макрос скрывает или показывает нужные строки, если в первых ячейках написано слово "УБРАТЬ". Активируется при активации листа. Лист зависает примерно на 3 секунды. Можно ли как-нибудь это дело ускорить?
Код |
---|
Sub hideSI() Dim i As Long Dim i2 As Long Application.ScreenUpdating = False With ActiveSheet .Rows(96).Hidden = True 'Скрыть строки, где есть "УБРАТЬ" For i = 104 To 116 If .Cells(i, 2) = "УБРАТЬ" Then .Rows(i).Hidden = True Else .Rows(i).Hidden = False End If Next For i2 = 121 To 434 If .Cells(i2, 1) = "УБРАТЬ" Then .Rows(i2).Hidden = True Else .Rows(i2).Hidden = False End If Next End With Application.ScreenUpdating = True End Sub |