Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Чередование заливки строк по значению - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Чередование заливки строк по значению (Макросы/Sub)
Чередование заливки строк по значению
DaExc Дата: Воскресенье, 05.10.2014, 18:21 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день. Требуется кусок кода для чередования заливке в таблице.
Суть в следующем. Есть столбец с чередующимися/повторяющимися(аля "да, да, да, нет, нет, нет, наверное, наверное") данными.
Нужно чтобы заливка строк чередовалась(без заливки, серый цвет, без заливки и т.д.) как только менялось значение в вышеописанном столбце. Надеюсь правильно описал проблему. Пытался найти готовое решение, ничего подходящего найти не смог.
За решение буду благодарен.
 
Ответить
СообщениеДобрый день. Требуется кусок кода для чередования заливке в таблице.
Суть в следующем. Есть столбец с чередующимися/повторяющимися(аля "да, да, да, нет, нет, нет, наверное, наверное") данными.
Нужно чтобы заливка строк чередовалась(без заливки, серый цвет, без заливки и т.д.) как только менялось значение в вышеописанном столбце. Надеюсь правильно описал проблему. Пытался найти готовое решение, ничего подходящего найти не смог.
За решение буду благодарен.
Автор - DaExc
Дата добавления - 05.10.2014 в 18:21
wild_pig Дата: Воскресенье, 05.10.2014, 19:07 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 517
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Поменяли значение в ячейке и сменился цвет? Или может удалили строку и надо сохранить порядок полосатости? Да и приложите свой файл со своей "да, нет, не знаю".


Сообщение отредактировал wild_pig - Воскресенье, 05.10.2014, 19:08
 
Ответить
СообщениеПоменяли значение в ячейке и сменился цвет? Или может удалили строку и надо сохранить порядок полосатости? Да и приложите свой файл со своей "да, нет, не знаю".
Автор - wild_pig
Дата добавления - 05.10.2014 в 19:07
DaExc Дата: Вторник, 14.10.2014, 13:21 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Вложил пример. 1 лист - исходная табличка. 2 лист - что должно получиться.
К сообщению приложен файл: 8163120.xlsx (11.2 Kb)
 
Ответить
СообщениеВложил пример. 1 лист - исходная табличка. 2 лист - что должно получиться.
Автор - DaExc
Дата добавления - 14.10.2014 в 13:21
_Boroda_ Дата: Вторник, 14.10.2014, 13:28 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
Код
=ЕЧЁТН(СУММ(-($E$2:$E2<>$E$1:$E1)))
К сообщению приложен файл: 8163120_1.xlsx (12.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
Код
=ЕЧЁТН(СУММ(-($E$2:$E2<>$E$1:$E1)))
Автор - _Boroda_
Дата добавления - 14.10.2014 в 13:28
DaExc Дата: Вторник, 14.10.2014, 15:00 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Решение нужно на VBA, иначе бы обратился в другую ветку форума.
Этот способ я знаю. Пытался встроить в макрос, но почему-то смещение на одну строку.
Поэтому прошу только на VBA.


Сообщение отредактировал DaExc - Вторник, 14.10.2014, 15:02
 
Ответить
СообщениеРешение нужно на VBA, иначе бы обратился в другую ветку форума.
Этот способ я знаю. Пытался встроить в макрос, но почему-то смещение на одну строку.
Поэтому прошу только на VBA.
Автор - DaExc
Дата добавления - 14.10.2014 в 15:00
_Boroda_ Дата: Вторник, 14.10.2014, 15:41 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Держите
[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
[/vba]
К сообщению приложен файл: 8163120_2.xlsm (21.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеДержите
[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
[/vba]
Автор - _Boroda_
Дата добавления - 14.10.2014 в 15:41
DaExc Дата: Вторник, 14.10.2014, 18:02 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Потрясающе) Спасибо.
 
Ответить
СообщениеПотрясающе) Спасибо.
Автор - DaExc
Дата добавления - 14.10.2014 в 18:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Чередование заливки строк по значению (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!