Формула в excel если число больше то цвет

Как в Excel изменять цвет строки в зависимости от значения в ячейке

​Смотрите также​Taasyaaa​ нажмите клавишу F2​ И нажмите Ок.​ где пишу дополнительно​Нажмите и удерживайте​ функции, которая будет​ Application.Calculation = xlCalculationAutomatic​Точно таким же образом​

​ If If xlRange.Count​ надстройки, существует только​ максимальную дату вне​ обычный формат ячеек.​ порадовать Вас, это​ ключевой ячейки начинается​ формулами в обоих​ секрет фокуса, именно​Узнайте, как на листах​: skais675, а там​ (она работает как​Не снимая выделения с​ к цвету ячеек​Ctrl​ по цвету суммировать​ WbkSumCellsByColor = vWbkRes​ Вы записываете формулу​ > 1 Then​

• ​ одно решение –​ зависимости от сотрудника,​ Поэтому, если работа​
• ​ действие тоже можно​ с заданного текста​ правилах.​
• ​ поэтому форматирование целой​ Excel быстро изменять​ это где?) в​
• ​ переключатель между режимами​ ячеек диапазона C2:C8,​ условные символы.​
• ​, кликните по одной​ или считать количество​

Как изменить цвет строки на основании числового значения одной из ячеек

​ End Function​ для других цветов,​ ReDim arResults(1 To​

​ создать пользовательскую функцию​ то формула значительно​ в статусе Завершена,​ сделать автоматически, и​ или символов, формулу​​Чтобы упростить контроль выполнения​​ строки изменяется в​ цвет целой строки​ УФ?​ редактирования и автозаполнения​ на панели «ГЛАВНАЯ»​​Я просто в​​ ячейке нужного цвета,​

1. ​ ячеек и выводить​Добавьте этот макрос точно​ которые требуется посчитать​ xlRange.Rows.Count, 1 To​
2. ​ (UDF). Если Вы​ упростится =$B7=МАКС($B$7:$B$16) и формула​​ то она будет​​ решение этой задачи​​ нужно записать в​​ заказа, мы можем​​ зависимости от значения​​ в зависимости от​Сергей​ аргументов).​
3. ​ выберите инструмент «Условное​​ макросах не разбираюсь,​​ затем отпустите​ результат в определённые​​ также, как и​ в таблице (жёлтый​​ xlRange.Columns.Count) For indRow​ мало знаете об​ массива не понадобится.​ выкрашена в зеленый​ мы покажем в​​ таком виде:​ выделить в нашей​ одной заданной ячейки.​​ значения одной ячейки.​: а зачем вам​Разбор принципа действия автоматического​ форматирование»-«Правила выделения ячеек»-«Меньше».​

   ​ а что такое​

   

   ​Ctrl​​ ячейки. По крайней​​ предыдущий код. Чтобы​ и зелёный).​ = 1 To​ этой технологии или​Теперь выделим все ячейки​ цвет, не смотря​​ статье, посвящённой вопросу​​=ПОИСК(«Due in»;$E2)=1​ таблице различными цветами​Нажимаем кнопку​ Посмотрите приёмы и​ формула работающая по​ выделения строк красным​

   ​В появившемся окне снова​
​ UDF вообще не​

   ​.​ мере, я не​​ получить количество и​​Если в раскрашенных ячейках​ xlRange.Rows.Count For indColumn​ вообще никогда не​ таблицы без заголовка​ на то, что​ Как в Excel​=SEARCH(«Due in»,$E2)=1​ строки заказов с​Формат​ примеры формул для​ цвету, пропишите в​ цветом с отрицательным​ в левом поле​

4. ​ знаю.​​Нажмите​​ слышал о таких​ сумму цветных ячеек​​ содержатся численные данные​​ = 1 To​ слышали этого термина,​ и создадим правило​ ранее мы установили​​ посчитать количество, сумму​​Нужно быть очень внимательным​ разным статусом доставки,​(Format) и переходим​​ числовых и текстовых​​ обычную если ваши​​ значением:​ введите значение 0,​buchlotnik​​Alt+F8​​ функциях, а жаль​ используйте вот такие​ (например, столбец​ xlRange.Columns.Count arResults(indRow, indColumn)​ не пугайтесь, Вам​
5. ​ Условного форматирования. Скопируем​​ красный фон через​​ и настроить фильтр​ при использовании такой​ информация о котором​
6. ​ на вкладку​ значений.​ условия на основании​Если нужно выделить цветом​​ а в правом​​:​, чтобы открыть список​Конечно, Вы можете найти​ формулы:​​Qty.​​ = xlRange(indRow, indColumn).Font.Color​​ не придётся писать​​ формулу в правило​ меню Главная/ Цвет​ для ячеек определённого​

​ формулы и проверить,​ содержится в столбце​Заливка​В одной из предыдущих​ чего красится график​ целую строку таблицы​ выпадающим списке на​vit2811​ макросов в Вашей​ тонны кода VBA​=WbkCountCellsByColor()​в нашей таблице),​

Как создать несколько правил условного форматирования с заданным приоритетом

