Всем привет! Есть задачка раскрашивать разными цветами столбец, а лучше столбцы в зависимости от значения в ячейке в столбце регион. Условное форматирование не подходит, т.к. ячейки/строчки удаляются, добавляются и условное форматирование в итоге сбивается(уходят диапазоны к которым применяется правило) и с цветами происходит полная анархия, а менять диапазоны в 82 правилах каждый месяц напрягает. Нашел как делать это в excel, а вот в таблицах не могу найти как сделать. Нужно чтобы каждый регион(и желательно несколько столбцов за ним) были своего цвета. Регионов всего 82, готов добавить отдельный лист со списком всех регионов и например с заливкой каждого своим цветом в ручном режиме, чтобы затем оттуда определять цвет для заливки. Либо просто заливать каждый регион рэндомным цветом, но чтобы у разных регионов они не повторялись. Пример файла - https://docs.google.com/spreads....#gid=0. Может кто подскажет... Код в excel нашел вот такой и все супер работает, но как его в таблицы перетащить...
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then On Error Resume Next Set u = Worksheets(2).Range("A1:A82").Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole) v = u.Interior.Color w = u.Font.Color Range(Target, Target.Offset(0, 2)).Interior.Color = v Range(Target, Target.Offset(0, 2)).Font.Color = w If w = "" Then Range(Target, Target.Offset(0, 2)).Interior.Pattern = xlNone Range(Target, Target.Offset(0, 2)).Font.ColorIndex = xlAutomatic End If End If End Sub
Всем привет! Есть задачка раскрашивать разными цветами столбец, а лучше столбцы в зависимости от значения в ячейке в столбце регион. Условное форматирование не подходит, т.к. ячейки/строчки удаляются, добавляются и условное форматирование в итоге сбивается(уходят диапазоны к которым применяется правило) и с цветами происходит полная анархия, а менять диапазоны в 82 правилах каждый месяц напрягает. Нашел как делать это в excel, а вот в таблицах не могу найти как сделать. Нужно чтобы каждый регион(и желательно несколько столбцов за ним) были своего цвета. Регионов всего 82, готов добавить отдельный лист со списком всех регионов и например с заливкой каждого своим цветом в ручном режиме, чтобы затем оттуда определять цвет для заливки. Либо просто заливать каждый регион рэндомным цветом, но чтобы у разных регионов они не повторялись. Пример файла - https://docs.google.com/spreads....#gid=0. Может кто подскажет... Код в excel нашел вот такой и все супер работает, но как его в таблицы перетащить...
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then On Error Resume Next Set u = Worksheets(2).Range("A1:A82").Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole) v = u.Interior.Color w = u.Font.Color Range(Target, Target.Offset(0, 2)).Interior.Color = v Range(Target, Target.Offset(0, 2)).Font.Color = w If w = "" Then Range(Target, Target.Offset(0, 2)).Interior.Pattern = xlNone Range(Target, Target.Offset(0, 2)).Font.ColorIndex = xlAutomatic End If End If End Sub
В принципе, приходилось что-то похожее делать. И именно условным форматированием. Список как раз был где-то под 100 значений (фамилий). Каждое правило было типа "Текст в точности" и применялось ко всему листу. Поэтому удаление/добавление строк/столбцов, особенно в середине таблицы, не вызывало проблем и просто расширяло/сжимало диапазоны применения правил, даже не рвало их на несколько диапазонов, как иногда бывает.
Проблема была другая - текучка кадров. Поэтому периодически приходилось цвета переназначать вновь пришедшим и удалять у уволившихся сотрудников. Для удобства управления всем этим УФ был написан скрипт, который время от времени запускался (по мере необходимости). Скрипт сначала полностью удалял всё УФ с основного листа, а затем создавал его заново, используя (читая) форматирование из специального поддерживаемого листа-справочника с раскрашенным списком (и в своем заявленном желании создать подобный лист Вы абсолютно правы!).
Некоторую сложность в Вашем случае вижу в том, что у вас будет не одно значение (типа "Текст в точности"), а формула с действием, видимо, на строку. Но это преодолимо. Так что, если хотите, то можем попробовать что-нибудь соорудить. С Вас в этом случае - полный раскрашенный список. Можно, конечно, и рандомно цвета попробовать погенерить, но это лишний шаг, а качество результата может и не устроить. А вручную - привычнее и надежнее, и сразу по вкусу, потому что своё
Доп.вопрос: Названия так и будут в родительном падеже всегда? И ещё я бы посмотрел на файл Excel, в котором, как Вы говорите, всё супер работает.
По времени - мгновенно не обещаю, но, наверное, где-то за недельку смогу что-то предложить (в смысле скрипт).
В принципе, приходилось что-то похожее делать. И именно условным форматированием. Список как раз был где-то под 100 значений (фамилий). Каждое правило было типа "Текст в точности" и применялось ко всему листу. Поэтому удаление/добавление строк/столбцов, особенно в середине таблицы, не вызывало проблем и просто расширяло/сжимало диапазоны применения правил, даже не рвало их на несколько диапазонов, как иногда бывает.
Проблема была другая - текучка кадров. Поэтому периодически приходилось цвета переназначать вновь пришедшим и удалять у уволившихся сотрудников. Для удобства управления всем этим УФ был написан скрипт, который время от времени запускался (по мере необходимости). Скрипт сначала полностью удалял всё УФ с основного листа, а затем создавал его заново, используя (читая) форматирование из специального поддерживаемого листа-справочника с раскрашенным списком (и в своем заявленном желании создать подобный лист Вы абсолютно правы!).
Некоторую сложность в Вашем случае вижу в том, что у вас будет не одно значение (типа "Текст в точности"), а формула с действием, видимо, на строку. Но это преодолимо. Так что, если хотите, то можем попробовать что-нибудь соорудить. С Вас в этом случае - полный раскрашенный список. Можно, конечно, и рандомно цвета попробовать погенерить, но это лишний шаг, а качество результата может и не устроить. А вручную - привычнее и надежнее, и сразу по вкусу, потому что своё
Доп.вопрос: Названия так и будут в родительном падеже всегда? И ещё я бы посмотрел на файл Excel, в котором, как Вы говорите, всё супер работает.
По времени - мгновенно не обещаю, но, наверное, где-то за недельку смогу что-то предложить (в смысле скрипт).Gustav
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
