Страницы: 1
RSS
Закрашивание листа по условию, При помощи VBA
 
Коллеги, доброго времени суток.
Помогите, пожалуйста, написать код, который будет закрашивать листы, соответствующие определенному аргументу. А именно, допустим все листы находящиеся до листа ">>>" закрашиваются одним цветом. Лист ">>>" закрашивается другим цветом, и листы, находящиеся после листа ">>>" закрашиваются третьим цветом.
 
Код
Sub jjj()
    Set wb = ActiveWorkbook
    tf_before = True
    For Each wsh In wb.Worksheets
        s_name = wsh.Name
        With wsh.Tab
            If s_name Like ">>>" Then
                .Color = 65535
                tf_before = Not tf_before
            Else
                If tf_before Then
                    .Color = 255
                Else
                    .Color = 5287936
                End If
            End If
        End With
    Next wsh
End Sub

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
Спасибо огромное!
Страницы: 1
Наверх