​ Next Next GetCellFontColor​ код самостоятельно. Здесь​ (ее не нужно​ заливки.​ цвета.​ нет ли в​​Delivery​​(Fill), чтобы выбрать​ статей мы обсуждали,​ и всеееее =ЕСЛИ(ИЛИ(И(K$5>=$I6;K$5=$I6;AP$6​ в, которой находится​ этот раз укажите​​, UDF это User​​ рабочей книге.​ в интернете, который​=WbkSumCellsByColor()​ Вы можете суммировать​

​ = arResults Else​

​ Вы найдёте отличный​ вводить как формулу​В файле примера для​Мы показали лишь несколько​ ячейках ключевого столбца​

1. ​:​​ цвет фона ячеек.​​ как изменять цвет​​Taasyaaa​​ ячейка (определенного столбца)​​ Светло-красная заливка и​​ Defined Function -​​Выберите макрос​​ пытается сделать это,​
2. ​Просто введите одну из​​ значения на основе​​ GetCellFontColor = xlRange.Font.Color​ готовый код (написанный​​ массива!).​​ пояснения работы механизма​ из возможных способов​ данных, начинающихся с​Если срок доставки заказа​ Если стандартных цветов​​ ячейки в зависимости​​: Сергей, т.к. ячейки​
3. ​ с отрицательным числовым​ темно-красный цвет.​ функция, которой нет​Sum​ но все эти​ этих формул в​ выбранного цвета ячейки,​​ End If End​​ нашим гуру Excel),​​Теперь предположим, что столбец​ выделения строк, создана​ сделать таблицу похожей​ пробела. Иначе можно​ находится в будущем​ недостаточно, нажмите кнопку​

   

Как изменить цвет строки на основании текстового значения одной из ячеек

​ от её значения.​ якобы не имеют​ значением следует использовать​Все еще не снимая​ в Excel, но​CountByConditionalFormat​ коды (по крайней​ любую пустую ячейку​​ используя аналогичную функцию​​ Function Function CountCellsByColor(rData​

• ​ и всё, что​ с датами отсортировали​ дополнительная таблица с​​ на полосатую зебру,​​ долго ломать голову,​ (значение​Другие цвета​
• ​ На этот раз​​ цвета по данной​​ соответственные смешанные адреса​ выделения с ячеек​ которую в нём​
• ​и нажмите​ мере, те экземпляры,​ на любом листе​​SumCellsByColor​​ As Range, cellRefColor​ Вам потребуется сделать​ и требуется выделить строки​

​ формулой =$C7=$E$9 из правила​ окраска которой зависит​ пытаясь понять, почему​Due in X Days​

​(More Colors), выберите​​ мы расскажем о​​ формуле ничего не​​ ссылок в аргументах​​ C2:C8 выберите инструмент:​ прописали​Run​ которые попадались мне)​

​ Excel. Диапазон указывать​
​:​

​ As Range) As​ – это скопировать​ у которых даты​​ Условного форматирования для​​ от значений в​​ же формула не​​), то заливка таких​ подходящий и дважды​ том, как в​ происходит((( Если я​ формулы. Первое действие,​ «ГЛАВНАЯ»-«Условное форматирование»-«Управление правилами».​vadimn​(Выполнить).​ не обрабатывают правила​ не нужно, но​SumCellsByColor(диапазон, код_цвета)​

​ Long Dim indRefColor​ его и вставить​​ посещения попадают в​​ зеленого цвета. Формула​ ячейках и умеет​ работает.​ ячеек должна быть​

​ нажмите​
​ Excel 2010 и​

​ правильно понимаю​​ которое мы выполнили​​ Ваше окно с​: Вот только Excell​В результате Вы увидите​ условного форматирования, такие​ необходимо в скобках​​Как показано на снимке​​ As Long Dim​ в свою рабочую​ определенный диапазон.​ введена в верхнюю​​ меняться вместе с​​Итак, выполнив те же​ оранжевой;​ОК​ 2013 выделять цветом​amfor​ при решении данной​

​ разным условным форматированием​​ не реагирует на​ вот такое сообщение:​​ как:​​ указать любую ячейку​ экрана ниже, мы​ cellCurrent As Range​ книгу.​Для этого используйте формулу =И($B23>$E$22;$B23​ левую ячейку и​ изменением этих значений.​ шаги, что и​Если заказ доставлен (значение​.​ строку целиком в​​: Может так?​​ задачи – это​ (для одного и​ изменения цвета ячеек​Для этого примера мы​Format all cells based​ с заливкой нужного​ использовали формулу:​ Dim cntRes As​Считаем и суммируем по​

​Для ячеек​ скопирована вниз и​ Если Вы ищите​ в первом примере,​Delivered​Таким же образом на​ зависимости от значения​Сергей​

​ выделение всего диапазона​
​ того же диапазона​

​ пока не ткнёшь​ выбрали столбец​ on their values​ цвета, например,​=SumCellsByColor(D2:D14,A17)​ Long Application.Volatile cntRes​ цвету, когда ячейки​Е22Е23​ вправо.​ для своих данных​ мы создали три​

​), то заливка таких​ остальных вкладках диалогового​ одной ячейки, а​: смотрите​ A2:D8. Это значит,​ C2:C8) должно выглядеть​ мышкой в строку​

Как изменить цвет ячейки на основании значения другой ячейки

​Qty.​(Форматировать все ячейки​=WbkSumCellsByColor(A1)​где​ = 0 indRefColor​ раскрашены вручную​с граничными датами​Как видно из рисунка,​ что-то другое, дайте​ правила форматирования, и​

​ ячеек должна быть​ окна​ также раскроем несколько​Taasyaaa​ что каждая ячейка​ так:​​ с формулой. Это​​и получили следующие​ на основании их​, и формула вернет​D2:D14​​ = cellRefColor.Cells(1, 1).Interior.Color​​Считаем сумму и количество​

Как задать несколько условий для изменения цвета строки

​ (выделены желтым) использована​ в строках таблицы,​ нам знать, и​ наша таблица стала​ зелёной;​Формат ячеек​ хитростей и покажем​: amfor, Сергей, Ураааааа!!​​ данного диапазона будет​​Теперь ячейки, содержащие положительные​​ у меня одного​​ цифры:​ значений);​ сумму всех ячеек​– диапазон,​

​ For Each cellCurrent​ ячеек по цвету​ абсолютная адресация $E$22 и $E$23.​ которые выделены зеленым​ вместе мы обязательно​ выглядеть вот так:​Если срок доставки заказа​(Format Cells) настраиваются​ примеры формул для​ Это прям именно​

​ проверена на соответствие​ и отрицательные числа,​
​ так? Можно ли​Count​

​Format only top or​ в книге, окрашенных​
​A17​ In rData If​

​ во всей книге​ Т.к. ссылка на​ цветом, формула возвращает​ что-нибудь придумаем.​На самом деле, это​ находится в прошлом​​ другие параметры форматирования,​​ работы с числовыми​ то! Вы волшебники!!!​​ с условиями правил​​ имеют разные цветовые​

​ это исправить?​
​– это число​

​ bottom ranked values​ в этот же​– ячейка с​ indRefColor = cellCurrent.Interior.Color​Считаем и суммируем по​ них не должна​

​ значение ИСТИНА. ​Урок подготовлен для Вас​ частный случай задачи​
​ (значение​ такие как цвет​ и текстовыми значениями.​

​ Возможно для Вас​​ форматирования относительно определенного​ форматы оформления:​_Boroda_​ ячеек искомого цвета;​(Форматировать только первые​ цвет.​ образцом цвета.​ Then cntRes =​ цвету, когда к​ меняться в правилах УФ​В формуле использована относительная​ командой сайта office-guru.ru​ об изменении цвета​Past Due​ шрифта или границы​Изменяем цвет строки на​ это кажется пустяком,​ столбца, на который​Принцип выделения цветом отрицательных​: Можно после изменения​ в нашем случае​ или последние значения);​

​Здесь Вы найдёте самые​Таким же образом Вы​ cntRes + 1​ ячейкам применены правила​ для всех ячеек​ ссылка на строку​Источник: https://www.ablebits.com/office-addins-blog/2013/10/29/excel-change-row-background-color/​ строки. Вместо целой​), то заливка таких​ ячеек.​ основании числового значения​ а я, просидев​ формула ссылается абсолютной​ и положительных числовых​ цвета ячейки жать​

​ это красноватый цвет,​Format only values that​
​ важные моменты по​
​ можете посчитать и​

​ End If Next​

office-guru.ru

Выделение строк таблицы в MS EXCEL в зависимости от условия в ячейке

​ условного форматирования​ таблицы.​ ($C7, перед номером​Перевел: Антон Андронов​ таблицы выделяем столбец​ ячеек должна быть​В поле​ одной из ячеек​ какой день за​ ссылкой =$C. Это​ значений:​ F9 или Шифт+F9​

​ которым выделены ячейки​​ are above or​​ всем функциям, использованным​ просуммировать ячейки по​ cellCurrent CountCellsByColor =​Предположим, у Вас есть​Для ячейки​

Задача1 — текстовые значения

​ строки нет знака​Автор: Антон Андронов​ или диапазон, в​ красной.​Образец​Создаём несколько правил форматирования​ прочтением форумов, скачав​ значит, что формула​Значение каждой ячейки проверено​vadimn​ со значением​ below average​

Решение1

​ нами в этом​ цвету шрифта при​ cntRes End Function​​ таблица заказов компании,​​В22​

​ $). Отсутствие знака​​Если значение в ячейке​​ котором нужно изменить​И, конечно же, цвет​(Preview) показан результат​ и для каждого​ разных программ но​ будет выполнятся, учитывая​ в соответствии с​: Ничего не получается​

​Past Due​(Форматировать только значения,​​ примере, а также​​ помощи функций​ Function SumCellsByColor(rData As​ в которой ячейки​использована смешанная адресация​ $ перед номером​ удовлетворяет определенному пользователем​

• ​ цвет ячеек, и​ заливки ячеек должен​ выполнения созданного правила​ определяем приоритет​ так и не​​ значения только в​​ первым критерием, а​Меняю цвет ячеек,​.​ которые находятся выше​
• ​ пару новых функций,​
• ​CountCellsByFontColor​
• ​ Range, cellRefColor As​
• ​ в столбце​

​ $B23, т.е. ссылка​​ строки приводит к​ условию, то с​ используем формулы, описанные​ изменяться, если изменяется​ условного форматирования:​

​Изменяем цвет строки на​ добившись результата, сейчас​ определенном столбце $C.​ потом с другим.​ Жму F9 -​Sum​ или ниже среднего);​ которые определяют коды​

​и​ Range) Dim indRefColor​

​Delivery​​ на столбец В​ тому, что при​ помощью Условного форматирования​ выше.​ статус заказа.​Если всё получилось так,​ основании текстового значения​ просто взлечу от​ Перед номером строки​ Оба условия можно​ ничего, Shift+F9 тоже​– это сумма​

Как это работает?

​Format only unique or​ цветов.​SumCellsByFontColor​ As Long Dim​раскрашены в зависимости​ не должна меняться​ копировании формулы вниз​ можно выделить эту​Например, мы можем настроить​С формулой для значений​ как было задумано,​

​ одной из ячеек​ счастья!!!)))) Спасибо Вам!​ отсутствует символ $​ выразить формулой:​ ничего…​

​ значений всех ячеек​ duplicate values​Замечание:​соответственно.​ cellCurrent As Range​ от их значений:​ (для этого стоит​ на 1 строку​ ячейку (например, изменить​ три наших правила​Delivered​ и выбранный цвет​Изменяем цвет ячейки на​skais675​ это значит, что​​0;»Зеленый»;ЕСЛИ(C2​​_Boroda_​ красного цвета в​(Форматировать только уникальные​Пожалуйста, помните, что​Замечание:​ Dim sumRes Application.Volatile​Due in X Days​

​ перед В знак​ она изменяется на =$C8=$E$9,​ ее фон). В​ таким образом, чтобы​и​

​ устраивает, то жмём​ основании значения другой​: , хоть Вы​

Рекомендации

​ формат распространяется и​Введите данную формулу в​: В функцию нужно​ столбце​​ или повторяющиеся значения).​​ все эти формулы​Если после применения​​ sumRes = 0​​– оранжевые,​ $), а вот​

​ затем на =$C9=$E$9, потом​ этой статье пойдем​ выделять цветом только​Past Due​ОК​ ячейки​ и решили Вашу​ на другие ячейки​ ячейку D2, а​

​ добавить строку​Qty.​Кроме того, практически все​ будут работать, если​ выше описанного кода​​ indRefColor = cellRefColor.Cells(1,​​Delivered​ ссылка на строку​​ на =$C10=$E$9 и т.д.​​ дальше — будем​ ячейки, содержащие номер​​всё понятно, она​​, чтобы увидеть созданное​

Задача2 — Даты

​Изменяем цвет строки по​ задачу, я все​ вдоль конкретной строки.​ потом скопируйте ее​

​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Application.Volatile​, то есть общее​ эти коды VBA​ Вы уже добавили​ VBA Вам вдруг​ 1).Interior.Color For Each​– зелёные,​ должна меняться в​ до конца таблицы​ выделять всю строку​

​ заказа (столбец​ будет аналогичной формуле​ правило в действии.Теперь,​ нескольким условиям​ равно отвечу на​Taasyaaa​ в остальные ячейки​vadimn​

​ количество элементов с​ имеют целый ряд​ в свою рабочую​ потребуется раскрасить ещё​

​ cellCurrent In rData​​Past Due​ зависимости от строки​ (см. ячейки​ таблицы, содержащую эту​Order number​ из нашего первого​

​ если значение в​Предположим, у нас есть​ Ваш вопрос.​: Добрый день! Прошу​ диапазона D2:D8.​: Автоматически не пересчитывает​ отметкой​ особенностей и ограничений,​

​ книгу Excel пользовательскую​ несколько ячеек вручную,​ If indRefColor =​– красные.​ таблицы (иначе все​G8G9G10​

​ ячейку.​

​) на основании значения​​ примера:​​ столбце​ вот такая таблица​Public Function ЦВЕТЗАЛИВКИ(ЯЧЕЙКА​ помощи, иначе сама​Формула проверила соответствие оформления​ при изменении цвета,​Past Due​ из-за которых они​

​ функцию, как было​​ сумма и количество​​ cellCurrent.Interior.Color Then sumRes​Теперь мы хотим автоматически​ значения дат будут​и т.д.). При​Пусть в диапазоне​ другой ячейки этой​=$E2=»Delivered»​Qty.​ заказов компании:​ As Range) As​ уже понять не​ ячеек с критериями​ но по F9​.​​ могут не работать​​ показано ранее в​

​ ячеек не будут​ = WorksheetFunction.Sum(cellCurrent, sumRes)​​ сосчитать количество ячеек​​ сравниваться с датой​ копировании формулы вправо​А6:С16​ строки (используем значения​​=$E2=»Past Due»​​больше​Мы хотим раскрасить различными​ Double ЦВЕТЗАЛИВКИ =​ могу. Есть график,​ и наглядно отобразила​ пересчитывает. Видимо изменения​Color​ корректно с какой-то​ этой статье.​ пересчитаны автоматически после​ End If Next​

​ по их цвету,​​ из​​ или влево по​имеется таблица с​ из столбца​

excel2.ru

Как посчитать количество и сумму ячеек по цвету в Excel 2010 и 2013

​Сложнее звучит задача для​4​ цветами строки в​ ЯЧЕЙКА.DisplayFormat.Interior.Color End Function​ согласно этого графика​ принцип действия автоматического​ цвета ячеек Excel​– это шестнадцатеричный​ конкретной книгой или​CountCellsByColor(диапазон, код_цвета)​ этих изменений. Не​ cellCurrent SumCellsByColor =​ то есть сосчитать​В23​ столбцам, изменения формулы​

​ перечнем работ, сроками​Delivery​ заказов, которые должны​, то соответствующая строка​ зависимости от заказанного​Abram pupkin​ 15 человек (например)​ выделения цветом данных.​ не считает поводом​ код цвета выделенной​ типами данных. Так​– считает ячейки​ ругайте нас, это​ sumRes End Function​ количество красных, зелёных​).​ не происходит, именно​

​ выполнения и статусом​).​ быть доставлены через​ таблицы целиком станет​ количества товара (значение​: ВЫДЕЛЕНИЕ ЦВЕТОМ БЕЗ​ выполняют работу с​​ для автоматического пересчета​ ячейки, в нашем​ или иначе, Вы​ с заданным цветом​ не погрешности кода​

​ Function CountCellsByFontColor(rData As​ и оранжевых ячеек​Таким образом, правило УФ​ поэтому цветом выделяется​ их завершения (см.​Если нужно выделить строки​Х​ голубой.​ в столбце​ УФ.​ 1 марта по​Достаточно часто нужно выделить​ формул…​ случае​ можете попытать счастье​ заливки.В примере, рассмотренном​На самом деле, это​ Range, cellRefColor As​ на листе. Как​ например для ячейки​ вся строка.​

• ​ файл примера).​ одним и тем​дней (значение​
  • ​Как видите, изменять в​Qty.​например надо выделить​
• ​ 10 марта, через​ цветом целую строку,​_Boroda_​D2​

Как считать и суммировать по цвету на листе Excel

​ и google в​ выше, мы использовали​ нормальное поведение макросов​ Range) As Long​​ я уже сказал​​А27​В случае затруднений можно​​Необходимо выделить цветом строку,​​ же цветом при​​Due in X Days​​ Excel цвет целой​​), чтобы выделить самые​​ число «12».​

​ условное форматирование сделала​ а не только​: Да, совершенно верно​.​ поисках идеального решения,​ вот такую формулу​ в Excel, скриптов​ Dim indRefColor As​ выше, прямого решения​будет выглядеть =И($B27>$E$22;$B27А27 будет​ потренироваться на примерах,​ содержащую работу определенного​ появлении одного из​). Мы видим, что​ строки на основании​ важные заказы. Справиться​выделяете ячейку или​ чтобы необходимые дни​ ячейку в зависимости​krosav4ig​Если у Вас возникли​ и если Вам​ для подсчёта количества​ VBA и пользовательских​ Long Dim cellCurrent​

1. ​ этой задачи не​ выделена, т.к. в​​ приведенных в статье Условное​​ статуса. Например, если​​ нескольких различных значений,​​ срок доставки для​
2. ​ числового значения одной​ с этой задачей​ диапазон.​ (ячейки) пока люди​​ от того какое​​: а как же​ трудности с добавлением​ удастся найти его,​ ячеек по их​​ функций (UDF). Дело​​ As Range Dim​​ существует. Но, к​​ этой строке дата​
3. ​ форматирование в MS​ работа не начата,​

​ то вместо создания​ различных заказов составляет​ из ячеек –​ нам поможет инструмент​топнули правой мышкой.​ работают были залиты​ значение содержит эта​ xlm?​ скриптов в рабочую​ пожалуйста, возвращайтесь и​ цвету:​ в том, что​ cntRes As Long​ счастью, в нашей​ из​ EXCEL.​ то строку будем​ нескольких правил форматирования​ 1, 3, 5​ это совсем не​ Excel – «​Формат ячеек =>​ цветом. Теперь мне​ же ячейка. Для​vadimn​ книгу Excel, например,​ опубликуйте здесь свою​=CountCellsByColor(F2:F14,A17)​ все подобные функции​ Application.Volatile cntRes =​ команде есть очень​В27​Прием с дополнительной таблицей можно​ выделять красным, если​ можно использовать функции​ или более дней,​ сложно. Далее мы​Условное форматирование​ Число => все​ нужно чтобы в​ решения данной задачи​: krosav4ig, Очень хитро!​ ошибки компиляции, не​ находку!​где​ вызываются только изменением​ 0 indRefColor =​ умелые и знающие​попадает в указанный​ применять для тестирования​ работа еще не​И​ а это значит,​ рассмотрим ещё несколько​».​ форматы =>основной​ этих ячейках (залитых​ нельзя использовать упрощенные​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ВОЗВРАТ(ЕСЛИОШИБКА(АРГУМЕНТ(«cell»;8)*ВЫЧИСЛИТЬ(ВЫБОР(ПРОСМОТР(ПОЛУЧИТЬ.ЯЧЕЙКУ(38;cell);{3;10};{1;2});»СУММ»;»ПРОИЗВЕД»)&»(cell)»);»»))​ работающие формулы и​Код VBA, приведённый ниже,​F2:F14​ данных на листе,​ cellRefColor.Cells(1, 1).Font.Color For​ Excel гуру, и​ диапазон (для ячеек​ любых формул Условного форматирования.​ завершена, то серым,​(AND),​ что приведённая выше​ примеров формул и​Первым делом, выделим все​Очищаем окошко «Тип»​ цветом) было прописано​ правила выделения ячеек.​Но для меня​ так далее, Вы​ преодолевает все указанные​– это выбранный​ но Excel не​ Each cellCurrent In​ один из них​ из столбца А​При вводе статуса работ​ а если завершена,​ИЛИ​ формула здесь не​ парочку хитростей для​ ячейки, цвет заливки​ и записываем​ количество людей работающих.​ Следует использовать формулы​ тёмный лес​ можете скачать рабочую​ выше ограничения и​ диапазон,​ расценивает изменение цвета​ rData If indRefColor​ написал безупречный код​ выделение все равно​ важно не допустить​ то зеленым. Выделять​(OR) и объединить​ применима, так как​ решения более сложных​ которых мы хотим​[Красный] [=12];[Синий] [<>12]​ Соответственно в каждой​ в условном форматировании​Надо же, как​ книгу Excel с​

1. ​ работает в таблицах​A17​​ шрифта или заливки​​ = cellCurrent.Font.Color Then​ для Excel 2010​ будет производиться в​ опечатку. Если вместо​ строки будем с​ таким образом нескольких​ она нацелена на​ задач.​ изменить.​OK​ ячейке в течении​
2. ​ с правильной адресацией​ это работает?!​ примерами и с​ Microsoft Excel 2010​– это ячейка​ ячейки как изменение​​ cntRes = cntRes​​ и 2013. Итак,​

   ​ зависимости от содержимого​

​ слово Завершен​ помощью правил Условного форматирования.​​ условий в одном​​ точное значение.​​В таблице из предыдущего​​Чтобы создать новое правило​Nl​ 10 дней писалось​ ссылок на ячейки.​​krosav4ig​​ готовыми к использованию​ и 2013, с​ с нужным цветом​

​ данных. Поэтому, после​ + 1 End​ выполните 5 простых​ столбца В из​а​Создадим небольшую табличку со​

​ правиле.​В данном случае удобно​ примера, вероятно, было​​ форматирования, нажимаем​​: Через функцию ЕСЛИ​ «15». Для того​Рассмотрим, как выделить строку​: vadimn, это макрофункция,​ функциями​​ любыми типами условного​​ заливки.​

​ изменения цвета ячеек​

​ If Next cellCurrent​ шагов, описанных далее,​ той же строки​

​, например, пользователь введет​

​ статусами работ в​​Например, мы можем отметить​​ использовать функцию​​ бы удобнее использовать​​Главная​ не получится. Используйте​

​ чтобы я в​ в Excel цветом​ если интересно, то​CountCellsByColor​ форматирования (и снова​​Все перечисленные далее формулы​​ вручную, просто поставьте​​ CountCellsByFontColor = cntRes​​ и через несколько​

​ — в этом​​ Завершен​ диапазоне​ заказы, ожидаемые в​ПОИСК​ разные цвета заливки,​>​ «Условное форматирование».​ конечном итоге в​ автоматически:​ можно тут почитать,​и​

​ спасибо нашему гуру!).​ работают по такому​ курсор на любую​ End Function Function​ минут Вы узнаете​ и состоит «магия» смешанной​о​Е6:Е9​ течение 1 и​(SEARCH) и для​ чтобы выделить строки,​Условное форматирование​Для Excel -​ диаграмме смогла посчитать​Удалим ранее созданное условное​ тут скачать документацию​SumCellsByColor​ В результате он​​ же принципу.​​ ячейку и кликните​​ SumCellsByFontColor(rData As Range,​​ количество и сумму​ адресации $B23).​, то Условное форматирование не​.​ 3 дней, розовым​ нахождения частичного совпадения​ содержащие в столбце​

Считаем сумму и количество ячеек по цвету во всей книге

​>​ 2007 на главной​ и увидеть сколько​ форматирование: «ГЛАВНАЯ»-«Условное форматирование»-«Удалить​ и пощупать​, и испытать их​ выводит количество раскрашенных​CountCellsByFontColor(диапазон, код_цвета)​F2​ cellRefColor As Range)​ ячеек нужного цвета.​А для ячейки​ сработает.​Выделим диапазон ячеек​ цветом, а те,​

​ записать вот такую​Qty.​Создать правило​ панели выбираете «Условное​ людей работало у​ правила»-«Удалить правила со​Roman777​ на своих данных.​ ячеек и сумму​– считает ячейки​, а затем​ Dim indRefColor As​Откройте книгу Excel и​В31​Чтобы исключить некорректный ввод​А7:С17​ которые будут выполнены​ формулу:​различные значения. К​(Home > Conditional​ форматирование» — «Правила​ меня каждый день.​ всего листа».​:​Урок подготовлен для Вас​ значений в этих​ с заданным цветом​Enter​ Long Dim cellCurrent​

​ нажмите​правило УФ будет выглядеть =И($B31>$E$22;$B31В31​ используйте идеи из​, содержащий перечень работ,​ в течение 5​=ПОИСК(«Due in»;$E2)>0​ примеру, создать ещё​

​ Formatting > New​
​ выделения ячеек" -​

​Я просто не​Выделите диапазон ячеек A2:D8​krosav4ig​ командой сайта office-guru.ru​ ячейках, независимо от​ шрифта.​, сумма и количество​ As Range Dim​Alt+F11​ не попадает в​​ статьи Ввод данных​​ и установим через​ и 7 дней,​=SEARCH(«Due in»,$E2)>0​ одно правило условного​ rule).​

Пользовательские функции для определения кодов цвета заливки ячеек и цвета шрифта

​ «Другие правила» -​ могу придумать формулу,​ и выберите инструмент:​, что-то я не​Источник: https://www.ablebits.com/office-addins-blog/2013/12/12/count-sort-by-color-excel/​ типа условного форматирования,​SumCellsByColor(диапазон, код_цвета)​ после этого обновятся.​

​ sumRes Application.Volatile sumRes​​, чтобы запустить редактор​ указанный диапазон.​ из списка значений.​ меню Главная/ Цвет​ жёлтым цветом. Формулы​В данной формуле​ форматирования для строк,​В появившемся диалоговом окне​ «Использовать формулу для​

Функции, которые считают количество по цвету:

• ​ которая бы позволила​​ «ГЛАВНАЯ»-«Условное форматирование»-«Создать правило».​ понял, но документация,​Перевел: Антон Андронов​ применённого на листе.​– вычисляет сумму​ Так нужно сделать,​ = 0 indRefColor​Visual Basic for Applications​

  ​Из этой статьи Вы​

  ​ Часть1. Выпадающий список.​​ заливки фон заливки​​ будут выглядеть так:​E2​​ содержащих значение​​Создание правила форматирования​ определения форматируемых ячеек»​ прочитать цвет(​

  ​В разделе данного окна​ видимо на win​Автор: Антон Андронов​
• ​Sub SumCountByConditionalFormat() Dim​​ ячеек с заданным​ работая с любым​ = cellRefColor.Cells(1, 1).Font.Color​

Функции, которые суммируют значения по цвету ячейки:

• ​(VBA).​​ узнаете, как в​ В файле примера​ красный (предполагаем, что​
• ​=ИЛИ($F2="Due in 1 Days";$F2="Due​​– это адрес​10​(New Formatting Rule)​

Функции, которые возвращают код цвета:

• ​ - "Форматировать значения,​​В екселе понимаю​ «Выберите тип правила:»​ 64 bit не​
• ​vit2811​​ indRefColor As Long​ цветом заливки.​ макросом, который Вы​

​ For Each cellCurrent​Правой кнопкой мыши кликните​ Excel посчитать количество​ для ввода статусов​ все работы изначально​ in 3 Days»)​ ячейки, на основании​или больше, и​ выбираем вариант​ для которых следующая​ оооочень мало(​ выберите опцию «Использовать​ поставится?​: Здравствуйте! Мне нужно,​ Dim cellCurrent As​SumCellsByFontColor(диапазон, код_цвета)​ найдёте далее в​ In rData If​

Как посчитать количество и сумму ячеек по цвету, раскрашенных при помощи условного форматирования

​ по имени Вашей​ и сумму ячеек​ работ использован аналогичный​ находятся в статусе​=OR($F2=»Due in 1 Days»,$F2=»Due​ значения которой мы​ выделить их розовым​Использовать формулу для определения​ формула является истинной»​Благодарю каждого заранее​ формулу для определения​krosav4ig​ чтобы в зависимости​ Range Dim cntRes​– вычисляет сумму​ этой статье.​ indRefColor = cellCurrent.Font.Color​ рабочей книги в​ определенного цвета. Этот​ Выпадающий список.​ Не начата).​ in 3 Days»)​

​ применим правило условного​ цветом. Для этого​ форматируемых ячеек​Далее задаёте формулу​ хоть за малейшую​ форматированных ячеек».​:​ от цвета в​ As Long Dim​ ячеек с заданным​Представленный ниже скрипт Visual​

• ​ Then sumRes =​ области​​ способ работает как​Чтобы быстро расширить правила​Убедимся, что выделен диапазон​
• ​=ИЛИ($F2=»Due in 5 Days»;$F2=»Due​ форматирования; знак доллара​​ нам понадобится формула:​(Use a formula​
• ​ и формат (в​ подсказку!​В поле ввода введите​​Roman777​ ячейке, данные в​ sumRes Dim cntCells​
• ​ цветом шрифта.​ Basic был написан​​ WorksheetFunction.Sum(cellCurrent, sumRes) End​Project – VBAProject​

​ для ячеек, раскрашенных​ Условного форматирования на​ ячеек​ in 7 Days»)​$​=$C2>9​ to determine which​ Вашем случае -​skais675​ формулу: =$C2​, распакуйте из скачанного​ соседней ячейке считались​ As Long Dim​GetCellFontColor(ячейка)​ в ответ на​ If Next cellCurrent​, которая находится в​ вручную, так и​

​ новую строку в​А7:С17 А7​=OR($F2=»Due in 5 Days»,$F2=»Due​нужен для того,​Для того, чтобы оба​ cells to format),​ цвет выделения текста).​:​Щелкните по кнопке «Формат»​ файла архиватором файл​ по определенной формуле.​ indCurCell As Long​– возвращает код​ один из комментариев​ SumCellsByFontColor = sumRes​ левой части экрана,​

​ для ячеек с​ таблице, выделите ячейки​должна быть активной​ in 7 Days»)​ чтобы применить формулу​ созданных нами правила​ и ниже, в​В других версиях​Taasyaaa​ и в паявшемся​ xlmacr8.hlp и если​ Например, если цвет​ cntRes = 0​ цвета шрифта в​ читателей (также нашим​ End Function​ далее в появившемся​ правилами условного форматирования.​ новой строки (​ ячейкой). Вызовем команду​Для того, чтобы выделить​ к целой строке;​ работали одновременно, нужно​ поле​ Excel условное форматирование​: skais675, спасибо большое​ окне перейдите на​ у вас win​ ячейки зеленый, то​ sumRes = 0​ выбранной ячейке.​ гуру Excel) и​Сохраните рабочую книгу Excel​

Как использовать код, чтобы посчитать количество цветных ячеек и просуммировать их значения

1. ​ контекстном меню нажмите​ Кроме того, Вы​А17:С17​ меню Условное форматирование/​ заказы с количеством​
2. ​ условие «​ расставить их в​Форматировать значения, для которых​ тоже где-то есть…​ за внимание, но​ вкладку «Шрифт», в​ 7, то для​
3. ​ формула например будет​​ cntCells = Selection.CountLarge​​GetCellColor(ячейка)​ выполняет именно те​ в формате​​Insert​​ научитесь настраивать фильтр​
4. ​) и нажмите сочетание​​ Создать правило /​​ товара не менее​>0​ нужном приоритете.​
5. ​ следующая формула является​​malato​​ у меня нет​​ разделе «Цвет:» выберите​​ его открытия потребуется​​ a*b, если же​​ indRefColor = ActiveCell.DisplayFormat.Interior.Color​– возвращает код​

   

​ действия, которые упомянул​.xlsm​​>​​ по нескольким цветам​ клавиш​

• ​ Использовать формулу для​​ 5, но не​» означает, что правило​На вкладке​ истинной​: Подскажите, есть ли​ необходимости считать количество​​ красный. После на​​ программа, если XP,​
• ​ цвет красный, то​​ For indCurCell =​ цвета заливки в​ автор комментария, а​(Книга Excel с​​Module​​ в Excel 2010​CTRL+D​ определения форматируемых ячеек.​​ более 10 (значение​​ форматирования будет применено,​
• ​Главная​​(Format values where​ какой-то способ в​ залитых ячеек. Мне​ всех открытых окнах​​ то открывается двойным​​ формула будет a+b.​

Рабочая книга с примерами для скачивания

​ 1 To (cntCells​ выбранной ячейке.​ именно считает количество​ поддержкой макросов).Если Вы​.​ и 2013.​. Правила Условного форматирования будут​в поле «Форматировать значения,​ в столбце​ если заданный текст​(Home) в разделе​ this formula is​​ качестве условия для​​ необходимо чтобы ячейка​​ нажмите «ОК».​​ тыком​alex1248​

​ — 1) If​Итак, посчитать количество ячеек​
​ и сумму ячеек​
​ не слишком уверенно​

​Вставьте на свой лист​

office-guru.ru

Как задать формулу в зависимости от цвет ячейки (Условное Форматирование/Conditional Formattings)

​Если Вы активно используете​​ скопированы в строку​ для которых следующая​Qty.​ (в нашем случае​Стили​ true), вводим такое​ ЕСЛИ использовать цвет​ заполнялась мне необходимыми​Результат действия формулы с​В процессе работы с​: Я думаю, это​ indRefColor = Selection(indCurCell).DisplayFormat.Interior.Color​

​ по их цвету​​ определённого цвета на​ чувствуете себя с​
​ вот такой код:​ разнообразные заливки и​17 ​ формула является истинной»​

​), запишем формулу с​​ это «Due in»)​
​(Styles) нажмите​ выражение:​
​ заливки ячейки. Пример​ данными(​
​ условным форматированием, которая​
​ большим объемом числовых​
​ только макросом.​ Then cntRes =​ и вычислить сумму​
​ всех листах данной​ VBA, то посмотрите​Function GetCellColor(xlRange As​
​ цвет шрифта на​таблицы.​
​ нужно ввести =$C7=$E$8​
​ функцией​

​ будет найден.​Условное форматирование​

​=$C2>4​​ следующий:​skais675​ сделала таблицу еще​ данных в таблицах​Если устроит, то​ cntRes + 1​
​ значений в раскрашенных​ книги. Итак, вот​ подробную пошаговую инструкцию​ Range) Dim indRow,​ листах Excel, чтобы​

​Предположим, что ведется журнал​​ (в ячейке​​И​​Подсказка:​(Conditional Formatting) >​Вместо​ЕСЛИ (ячейка красная),​: Ну так формула​ более читабельной.​

​ очень удобно различать​​ попросите модераторов перенести​ sumRes = WorksheetFunction.Sum(Selection(indCurCell),​ ячейках оказалось совсем​ этот код:​ и массу полезных​ indColumn As Long​ выделять различные типы​ посещения сотрудниками научных​Е8​

​(AND):​​Если в формуле​Управление правилами​C2​

​ ТО …​​ проверит если она​​Примечание. Таким же самым​ цветами положительные и​ тему в соответствующий​ sumRes) End If​

​ не сложно, не​​Function WbkCountCellsByColor(cellRefColor As​ советов в учебнике​
​ Dim arResults() Application.Volatile​

​ ячеек или значений,​​ конференций (см. файл примера​находится значение В​=И($D2>=5;$D2​ используется условие «​(Manage Rules)​Вы можете ввести​ИНАЧЕ …​ закрашена и подставит​

​ образом можно присвоить​​ отрицательные значения. Таким​

​ раздел.​​ Next MsgBox «Count=»​ так ли? Но​

​ Range) Dim vWbkRes​​ Как вставить и​
​ If xlRange Is​
​ то, скорее всего,​ лист Даты).​ ​ работе). Обратите внимание​=AND($D2>=5,$D2​

​>0​​В выпадающем списке​ ссылку на другую​Samaretz​ необходимое значение, как​ диапазону A2:D8 новое​

​ образом таблица приобретает​​buchlotnik​​ & cntRes &​​ что если Вы​ Dim wshCurrent As​ запустить код VBA​ Nothing Then Set​ захотите узнать, сколько​

​К сожалению, столбец Дата​​ на использоване смешанных​​Конечно же, в своих​​«, то строка будет​Показать правила форматирования для​ ячейку Вашей таблицы,​:​ Вы и хотели.​ правило для выделения​ более чит​: только UDF:​ vbCrLf & «Sum=​

excelworld.ru

Как выделить отрицательные значения в Excel красным цветом

​ не раскрашиваете ячейки​ Worksheet Application.ScreenUpdating =​ в Excel.​ xlRange = Application.ThisCell​ ячеек выделено определённым​ посещения не отсортирован​ ссылок;​ формулах Вы можете​

Как в Excel выделить красным отрицательные значения

​ выделена цветом в​(Show formatting rules​ значение которой нужно​malato​ Она не считает​ строк на против​Перед тем как выделить​

​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function ifcolor(a As Range,​ » & sumRes​ вручную, а предпочитаете​

1. ​ False Application.Calculation =​Когда все закулисные действия​
2. ​ End If If​ цветом. Если же​ и необходимо выделить​
3. ​нажать кнопку Формат;​ использовать не обязательно​ каждом случае, когда​ for) выберите​ использовать для проверки​, только макросом -​ ячейки, а возвращает​ ячеек с положительным​
4. ​ цветом отрицательные значения​ b As Range)​ & vbCrLf &​ использовать условное форматирование,​ xlCalculationManual vWbkRes =​
5. ​ будут выполнены, выберите​ xlRange.Count > 1​ в ячейках хранятся​ дату первого и​выбрать вкладку Заливка;​ два, а столько​ в ключевой ячейке​Этот лист​

​ условия, а вместо​ формула цвет не​ текущий цвет, читайте​ значением другим цветом.​ в Excel, для​Dim i As​ vbCrLf & _​ как мы делали​ 0 For Each​ ячейки, в которые​

​ Then ReDim arResults(1​ числа, то, вероятно,​ последнего посещения каждого​выбрать серый цвет;​

​ условий, сколько требуется.​ будет найден заданный​(This worksheet). Если​

​4​ видит.​ внимательно по ссылке.​ Только нужно указать​ примера создадим пока​ Long​

​ «Color=» & Left(«000000»,​

​ это в статьях​ wshCurrent In Worksheets​ нужно вставить результат,​ To xlRange.Rows.Count, 1​ Вы захотите вычислить​

​ сотрудника. Например, сотрудник​Нажать ОК.​ Например:​ текст, вне зависимости​ нужно изменить параметры​

​можете указать любое​

Как выделить строку с отрицательным значением в Excel

​/ upd: или​Taasyaaa​ другую формулу: =$C2>0​ еще не отформатированную​i = a.Interior.color​ 6 — Len(Hex(indRefColor)))​ Как изменить цвет​ wshCurrent.Activate vWbkRes =​ и введите в​ To xlRange.Columns.Count) For​ сумму всех ячеек​ Козлов первый раз​ВНИМАНИЕ​=ИЛИ($F2=»Due in 1 Days»;$F2=»Due​

​ от того, где​ только для правил​ нужное число. Разумеется,​

1. ​ через UDF как​: skais675, Поняла Вас.​ и задать другой​ таблицу с отрицательными​
2. ​Select Case i​ & _ Hex(indRefColor)​ заливки ячеек и​
3. ​ vWbkRes + CountCellsByColor(wshCurrent.UsedRange,​ них функцию​ indRow = 1​ с одинаковой заливкой,​ поехал на конференцию​
4. ​: Еще раз обращаю​ in 3 Days»;$F2=»Due​
5. ​ именно в ячейке​ на выделенном фрагменте,​ в зависимости от​ во вложенном файле​ Только у меня​ желаемый формат.​ числами.​Case Is =​

​ & vbCrLf, ,​ Как изменить цвет​ cellRefColor) Next Application.ScreenUpdating​CountCellsByColor​

​ To xlRange.Rows.Count For​ например, сумму всех​ 24.07.2009, а последний​ внимание на формулу =$C7=$E$8.​ in 5 Days»)​ он находится. В​ выберите вариант​ поставленной задачи, Вы​ (формула возвращает значение​ из-за условного форматирования​Полезный совет! При редактировании​

​Чтобы присвоить разные цвета​ 255: ifcolor =​ «Count & Sum​ заливки строки, основываясь​ = True Application.Calculation​:​ indColumn = 1​ красных ячеек.​ раз — 18.07.2015.​ Обычно пользователи вводят =$C$7=$E$8,​=OR($F2=»Due in 1 Days»,$F2=»Due​ примере таблицы на​Текущий фрагмент​ можете использовать операторы​ в десятичном выражении​ показывает белый цвет,​ формул в поле​ положительным и отрицательным​ a.Value + b.Value​ by Conditional Format​

​ на значении ячейки?​ = xlCalculationAutomatic WbkCountCellsByColor​CountCellsByColor(диапазон, код_цвета)​ To xlRange.Columns.Count arResults(indRow,​

​Как известно, Microsoft Excel​Сначала создадим формулу для​ т.е. вводят лишний​ in 3 Days»,$F2=»Due​ рисунке ниже столбец​(Current Selection).​ сравнения меньше (​ формата RGB).​ мол ячейка не​ окна «Создания правила​ значениям:​Case Is =​ color» End Sub​Если Вы применили условное​ = vWbkRes End​В этом примере мы​ indColumn) = xlRange(indRow,​ предоставляет набор функций​ условного форматирования в​ символ доллара.​ in 5 Days»)​Delivery​Выберите правило форматирования, которое​=$C2​malato​ залита, хотя она​ форматирования» не используйте​Выделите диапазон ячеек C2:C8​ 5287936: ifcolor =​Добавьте код, приведённый выше,​ форматирование, чтобы задать​ Function Function WbkSumCellsByColor(cellRefColor​

exceltable.com

Формула для заполнения значения если ячейка имеет цвет

​ используем формулу​​ indColumn).Interior.Color Next Next​ для различных целей,​ столбцах В и​Нужно проделать аналогичные действия​Подсказка:​(столбец F) может​ должно быть применено​=$C2=4​: отличное решение, спасибо!​ имеет свой цвет.​ стрелки на клавиатуре​ столбца «Сумма выручки».​ a.Value * b.Value​ на Ваш лист,​ цвет заливки ячеек​ As Range) Dim​=CountCellsByColor(F2:F14,A17)​ GetCellColor = arResults​ и логично предположить,​ E. Если формула​ для выделения работ​Теперь, когда Вы​ содержать текст «Urgent,​ первым, и при​Обратите внимание на знак​pabchek​ И сейчас какую​ для перемещения клавиатурного​
​На панели «ГЛАВНАЯ» выберите​Case Else: ifcolor​ как мы делали​ в зависимости от​
​ vWbkRes Dim wshCurrent​, где​
​ Else GetCellColor =​ что существуют формулы​ вернет значение ИСТИНА,​

​ в статусе Завершена.​​ научились раскрашивать ячейки​

​ Due in 6​​ помощи стрелок переместите​ доллара​:​ бы формулу (функцию)​ курсора. Это приведет​ инструмент «Условное форматирование»-«Правила​ = «нет цвета»​ это в первом​

​ их значений, и​​ As Worksheet Application.ScreenUpdating​F2:F14​ xlRange.Interior.Color End If​ для подсчёта ячеек​ то соответствующая строка​ Формула в этом​ в разные цвета,​ Hours» (что в​ его вверх списка.​

​$​​Samaretz​ я не пыталась​ к перемещению по​ выделения ячеек»-«Больше».​End Select​ примере.​ теперь хотите посчитать​ = False Application.Calculation​– это диапазон,​ End Function Function​ по цвету. Но,​ будет выделена, если​ случае будет выглядеть​ в зависимости от​

​ переводе означает –​​ Должно получиться вот​перед адресом ячейки​, попробовал применить для​

​ придумать он ничего​​ ячейкам курсора Excel​В левом поле «Форматировать​End Function​

​Выберите диапазон (или диапазоны),​​ количество ячеек определённого​ = xlCalculationManual vWbkRes​ содержащий раскрашенные ячейки,​ GetCellFontColor(xlRange As Range)​ к сожалению, не​ ЛОЖЬ, то нет.​ как =$C7=$E$9, а​

​ содержащихся в них​​ Срочно, доставить в​ так:​ – он нужен​ определения цвета ячейки​ не сделает (хотя​ для автоматического заполнения​

​ ячейки, которые БОЛЬШЕ:»​​ну или макрос,​

​ в которых нужно​​ цвета или сумму​

​ = 0 For​​ которые Вы хотите​ Dim indRow, indColumn​ существует формулы, которая​В столбце D создана​ цвет заливки установите​ значений, возможно, Вы​ течение 6 часов),​Нажмите​ для того, чтобы​ в сводной таблице​ все мною придуманные​ ссылками в аргументах​ введите значение 0,​

​ канешн​​ сосчитать цветные ячейки​ значений в них,​ Each wshCurrent In​ посчитать. Ячейка​ As Long Dim​
​ позволила бы на​ формула массива =МАКС(($A7=$A$7:$A$16)*$B$7:$B$16)=$B7, которая​ зеленый.​ захотите узнать, сколько​

planetaexcel.ru

Возможно ли в Excel в функции ЕСЛИ при истинном значении сделать так чтоб цвет текста становился другого цвета?

​ и эта строка​​ОК​ при копировании формулы​
​ — получил код​ формулы выходят ошибкой)..​
​ формулы. Если же​ а в правом​
​vit2811​
​ или просуммировать по​ то у меня​ Worksheets wshCurrent.Activate vWbkRes​
​A17​ arResults() Application.Volatile If​
​ обычном листе Excel​
​ определяет максимальную дату​

​В итоге наша таблица​​ ячеек выделено определённым​ также будет окрашена.​, и строки в​
​ в остальные ячейки​ белого. Можете сделать,​skais675​ Вы хотите использовать​ выпадающем списке выберите​: Всем спасибо! Решил​ цвету, если в​ для Вас плохие​ = vWbkRes +​– содержит определённый​ xlRange Is Nothing​
​ суммировать или считать​ для определенного сотрудника.​ примет следующий вид.​ цветом, и посчитать​
​Для того, чтобы выделить​ указанном фрагменте тут​ строки сохранить букву​

ЕСЛИ по цвету ячейки (Формулы/Formulas)

​ чтобы и в​​: Там нужно поправить​ стрелки клавиатуры для​ опцию: «Зеленая заливка​ это условным форматированием,​ них содержатся числовые​ новости – не​
​ SumCellsByColor(wshCurrent.UsedRange, cellRefColor) Next​ цвет заливки, в​
​ Then Set xlRange​

​ по цвету.​​Примечание:​​Примечание​​ сумму значений в​ цветом те строки,​ же изменят цвет,​
​ столбца неизменной. Собственно,​ сводной определялся цвет?​ на display interior​ редактирования, то сначала​ и темно-зеленый текст».​ добавил лишний столбик​

​ данные.​​ существует универсальной пользовательской​

​ Application.ScreenUpdating = True​​ нашем случае красный.​​ = Application.ThisCell End​​Если не использовать сторонние​Если нужно определить​: Условное форматирование перекрывает​ этих ячейках. Хочу​ в которых содержимое​ в соответствии с​ в этом кроется​
​А жирность шрифта?​

excelworld.ru

​ color​

В процессе подготовки разного рода ранжирования или анализа показателей успешности, очень удобно если выделить цветом наилучший или наихудший результат. Как выделить максимальное значение в Excel цветом? Здесь существенно поможет условное форматирование. Преимуществом такого подхода является сохранение работоспособности автоматического выделения цветом лучших/худших показателей даже при добавлении или удалении данных из таблицы.

Как выделить цветом максимальное значение в Excel

Для примера возьмем таблицу расходов:

Чтобы молниеносно выделить наибольшие и наименьшие расходы делаем следующее:

1. Выделите диапазон с расходами B2:B10 и выберите инструмент: «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Создать правило».



2. Выберите: «Использовать формулу для определения форматируемых ячеек».



3. В поле ввода введите формулу: =МАКС($B$2:$B$10)=B2



4. Нажмите на кнопку «Формат», чтобы выделить максимальное значение в столбце Excel. Для этого в появившемся окне «Формат ячеек» на вкладке «Заливка» выберите желаемый цвет заливки для ячеек. Например, зеленый. И нажмите ОК на всех открытых окнах.

В результате мы выделили цветом ячейку с максимальным числовым значением.

Как выбрать минимальное значение в Excel

Чтобы выделить цветом минимальное значение в Excel, повторите весь порядок действий, описанных выше. Только вместо функции МАКС, должна быть функция МИН. Данная функция позволяет выбрать наименьшее значение в таблице Excel. А вместо зеленого цвета заливки выберите красный цвет.

К одному и тому же диапазону должно быть применено 2 правила условного форматирования. Чтобы проверить выберите инструмент: «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Управление правилами»

Финальный эффект применения двух правил условного форматирования для выделения цветом наибольшего и наименьшего значения столбца B (Расходы):

Принцип действий обоих правил одинаковый. Они отличаются только функциями =МАКС() и =МИН(). Более того аргументы функций идентичны. Первая функция =МАКС() ищет в несменяемом диапазоне с абсолютными ссылками $B$2:$B$10 максимальное значение. После функции стоит оператор сравнения с изменяемой текущей ячейкой которая имеет относительную ссылку начиная от B2. Правило условного форматирования читает данную формулу так: если число больше всех, то выделить цветом. Как только совпадает максимальное число (которое возвращает функция МАКС) со значением текущей ячейки, формула возвращает логическое значение ИСТИНА и сразу же применяется формат со соответствующим цветом заливки. Так же срабатывает правило для умного форматирования ячеек столбца и с функцией МИН.



Выделение цветом трех наименьших значений подряд

В разных ситуациях полезно применяется автоматическое выделение цветом трех ячеек с наименьшими значениями. Условное форматирование со соответственными формулами прекрасно справляется с данной задачей. Таблица с данными для примера:

Усложним немного задачу. Ячейка с наименьшим значением должна автоматически получить красный цвет заливки. Следующая ячейка с вторым наименьшим значением получит цвет заливки оранжевый. А третье наименьшее значение – желтый.

Чтобы добиться данного эффекта следует выполнить следующие действия:

1. Выделите диапазон ячеек B2:B9 и выберите инструмент: «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Создать правило»-«Использовать формулу для определения форматируемых ячеек».



2. В поле ввода введите формулу: =НАИМЕНЬШИЙ($B$2:$B$9;1)=B2 и нажмите на кнопку «Формат», чтобы задать красный цвет заливки для ячейки. И нажмите ОК на всех открытых окнах.



3. Не снимая выделения с диапазона B2:B9 сразу же создаем второе правило условного форматирования. Снова выберите инструмент: «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Создать правило»-«Использовать формулу для определения форматируемых ячеек».
4. В поле ввода введите формулу: =НАИМЕНЬШИЙ($B$2:$B$9;2)=B2 и нажмите на кнопку «Формат», чтобы задать оранжевый цвет заливки для ячейки. И нажмите ОК на всех окнах.



5. Создайте третье правило. А в поле ввода введите формулу: =НАИМЕНЬШИЙ($B$2:$B$9;3)=B2 и нажмите на кнопку «Формат», чтобы задать желтый цвет заливки для ячейки. ОК на всех окнах.



6. К одному и тому же диапазону должно быть применено 3 правила условного форматирования. Чтобы проверить выберите инструмент: «ГЛАВНАЯ»-«Стили»-«Условное форматирование»-«Управление правилами».

Три наименьшие значения автоматически выделились разными цветами.

Внимание! Если просматриваемый диапазон содержит несколько одинаковых минимальных значений все они будут выделены цветом.

Аналогичным способом можно выделять цветом наибольшие значения. Просто изменить в формуле функцию НАИМЕНЬШИЙ на НАИБОЛЬШИЙ. Например: =НАИБОЛЬШИЙ($B$2:$B$9;3)=B2

Функция наименьший и наибольший в Excel

Функция =НАИМЕНЬШИЙ() ищет в заданном (в первом аргументе) диапазоне очередное наименьшее значение. Очередь указана во втором аргументе функции. То есть если во втором аргументе мы указали число 3, значит функция возвращает третье по очереди наименьшее значение заданного диапазона $B$2:$B$9. Если результат вычисления функции равен текущей ячейке значит к ней присваивается соответственный формат (цвет заливки). Важно отметить что в формуле для просмотра диапазона мы используем абсолютные адреса ссылки, а после оператора сравнения =B2 – относительные, так как значение функции сравнивается с каждой ячейкой выделенного диапазона. А функция НАИБОЛЬШИЙ работает обратно пропорционально.

Полезный совет! Если нет необходимости разбивать 3 наименьших значения на разные цвета, тогда необязательно создавать 3 правила условного форматирования для одного и того же диапазона. Достаточно просто немного изменить формулу добавив всего один символ оператора: =НАИМЕНЬШИЙ($B$2:$B$9;3)>=B2. То есть – больше или равно.

Все описанные способы хороши тем, что при изменении значений в ячейках они все равно будут работать автоматически.

При работе с таблицами первоочередное значение имеют выводимые в ней значения. Но немаловажной составляющей является также и её оформление. Некоторые пользователи считают это второстепенным фактором и не обращают на него особого внимания. А зря, ведь красиво оформленная таблица является важным условием для лучшего её восприятия и понимания пользователями. Особенно большую роль в этом играет визуализация данных. Например, с помощью инструментов визуализации можно окрасить ячейки таблицы в зависимости от их содержимого. Давайте узнаем, как это можно сделать в программе Excel.

Процедура изменения цвета ячеек в зависимости от содержимого

Конечно, всегда приятно иметь хорошо оформленную таблицу, в которой ячейки в зависимости от содержимого, окрашиваются в разные цвета. Но особенно актуальна данная возможность для больших таблиц, содержащих значительный массив данных. В этом случае заливка цветом ячеек значительно облегчит пользователям ориентирование в этом огромном количестве информации, так как она, можно сказать, будет уже структурированной.

Элементы листа можно попытаться раскрасить вручную, но опять же, если таблица большая, то это займет значительное количество времени. К тому же, в таком массиве данных человеческий фактор может сыграть свою роль и будут допущены ошибки. Не говоря уже о том, что таблица может быть динамической и данные в ней периодически изменяются, причем массово. В этом случае вручную менять цвет вообще становится нереально.

Но выход существует. Для ячеек, которые содержат динамические (изменяющиеся) значения применяется условное форматирование, а для статистических данных можно использовать инструмент «Найти и заменить».

Способ 1: условное форматирование

С помощью условного форматирования можно задать определенные границы значений, при которых ячейки будут окрашиваться в тот или иной цвет. Окрашивание будет проводиться автоматически. В случае, если значение ячейки, вследствие изменения выйдет за пределы границы, то автоматически произойдет перекрашивание данного элемента листа.

Посмотрим, как этот способ работает на конкретном примере. Имеем таблицу доходов предприятия, в которой данные разбиты помесячно. Нам нужно выделить разными цветами те элементы, в которых величина доходов менее 400000 рублей, от 400000 до 500000 рублей и превышает 500000 рублей.

1. Выделяем столбец, в котором находится информация по доходам предприятия. Затем перемещаемся во вкладку «Главная». Щелкаем по кнопке «Условное форматирование», которая располагается на ленте в блоке инструментов «Стили». В открывшемся списке выбираем пункт «Управления правилами…».



2. Запускается окошко управления правилами условного форматирования. В поле «Показать правила форматирования для» должно быть установлено значение «Текущий фрагмент». По умолчанию именно оно и должно быть там указано, но на всякий случай проверьте и в случае несоответствия измените настройки согласно вышеуказанным рекомендациям. После этого следует нажать на кнопку «Создать правило…».



3. Открывается окно создания правила форматирования. В списке типов правил выбираем позицию «Форматировать только ячейки, которые содержат». В блоке описания правила в первом поле переключатель должен стоять в позиции «Значения». Во втором поле устанавливаем переключатель в позицию «Меньше». В третьем поле указываем значение, элементы листа, содержащие величину меньше которого, будут окрашены определенным цветом. В нашем случае это значение будет 400000. После этого жмем на кнопку «Формат…».



4. Открывается окно формата ячеек. Перемещаемся во вкладку «Заливка». Выбираем тот цвет заливки, которым желаем, чтобы выделялись ячейки, содержащие величину менее 400000. После этого жмем на кнопку «OK» в нижней части окна.



5. Возвращаемся в окно создания правила форматирования и там тоже жмем на кнопку «OK».



6. После этого действия мы снова будем перенаправлены в Диспетчер правил условного форматирования. Как видим, одно правило уже добавлено, но нам предстоит добавить ещё два. Поэтому снова жмем на кнопку «Создать правило…».



7. И опять мы попадаем в окно создания правила. Перемещаемся в раздел «Форматировать только ячейки, которые содержат». В первом поле данного раздела оставляем параметр «Значение ячейки», а во втором выставляем переключатель в позицию «Между». В третьем поле нужно указать начальное значение диапазона, в котором будут форматироваться элементы листа. В нашем случае это число 400000. В четвертом указываем конечное значение данного диапазона. Оно составит 500000. После этого щелкаем по кнопке «Формат…».



8. В окне форматирования снова перемещаемся во вкладку «Заливка», но на этот раз уже выбираем другой цвет, после чего жмем на кнопку «OK».




9. После возврата в окно создания правила тоже жмем на кнопку «OK».



10. Как видим, в Диспетчере правил у нас создано уже два правила. Таким образом, осталось создать третье. Щелкаем по кнопке «Создать правило».



11. В окне создания правила опять перемещаемся в раздел «Форматировать только ячейки, которые содержат». В первом поле оставляем вариант «Значение ячейки». Во втором поле устанавливаем переключатель в полицию «Больше». В третьем поле вбиваем число 500000. Затем, как и в предыдущих случаях, жмем на кнопку «Формат…».



12. В окне «Формат ячеек» опять перемещаемся во вкладку «Заливка». На этот раз выбираем цвет, который отличается от двух предыдущих случаев. Выполняем щелчок по кнопке «OK».



13. В окне создания правил повторяем нажатие на кнопку «OK».



14. Открывается Диспетчер правил. Как видим, все три правила созданы, поэтому жмем на кнопку «OK».



15. Теперь элементы таблицы окрашены согласно заданным условиям и границам в настройках условного форматирования.



16. Если мы изменим содержимое в одной из ячеек, выходя при этом за границы одного из заданных правил, то при этом данный элемент листа автоматически сменит цвет.

Кроме того, можно использовать условное форматирование несколько по-другому для окраски элементов листа цветом.

1. Для этого после того, как из Диспетчера правил мы переходим в окно создания форматирования, то остаемся в разделе «Форматировать все ячейки на основании их значений». В поле «Цвет» можно выбрать тот цвет, оттенками которого будут заливаться элементы листа. Затем следует нажать на кнопку «OK».



2. В Диспетчере правил тоже жмем на кнопку «OK».



3. Как видим, после этого ячейки в колонке окрашиваются различными оттенками одного цвета. Чем значение, которое содержит элемент листа больше, тем оттенок светлее, чем меньше – тем темнее.

Урок: Условное форматирование в Экселе

Способ 2: использование инструмента «Найти и выделить»

Если в таблице находятся статические данные, которые не планируется со временем изменять, то можно воспользоваться инструментом для изменения цвета ячеек по их содержимому под названием «Найти и выделить». Указанный инструмент позволит отыскать заданные значения и изменить цвет в этих ячейках на нужный пользователю. Но следует учесть, что при изменении содержимого в элементах листа, цвет автоматически изменяться не будет, а останется прежним. Для того, чтобы сменить цвет на актуальный, придется повторять процедуру заново. Поэтому данный способ не является оптимальным для таблиц с динамическим содержимым.

Посмотрим, как это работает на конкретном примере, для которого возьмем все ту же таблицу дохода предприятия.

1. Выделяем столбец с данными, которые следует отформатировать цветом. Затем переходим во вкладку «Главная» и жмем на кнопку «Найти и выделить», которая размещена на ленте в блоке инструментов «Редактирование». В открывшемся списке кликаем по пункту «Найти».



2. Запускается окно «Найти и заменить» во вкладке «Найти». Прежде всего, найдем значения до 400000 рублей. Так как у нас нет ни одной ячейки, где содержалось бы значение менее 300000 рублей, то, по сути, нам нужно выделить все элементы, в которых содержатся числа в диапазоне от 300000 до 400000. К сожалению, прямо указать данный диапазон, как в случае применения условного форматирования, в данном способе нельзя.

   Но существует возможность поступить несколько по-другому, что нам даст тот же результат. Можно в строке поиска задать следующий шаблон «3?????». Знак вопроса означает любой символ. Таким образом, программа будет искать все шестизначные числа, которые начинаются с цифры «3». То есть, в выдачу поиска попадут значения в диапазоне 300000 – 400000, что нам и требуется. Если бы в таблице были числа меньше 300000 или меньше 200000, то для каждого диапазона в сотню тысяч поиск пришлось бы производить отдельно.

   Вводим выражение «3?????» в поле «Найти» и жмем на кнопку «Найти все».



3. После этого в нижней части окошка открываются результаты поисковой выдачи. Кликаем левой кнопкой мыши по любому из них. Затем набираем комбинацию клавиш Ctrl+A. После этого выделяются все результаты поисковой выдачи и одновременно выделяются элементы в столбце, на которые данные результаты ссылаются.



4. После того, как элементы в столбце выделены, не спешим закрывать окно «Найти и заменить». Находясь во вкладке «Главная» в которую мы переместились ранее, переходим на ленту к блоку инструментов «Шрифт». Кликаем по треугольнику справа от кнопки «Цвет заливки». Открывается выбор различных цветов заливки. Выбираем тот цвет, который мы желаем применить к элементам листа, содержащим величины менее 400000 рублей.



5. Как видим, все ячейки столбца, в которых находятся значения менее 400000 рублей, выделены выбранным цветом.



6. Теперь нам нужно окрасить элементы, в которых располагаются величины в диапазоне от 400000 до 500000 рублей. В этот диапазон входят числа, которые соответствуют шаблону «4??????». Вбиваем его в поле поиска и щелкаем по кнопке «Найти все», предварительно выделив нужный нам столбец.



7. Аналогично с предыдущим разом в поисковой выдаче производим выделение всего полученного результата нажатием комбинации горячих клавиш CTRL+A. После этого перемещаемся к значку выбора цвета заливки. Кликаем по нему и жмем на пиктограмму нужного нам оттенка, который будет окрашивать элементы листа, где находятся величины в диапазоне от 400000 до 500000.



8. Как видим, после этого действия все элементы таблицы с данными в интервале с 400000 по 500000 выделены выбранным цветом.



9. Теперь нам осталось выделить последний интервал величин – более 500000. Тут нам тоже повезло, так как все числа более 500000 находятся в интервале от 500000 до 600000. Поэтому в поле поиска вводим выражение «5?????» и жмем на кнопку «Найти все». Если бы были величины, превышающие 600000, то нам бы пришлось дополнительно производить поиск для выражения «6?????» и т.д.



10. Опять выделяем результаты поиска при помощи комбинации Ctrl+A. Далее, воспользовавшись кнопкой на ленте, выбираем новый цвет для заливки интервала, превышающего 500000 по той же аналогии, как мы это делали ранее.



11. Как видим, после этого действия все элементы столбца будут закрашены, согласно тому числовому значению, которое в них размещено. Теперь можно закрывать окно поиска, нажав стандартную кнопку закрытия в верхнем правом углу окна, так как нашу задачу можно считать решенной.



12. Но если мы заменим число на другое, выходящее за границы, которые установлены для конкретного цвета, то цвет не поменяется, как это было в предыдущем способе. Это свидетельствует о том, что данный вариант будет надежно работать только в тех таблицах, в которых данные не изменяются.

Урок: Как сделать поиск в Экселе

Как видим, существует два способа окрасить ячейки в зависимости от числовых значений, которые в них находятся: с помощью условного форматирования и с использованием инструмента «Найти и заменить». Первый способ более прогрессивный, так как позволяет более четко задать условия, по которым будут выделяться элементы листа. К тому же, при условном форматировании цвет элемента автоматически меняется, в случае изменения содержимого в ней, чего второй способ делать не может. Впрочем, заливку ячеек в зависимости от значения путем применения инструмента «Найти и заменить» тоже вполне можно использовать, но только в статических таблицах.