Добрый день. Требуется кусок кода для чередования заливке в таблице. Суть в следующем. Есть столбец с чередующимися/повторяющимися(аля "да, да, да, нет, нет, нет, наверное, наверное") данными. Нужно чтобы заливка строк чередовалась(без заливки, серый цвет, без заливки и т.д.) как только менялось значение в вышеописанном столбце. Надеюсь правильно описал проблему. Пытался найти готовое решение, ничего подходящего найти не смог. За решение буду благодарен.
Добрый день. Требуется кусок кода для чередования заливке в таблице. Суть в следующем. Есть столбец с чередующимися/повторяющимися(аля "да, да, да, нет, нет, нет, наверное, наверное") данными. Нужно чтобы заливка строк чередовалась(без заливки, серый цвет, без заливки и т.д.) как только менялось значение в вышеописанном столбце. Надеюсь правильно описал проблему. Пытался найти готовое решение, ничего подходящего найти не смог. За решение буду благодарен.DaExc
Поменяли значение в ячейке и сменился цвет? Или может удалили строку и надо сохранить порядок полосатости? Да и приложите свой файл со своей "да, нет, не знаю".
Поменяли значение в ячейке и сменился цвет? Или может удалили строку и надо сохранить порядок полосатости? Да и приложите свой файл со своей "да, нет, не знаю".wild_pig
Сообщение отредактировал wild_pig - Воскресенье, 05.10.2014, 19:08
Решение нужно на VBA, иначе бы обратился в другую ветку форума. Этот способ я знаю. Пытался встроить в макрос, но почему-то смещение на одну строку. Поэтому прошу только на VBA.
Решение нужно на VBA, иначе бы обратился в другую ветку форума. Этот способ я знаю. Пытался встроить в макрос, но почему-то смещение на одну строку. Поэтому прошу только на VBA.DaExc
Сообщение отредактировал DaExc - Вторник, 14.10.2014, 15:02
Sub tt() Application.ScreenUpdating = 0 For i = 2 To Range("E" & Rows.Count).End(xlUp).Row If Range("E" & i) <> Range("E" & i - 1) Then n_ = Not (n_) With Range("A" & i).Resize(, 5).Interior .ThemeColor = xlThemeColorDark1 .TintAndShade = n_ / 10 End With Next i Application.ScreenUpdating = 1 End Sub
[/vba]
Держите [vba]
Код
Sub tt() Application.ScreenUpdating = 0 For i = 2 To Range("E" & Rows.Count).End(xlUp).Row If Range("E" & i) <> Range("E" & i - 1) Then n_ = Not (n_) With Range("A" & i).Resize(, 5).Interior .ThemeColor = xlThemeColorDark1 .TintAndShade = n_ / 10 End With Next i Application.ScreenUpdating = 1 End Sub