Как посчитать количество выделенных цветом ячеек excel

Как посчитать цветные ячейки в Excel.

​Смотрите также​​ и выделенный диапазон.​Guest​ ​ цвету, только по​​ невозможно, но можно​ в Excel».​ которое должно окраситься.​=AND($D2>=5,$D2​» означает, что правило​ выделить их розовым​>​ действия все элементы​После этого в нижней​«OK»​
​ выставляем переключатель в​ если значение ячейки,​
​.​Рассмотрим,​ Выводит также статистику​: Лузер, Вы Бог!​
​ адресу​ ее существенно облегчить.​Помечать ячейки цветом, используя​ Например, мы написали​Конечно же, в своих​ форматирования будет применено,​ цветом. Для этого​Создать правило​ столбца будут закрашены,​
​ части окошка открываются​.​ позицию​ вследствие изменения выйдет​
​Подсчет цветных ячеек в​
​как посчитать количество цветных​ ​ в статусной строке.​
​А как узнать​Эля коробицына​ Для этого в​ заливку или цвет​ слово «Москва». Нам​ формулах Вы можете​ если заданный текст​
​ нам понадобится формула:​
​(Home > Conditional​ согласно тому числовому​ результаты поисковой выдачи.​Как видим, после этого​«Между»​ за пределы границы,​Excel.​ ячеек в​Подробности — в​ соответствие цветов номерам?​: с помощью условного​​ третьей строке нашей​ шрифта, очень удобно​ нужно, чтобы выделились​ использовать не обязательно​ (в нашем случае​=$C2>9​
​ Formatting > New​ значению, которое в​ Кликаем левой кнопкой​ ячейки в колонке​. В третьем поле​ то автоматически произойдет​​Несколько разных способов​Excel​ CHM-справке.​
​barrel​ форматирования, оно скорее​ функции используется команда​ и наглядно. Если​ все ячейки со​
​ два, а столько​ это «Due in»)​Для того, чтобы оба​ rule).​ них размещено. Теперь​ мыши по любому​ окрашиваются различными оттенками​
​ нужно указать начальное​
​ перекрашивание данного элемента​ описано в статье​. Закрасить ячейки в​История:​: …хотел сказать:​ всего уже задано.​Application.Volatile True​ вы не дальтоник,​
​ словом «Москва» в​ условий, сколько требуется.​ ​ будет найден.​​ созданных нами правила​
​В появившемся диалоговом окне​​ можно закрывать окно​ из них. Затем​ ​ одного цвета. Чем​​ значение диапазона, в​ листа.​
​ «Количество выделенных строк​
​ таблице можно самим,​Версия 1, код​А как узнать​ Определить правило задания​. Она заставляет Excel​ конечно Трудности​ столбце с адресами.​
​ Например:​Подсказка:​ работали одновременно, нужно​Создание правила форматирования​​ поиска, нажав стандартную​ набираем комбинацию клавиш​
​ значение, которое содержит​ котором будут форматироваться​Посмотрим, как этот способ​ в Excel» тут.​ можно установить условное​ рабочий, но не​ коды цветов​ цвета и дальше​ пересчитывать результаты нашей​ возникают тогда, когда​Нажимаем «ОК». Получилось так.​
​=ИЛИ($F2=»Due in 1 Days»;$F2=»Due​​Если в формуле​
​ расставить их в​ ​(New Formatting Rule)​
​ кнопку закрытия в​Ctrl+A​ элемент листа больше,​ элементы листа. В​ работает на конкретном​ Как посчитать цветные​ форматирование, чтобы ячейки​ работало меню:​Лузер™​ «плясать» от него​ функции при изменении​
​ по такой раскрашенной​​Можно в правилах​
​ in 3 Days»;$F2=»Due​ используется условие «​ нужном приоритете.​ выбираем вариант​ верхнем правом углу​. После этого выделяются​ тем оттенок светлее,​ нашем случае это​ примере. Имеем таблицу​ ячейки в Excel,​ окрашивались по условию.​
​Версия 2, полностью​: Макрорекордером записываете назначение​RazorBaze​ любой ячейки на​ таблице возникает необходимость​ условного форматирования настроить​ in 5 Days»)​>0​На вкладке​Использовать формулу для определения​ окна, так как​ все результаты поисковой​ чем меньше –​ число​ доходов предприятия, в​ если ячейки окрашены​

excel-office.ru

Заливка ячеек в зависимости от значения в Microsoft Excel

​ Как настроить таблицу,​ рабочая:​ ячейке заливки, смотрите​: Доброго времени суток!​ листе (или по​ сделать отчет. И​ так, что вся​=OR($F2=»Due in 1 Days»,$F2=»Due​«, то строка будет​Главная​ форматируемых ячеек​ нашу задачу можно​ выдачи и одновременно​ тем темнее.​400000​ которой данные разбиты​ в несколько разных​ чтобы ячейки окрашивались​Версия 3, оптимизирована​ какой получился код.​Проблема такая: нужен​ нажатию ​ если фильтровать и​ ячейка закрашиваться не​ in 3 Days»,$F2=»Due​ выделена цветом в​

​(Home) в разделе​(Use a formula​

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

​ считать решенной.​ выделяются элементы в​Урок:​. В четвертом указываем​ помесячно. Нам нужно​ цветов. Как посчитать​ по условию, смотрите​ по скорости выполнения:​Или вот с​ способ быстрого выделения​F9​ сортировать по цвету​ будет, а будет​ in 5 Days»)​ каждом случае, когда​Стили​ to determine which​Но если мы заменим​

​ столбце, на которые​Условное форматирование в Экселе​ конечное значение данного​ выделить разными цветами​ количество цветных ячеек​ в статье «Условное​—​ диалоговым окном:​ СРАЗУ ВСЕХ имеющихся​).​ Excel в последних​ окрашен, только, текст.​Подсказка:​ в ключевой ячейке​(Styles) нажмите​ cells to format),​ число на другое,​ данные результаты ссылаются.​Если в таблице находятся​ диапазона. Оно составит​ те элементы, в​

​ формулой, фильтром, т.д.​ форматирование в Excel».​ZVI​Sub Макрос1()​ на (одном) Листе​И помните о том,​ версиях научился, то​​Для этого выделяем​​Теперь, когда Вы​

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

​ будет найден заданный​Условное форматирование​ и ниже, в​ выходящее за границы,​После того, как элементы​ статические данные, которые​500000​ которых величина доходов​Третий способ​У нас такая​Лузер™​Dim s As​ ячеек определённого цвета,​ что наша функция​

​ суммировать по цвету​ столбец. На нажимаем​ научились раскрашивать ячейки​ текст, вне зависимости​(Conditional Formatting) >​ поле​ которые установлены для​ в столбце выделены,​ не планируется со​. После этого щелкаем​​ менее​​.​​ таблица.​​: ZVI, в очередной​​ Range, rr As​​ либо стиля,​​ перебирает все (и​​ до сих пор​

1. ​ на кнопку «Условное​ в разные цвета,​ от того, где​Управление правилами​​Форматировать значения, для которых​​ конкретного цвета, то​​ не спешим закрывать​​ временем изменять, то​ по кнопке​400000​​Можно настроить таблицу​​Как закрасить ячейку самим,​ раз не устаю​​ Range, myCell As​​чтобы потом их​

   

2. ​ пустые тоже) ячейки​ не умеет.​ форматирование», делаем, как​​ в зависимости от​​ именно в ячейке​(Manage Rules)​​ следующая формула является​​ цвет не поменяется,​ окно​ можно воспользоваться инструментом​«Формат…»​рублей, от​ так, что после​ смотрите в статье​ восхищаться!​ Range​ сразу все, одновременно,​​ в диапазоне​​Чтобы исправить этот существенный​

   

3. ​ описано выше. Но,​ содержащихся в них​ он находится. В​В выпадающем списке​​ истинной​ как это было​​«Найти и заменить»​ для изменения цвета​.​400000​​ фильтра порядковый номер​​ «Текст Excel. Формат.»​Вот только как​Set myCell =​​ можно было редактировать​​DataRange​ недостаток можно использовать​ в диалоговом окне​ значений, возможно, Вы​ примере таблицы на​Показать правила форматирования для​(Format values where​​ в предыдущем способе.​​. Находясь во вкладке​ ячеек по их​​В окне форматирования снова​​до​

   

4. ​ цветных строк будет​ тут.​​ определять, какая строка​​ Application.InputBox( _​ (например — очистить,​и не задавайте​ несложную пользовательскую функцию​​ «Текст, который содержит»​​ захотите узнать, сколько​ рисунке ниже столбец​​(Show formatting rules​​ this formula is​ Это свидетельствует о​

   

5. ​«Главная»​ содержимому под названием​ перемещаемся во вкладку​500000​​ по порядку. По​​Можно написать формулу,​

   
6. ​ кода выполняется медленнее​prompt:=»Select a cell»,​ или скопировать что-то​​ в качестве первого​​ на Visual Basic,​ вызываем функцию «Пользовательский​ ячеек выделено определённым​Delivery​ for) выберите​ true), вводим такое​​ том, что данный​​в которую мы​

   

7. ​«Найти и выделить»​«Заливка»​рублей и превышает​ нему можно узнать​​ с помощью которой,​ других?​​ Type:=8)​ сразу в каждую​ аргумента целый столбец​​ которая позволит нам​​ формат» (нажимаем на​ цветом, и посчитать​(столбец F) может​​Этот лист​​ выражение:​ вариант будет надежно​ переместились ранее, переходим​. Указанный инструмент позволит​, но на этот​500000​ количество цветных ячеек.​​ будут окрашиваться определенные​​И еще вопрос​Mycol = myCell.Interior.ColorIndex​ из них).​​ — «думать» будет​​ суммировать ячейки с​ стрелку у окна​​ сумму значений в​​ содержать текст «Urgent,​

   

8. ​(This worksheet). Если​=$C2>4​​ работать только в​​ на ленту к​ отыскать заданные значения​ раз уже выбираем​рублей.​ Смотрите статью «Порядковый​​ ячейки. О таком​​ почему использована функция​

   

9. ​For Each rr​Говоря точнее, нужна​ долго :)​​ определенным цветом.​​ «с»). В Word​

   

10. ​ этих ячейках. Хочу​​ Due in 6​​ нужно изменить параметры​Вместо​ тех таблицах, в​ блоку инструментов​ и изменить цвет​​ другой цвет, после​​Выделяем столбец, в котором​

    

11. ​ номер строк по​ способе окрасить ячейки,​ StrAdd, а не​​ In ActiveSheet.UsedRange​ подробная инструкция, как​​Nikls2502​Откройте редактор Visual Basic:​​ 2007 эта кнопка​​ порадовать Вас, это​ Hours» (что в​ только для правил​​C2​​ которых данные не​«Шрифт»​​ в этих ячейках​​ чего жмем на​ находится информация по​ порядку после фильтра​​ читайте в статье​​ Sub?​

    

12. ​If rr.Interior.ColorIndex =​​ это сделать​​: Народ подскажите как​В Excel 2003 и​​ называется «0» (стоит​​ действие тоже можно​ переводе означает –​ на выделенном фрагменте,​Вы можете ввести​ изменяются.​​. Кликаем по треугольнику​​ на нужный пользователю.​

    

13. ​ кнопку​ доходам предприятия. Затем​ в Excel».​​ «Закрасить ячейку по​​barrel​

    
14. ​ Mycol Then​​Заранее спасибо!​​ посчитать сумму ячеек​ старше для этого​ на кнопке 0).​ сделать автоматически, и​​ Срочно, доставить в​​ выберите вариант​

    

15. ​ ссылку на другую​Урок:​ справа от кнопки​ Но следует учесть,​

    

16. ​«OK»​ перемещаемся во вкладку​Бывает нужно округлить​ условию в Excel​: ZVI, надстройка -​If s Is​_Boroda_​ выделенных цветом​ нужно выбрать в​

​Появится диалоговое окно «Формат​ решение этой задачи​ течение 6 часов),​Текущий фрагмент​

1. ​ ячейку Вашей таблицы,​Как сделать поиск в​​«Цвет заливки»​​ что при изменении​.​«Главная»​ числа до кратного​​ формулой».​ СУПЕР!!! Всё прекрасно​​ Nothing Then​​: Выделяете диапазон для​​Michael_S​ меню​ ячеек». В этом​ мы покажем в​ и эта строка​​(Current Selection).​​ значение которой нужно​

   

2. ​ Экселе​​. Открывается выбор различных​​ содержимого в элементах​После возврата в окно​​. Щелкаем по кнопке​​ числа или все​

   

3. ​Как закрасить ячейки,​ работает! Вы настоящий​Set s = rr​ поиска (или одну​: Смотря как они​Сервис — Макрос -​ окне ставим цвет​ статье, посвящённой вопросу​ также будет окрашена.​

​Выберите правило форматирования, которое​​ использовать для проверки​

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

​Как видим, существует два​ цветов заливки. Выбираем​ листа, цвет автоматически​ создания правила тоже​«Условное форматирование»​ числа в столбце​ разобрались. Теперь, разберем,​ талантище! Искренни Вам​​Else​​ ячейку, если поиск​ выделены. Если вручную​ Редактор Visual Basic​ шрифта, можно выбрать​ Как в Excel​Для того, чтобы выделить​ должно быть применено​ условия, а вместо​ способа окрасить ячейки​ тот цвет, который​ изменяться не будет,​ жмем на кнопку​, которая располагается на​ привести к кратному​ как считать цветные​ благодарен.​Set s =​ по всему листу),​ — то только​

​ (Tools — Macro​ или убрать цвет​ посчитать количество, сумму​ цветом те строки,​ первым, и при​

1. ​4​ в зависимости от​ мы желаем применить​ а останется прежним.​​«OK»​​ ленте в блоке​ числу. Например, все​​ ячейки.​​Большое спасибо всем​ Union(s, rr)​ жмете Контрл+F (появится​​ макросом, если применялось​​ — Visual Basic​ заливки ячеек, выбрать​​ и настроить фильтр​​ в которых содержимое​

   

2. ​ помощи стрелок переместите​​можете указать любое​​ числовых значений, которые​​ к элементам листа,​​ Для того, чтобы​.​​ инструментов​​ числа в столбце​Первый вариант.​ кто откликнулся на​End If​ окно «Найти и​​ УФ — то​​ Editor)​ другой шрифт, размер​ для ячеек определённого​ ключевой ячейки начинается​ его вверх списка.​ нужное число. Разумеется,​​ в них находятся:​​ содержащим величины менее​​ сменить цвет на​​Как видим, в​«Стили»​ сделать кратными трем,​Сумма цветных ячеек в​ мою просьбу!​End If​

   ​ заменить»), жмете кнопку​ по условию УФ​В новых версиях Excel​ шрифта, цвет границы​ цвета.​ с заданного текста​​ Должно получиться вот​​ в зависимости от​ с помощью условного​400000​ актуальный, придется повторять​Диспетчере правил​. В открывшемся списке​​ т.е, чтобы числа​​Excel.​Искреннее уважение создателю​Next​​ «Параметры», дмете стрелку​​vikttur​ 2007-2013 перейти на​ ячеек, т.д. Получится​Мы показали лишь несколько​​ или символов, формулу​​ так:​​ поставленной задачи, Вы​​ форматирования и с​рублей.​ процедуру заново. Поэтому​у нас создано​

   ​ выбираем пункт​​ столбца делились на​​Чтобы быстро посчитать​​ этого ресурса. Прекрасный​​s.Select​ рядом со словом​​: Например, Надстройка для​​ вкладку​

   

3. ​ так.​ из возможных способов​ нужно записать в​Нажмите​ можете использовать операторы​ использованием инструмента​Как видим, все ячейки​​ данный способ не​​ уже два правила.​«Управления правилами…»​ три без остатка,​ данные в желтых​ форум, а главное​End Sub​

   

4. ​ «Формат», выбираете в​ суммирования по цвету​Разработчик (Developer)​Можно выделить условным​​ сделать таблицу похожей​​ таком виде:​​ОК​​ сравнения меньше (​«Найти и заменить»​ столбца, в которых​ является оптимальным для​​ Таким образом, осталось​​.​ т.д. Как работать​​ ячейках, установим фильтр.​​ люди! отзывчивые и​Igor67​ появившемся списке «Выбрать​ заливки,шрифта, формату​и нажать кнопку​ форматированием повторяющиеся значения.​​ на полосатую зебру,​​=ПОИСК(«Due in»;$E2)=1​

   

5. ​, и строки в​=$C2​. Первый способ более​​ находятся значения менее​​ таблиц с динамическим​ создать третье. Щелкаем​

   
6. ​Запускается окошко управления правилами​ с кратными числами,​ Какими способами установить​ настоящие специалисты своего​​: По этой ссылке​​ формат из ячейки»,​​Tyron​​ Visual Basic. Если​ Смотрите об этом​ окраска которой зависит​​=SEARCH(«Due in»,$E2)=1​​ указанном фрагменте тут​=$C2=4​ прогрессивный, так как​​400000​​ содержимым.​ по кнопке​

   

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

   

8. ​ПС мне необходимо​ по выделению ячеек​ — топаете им​ подсчитать количество ячеек​​ вас не видно,​​ выделить повторяющиеся значения​​ ячейках и умеет​​ при использовании такой​

   

9. ​ в соответствии с​ доллара​ задать условия, по​​ цветом.​​ на конкретном примере,​.​«Показать правила форматирования для»​​ 3 в Excel».​​ «Фильтр в Excel».​ написать модуль подкачки​​ по цвету заливки​​ на ячейку-образец, жмете​​ по цветам.​​ то включите ее​ в Excel».​​ меняться вместе с​​ формулы и проверить,​ формулами в обоих​​$​​ которым будут выделяться​Теперь нам нужно окрасить​​ для которого возьмем​​В окне создания правила​должно быть установлено​При работе с таблицами​​Получилось так.​​ истории котировок, ТЗ​

   

10. ​ и по шрифту.​ кнопку «Найти все».​​А как сделать​​ в настройках​Как выделить ячейку​ изменением этих значений.​ нет ли в​​ правилах.​​перед адресом ячейки​ элементы листа. К​ элементы, в которых​

    

11. ​ все ту же​ опять перемещаемся в​ значение​ первоочередное значение имеют​В ячейке A1 появилась​ есть. Подскажите, готов​barrel​ В этом же​ чтобы при изменении​Файл — Параметры -​ по условию гистограммой​ Если Вы ищите​ ячейках ключевого столбца​

    

12. ​Чтобы упростить контроль выполнения​ – он нужен​ тому же, при​ располагаются величины в​ таблицу дохода предприятия.​ раздел​«Текущий фрагмент»​ выводимые в ней​ стрелка фильтра (треугольник).​ ли кто нибудь​: Лузер, ну Вы​ окне «Найти и​ цвета ячейки автоматически​ Настройка ленты (File​ в ячейке, читайте​

​ для своих данных​​ данных, начинающихся с​ заказа, мы можем​

​ для того, чтобы​ условном форматировании цвет​ диапазоне от​Выделяем столбец с данными,​«Форматировать только ячейки, которые​. По умолчанию именно​ значения. Но немаловажной​ Нажимаем на эту​​ взяться за это​​ просто меня спасли​ заменить» внизу появится​ пересчитывалось и их​ — Options -​ в статье «Как​ что-то другое, дайте​ пробела. Иначе можно​ выделить в нашей​ при копировании формулы​ элемента автоматически меняется,​400000​ которые следует отформатировать​ содержат»​ оно и должно​ составляющей является также​ стрелку. В появившемся​ дело? готов немного​​ от рутины!!! низкий​​ список адресов найденных​ количество?​ Customize Ribbon)​

​ выделить ячейки в​

lumpics.ru

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

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

​ и её оформление.​ диалоговом окне, нажимаем​ заплатить…​ Вам поклон и​ ячеек, топаете мышой​З.Ы. Пример в​В окне редактора вставьте​ Excel» здесь.​ вместе мы обязательно​ пытаясь понять, почему​ строки заказов с​ строки сохранить букву​ содержимого в ней,​500000​ во вкладку​ оставляем вариант​ но на всякий​ Некоторые пользователи считают​

• ​ на функцию «Фильтр​слэн​ благодарность!​
• ​ на первую (она​ файле. Подскажите кто​ новый модуль через​
• ​Чтобы в Excel ячейка​ что-нибудь придумаем.​ же формула не​
• ​ разным статусом доставки,​ столбца неизменной. Собственно,​ чего второй способ​
• ​рублей. В этот​«Главная»​

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

​«Значение ячейки»​ случай проверьте и​ это второстепенным фактором​

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

1. ​и жмем на​. Во втором поле​ в случае несоответствия​ и не обращают​
2. ​ окно, в котором​ пр условия​​ первом сообщении прикрепил​​ Контрл+Шифт+Енд (выделятся все​​Hugo​​Insert — Module​​ за несколько дней​​ командой сайта office-guru.ru​Итак, выполнив те же​ содержится в столбце​
3. ​ секрет фокуса, именно​​ Впрочем, заливку ячеек​​ которые соответствуют шаблону​ кнопку​​ устанавливаем переключатель в​ измените настройки согласно​​ на него особого​ будут все цвета​можно в аську:237​ файл, сохранённый в​ ячейки и в​​: Никак.​и скопируйте туда​ до определенной даты​​Источник: https://www.ablebits.com/office-addins-blog/2013/10/29/excel-change-row-background-color/​ шаги, что и​Delivery​ поэтому форматирование целой​

   ​ в зависимости от​

   

   ​«4??????»​​«Найти и выделить»​​ полицию​ вышеуказанным рекомендациям. После​ внимания. А зря,​ ячеек, которые присутствуют​ 144 750​ формате 2003, а​​ списке, и на​​Но можно сделать​ текст вот такой​, нужно установить​Перевел: Антон Андронов​ в первом примере,​:​

   ​ строки изменяется в​
​ значения путем применения​

   ​. Вбиваем его в​, которая размещена на​​«Больше»​​ этого следует нажать​ ведь красиво оформленная​ в столбце.​ZVI​ на самом деле,​ листе). Закрываете крестиком​ по событию выделения​ функции:​условное форматирование в Excel​Автор: Антон Андронов​ мы создали три​Если срок доставки заказа​ зависимости от значения​

4. ​ инструмента​​ поле поиска и​​ ленте в блоке​. В третьем поле​​ на кнопку​​ таблица является важным​В нашем примере –​: —​ рассчитываю таблицу в​​ окно «Найти и​​ ячейки — хотя​Public Function SumByColor(DataRange​ по дате​​Условное форматирование в Excel​​ правила форматирования, и​​ находится в будущем​ одной заданной ячейки.​«Найти и заменить»​​ щелкаем по кнопке​​ инструментов​ вбиваем число​«Создать правило…»​ условием для лучшего​ это желтый цвет​
5. ​Тормозила Union(Range1,Range2).​​ 2007ом, она примерно​​ заменить» — все​ это костыли, и​ As Range, ColorSample​
6. ​. Кнопка «Условное форматирование»​устанавливают, чтобы ячейка​ наша таблица стала​ (значение​​Нажимаем кнопку​​тоже вполне можно​«Найти все»​«Редактирование»​500000​​.​​ её восприятия и​​ ячеек и ячейки​​Определялось это достаточно​ в 3 раза​ найденные на листе​

​ ненадёжные, и тормозные​ As Range) As​ -> «Правило выделенных​ или строка выделились​ выглядеть вот так:​Due in X Days​Формат​ использовать, но только​, предварительно выделив нужный​. В открывшемся списке​. Затем, как и​Открывается окно создания правила​

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

​ понимания пользователями. Особенно​ без заливки (без​ примитивно: была закомментрована​ больше той которую​ ячейки остаются выделенными.​ в целом.​​ Double Dim Sum​​ ячеек» -> «Дата».​ цветом при определенных​На самом деле, это​), то заливка таких​(Format) и переходим​​ в статических таблицах.​​ нам столбец.​ кликаем по пункту​ в предыдущих случаях,​ форматирования. В списке​

​ большую роль в​

​ цвета). Нажимаем на​ вся строка с​ я прикрепил. Так​RazorBaze​Ставьте подсчёт на​

1. ​ As Double Application.Volatile​​ В строке, где​​ условиях. В условном​​ частный случай задачи​​ ячеек должна быть​​ на вкладку​​Автор: Максим Тютюшев​​Аналогично с предыдущим разом​​«Найти»​
2. ​ жмем на кнопку​​ типов правил выбираем​​ этом играет визуализация​ желтый прямоугольник.​​ Union() — помогло.​​ вот она до​:​ кнопку.​ True For Each​ стоит «вчера» выбираем​​ форматрировании можно выбрать​​ об изменении цвета​
3. ​ оранжевой;​Заливка​Узнайте, как на листах​ в поисковой выдаче​.​«Формат…»​ позицию​​ данных. Например, с​​В таблице останутся​​А затем раскомментирована,​ сих пор расчитывается​_Boroda_​P.S. И кстати​ cell In DataRange​ свой вариант условий.​

   

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

​ предложенные условия выделения​ строки. Вместо целой​Если заказ доставлен (значение​(Fill), чтобы выбрать​ Excel быстро изменять​ производим выделение всего​Запускается окно​.​​«Форматировать только ячейки, которые​​ помощью инструментов визуализации​

• ​ только желтые ячейки.​ но в строке​ пришлось даже​​, боже… а покороче​​ у Вас в​ If cell.Interior.Color =​ Например «за последние​
• ​ ячеек, а, можно,​​ таблицы выделяем столбец​​Delivered​ цвет фона ячеек.​ цвет целой строки​
• ​ полученного результата нажатием​«Найти и заменить»​В окне​​ содержат»​​ можно окрасить ячейки​ В ячейку A8​ вместо Union() был​

​ тему новую создать:​ способа microsoft не​ формуле баксов не​ ColorSample.Interior.Color Then Sum​

​ 7 дней». И​​ задать свои условия,​​ или диапазон, в​​), то заливка таких​​ Если стандартных цветов​ в зависимости от​ комбинации горячих клавиш​во вкладке​

​«Формат ячеек»​
​. В блоке описания​

​ таблицы в зависимости​ устанавливаем функцию «Автосумма»​ вставлен пустой оператор​​Лузер™​​ могли придумать?)))​​ хватает — диапазон​​ = Sum +​ эта ячейка за​ анписав слово, число,​ котором нужно изменить​ ячеек должна быть​ недостаточно, нажмите кнопку​ значения одной ячейки.​CTRL+A​«Найти»​опять перемещаемся во​ правила в первом​

​ от их содержимого.​ или любую другую​​ типа i=i, скорость​​: Я уже не​в ворде вон​ сдвинулся, осторожно, может​ cell.Value End If​

​ семь дней до​
​ установив формулу. Можно​

​ цвет ячеек, и​​ зелёной;​​Другие цвета​ Посмотрите приёмы и​. После этого перемещаемся​. Прежде всего, найдем​ вкладку​​ поле переключатель должен​​ Давайте узнаем, как​ формулу пишем.​ выполнения была хорошей.​ помню надстройку ZVI,​​ правой кнопкой на​​ наврать!​ Next cell SumByColor​ наступления этой даты​ закрасить ячейки цветом,​ используем формулы, описанные​Если срок доставки заказа​

​(More Colors), выберите​​ примеры формул для​ к значку выбора​​ значения до​​«Заливка»​ стоять в позиции​ это можно сделать​Получилось так. Посчитались, только​ После чего были​ может она и​ стиль кликнул, и​Tyron​ = Sum End​ будет окрашена.​ гистограммой, выделить значками,​​ выше.​​ находится в прошлом​ подходящий и дважды​ числовых и текстовых​ цвета заливки. Кликаем​400000​. На этот раз​«Значения»​ в программе Excel.​ видимые ячейки желтого​

​ приняты меры вызывать​ побыстрее работает. У​ можно всё выделить​: Спасибо!​ Function​Как выделить всю​ словами, числами.​Например, мы можем настроить​

​ (значение​
​ нажмите​

​ значений.​ по нему и​рублей. Так как​ выбираем цвет, который​. Во втором поле​Скачать последнюю версию​ цвета.​ Union() пореже.​ меня на Вашем​ сразу.​Мария​

​Если теперь вернуться в​ строку по определенному​Условное форматирование в Excel​ три наших правила​Past Due​ОК​В одной из предыдущих​

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

​ жмем на пиктограмму​ у нас нет​ отличается от двух​ устанавливаем переключатель в​ Excel​Как установить формулу​Хотя сначала был​ примере тоже долго​тем не менее,​: подскажите пожалуйста, могу​

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

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

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

​ хорошо оформленную таблицу,​ статье «Сложение, вычитание,​ — вообще без​ Я пока один​barrel​ чтобы в графике,​Вставка — Функция​ строку по условию​ окрашивались ячейки с​ ячейки, содержащие номер​

​ красной.​ остальных вкладках диалогового​
​ ячейки в зависимости​ элементы листа, где​

​ значение менее​«OK»​
​. В третьем поле​ в которой ячейки​

​ умножение, деление в​ Union(), но он​ способ вижу -​: Столкнулся с проблемой,​ где проставлены все​) в появившейся там​​ в Excel» тут.​​ суммой меньше 200.​ заказа (столбец​​И, конечно же, цвет​​ окна​

​ от её значения.​
​ находятся величины в​

​300000​.​ указываем значение, элементы​ в зависимости от​ Excel» здесь.​ был помедленнее, прожорливее​

​ вместо UsedRange использовать​ необходим макрос, который​ сроки платежей, считать​
​ категории​В Excel можно​ Выделяем нужный столбец​

​Order number​​ заливки ячеек должен​Формат ячеек​ На этот раз​ диапазоне от​рублей, то, по​В окне создания правил​ листа, содержащие величину​ содержимого, окрашиваются в​Чтобы убрать фильтр,​ по оперативной памяти,​ конкретный диапазон, может​ в диапазоне выделяет​ только оплаченные, при​Определенные пользователем (User Defined)​ посчитать количество выделенных​ или всю таблицу,​) на основании значения​ изменяться, если изменяется​(Format Cells) настраиваются​ мы расскажем о​400000​ сути, нам нужно​

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

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

​ особенно актуальна данная​

office-guru.ru

Условное форматирование в Excel.

​ функцию «Фильтр». Тогда​​ работал на защищенных​ по размерам.​ цветом. Таблица у​ Т.К., нужна сумма​ функцию и вставить​ ячейки, строки выделенные​ диапазон, дать ему​ строки (используем значения​С формулой для значений​ такие как цвет​ Excel 2010 и​500000​ в которых содержатся​
​«OK»​ В нашем случае​
​ возможность для больших​ таблица раскроется, а​ листах, поэтому от​Igor67​ меня очень большая,​ только оплаченных​ ее на лист:​ условным форматированием и​ имя, чтобы быстро​ из столбца​Delivered​ шрифта или границы​ 2013 выделять цветом​.​
​ числа в диапазоне​.​ это значение будет​ таблиц, содержащих значительный​ функция «Автосумма» посчитает​ него пришлось отказаться.​: Проверил по таймеру​ вручную выделять очень​Pelena​ ​ не только, читайте​ найти, и для​Delivery​и​ ячеек.​
​ строку целиком в​Как видим, после этого​ от​Открывается​400000​ массив данных. В​
​ сумму всех ячеек,​При большом количестве​ — одинаково. Плюс​ долго.​:​У нее два аргумента:​ в статье «Количество​
​ чего он ещё​).​​Past Due​
​В поле​ зависимости от значения​ действия все элементы​300000​Диспетчер правил​. После этого жмем​ этом случае заливка​ разного цвета.​ обрабатываемых ячеек обычно​ у ЗВИ, реализация​Может кто подскажет?​Мария​DataRange​ выделенных строк в​ нужен, смотрите в​Если нужно выделить строки​всё понятно, она​​Образец​
​ одной ячейки, а​ таблицы с данными​до​. Как видим, все​ на кнопку​ цветом ячеек значительно​
​Второй вариант.​ причиной тормозов кода​ функции надстройкой, подключено​Лузер™​, читаем Правила форума,​- диапазон раскрашенных​ Excel».​ статье «Что такое​ одним и тем​ будет аналогичной формуле​(Preview) показан результат​ также раскроем несколько​ в интервале с​400000​
​ три правила созданы,​«Формат…»​ облегчит пользователям ориентирование​Если в таблице​ является многократное обращение​ меню и не​: Sub Ìàêðîñ1()​ создаём свою тему​ ячеек с числами​Удалить условное форматирование​
​ диапазон в Excel»​ же цветом при​ из нашего первого​ выполнения созданного правила​ хитростей и покажем​400000​
​. К сожалению, прямо​ поэтому жмем на​.​ в этом огромном​ цветных ячеек мало,​ из рабочего пространства​
​ надо мучаться с​Dim s As​ и прикладываем файл​ColorSample​​ в Excel можно​​ тут.​ появлении одного из​​ примера:​ условного форматирования:​ примеры формул для​по​ указать данный диапазон,​ кнопку​Открывается окно формата ячеек.​ количестве информации, так​ то можно их​ VBA в рабочее​ макросом в книге.​ Range, rr As​
​ с примером​- ячейка, цвет​ так.​На закладке «Главная»​ нескольких различных значений,​=$E2=»Delivered»​
​Если всё получилось так,​ работы с числовыми​500000​ как в случае​«OK»​ Перемещаемся во вкладку​ как она, можно​ выделить. В строке​ проостранство Excel. Это​
​Лузер™​ Range​Abram pupkin​
​ которой принимается как​Выделить диапазон ->​ в разделе «Стили»​ то вместо создания​=$E2=»Past Due»​ как было задумано,​
​ и текстовыми значениями.​​выделены выбранным цветом.​​ применения условного форматирования,​.​«Заливка»​ сказать, будет уже​ состояния будет видно​ относится к использованию​
​: Это ZVI уникальный​For Each rr​: Вам правильно подсказала​ образец для суммирования​ закладка «Главная» ->​ нажимаем «Условное форматирование».​ нескольких правил форматирования​Сложнее звучит задача для​ и выбранный цвет​
​Изменяем цвет строки на​Теперь нам осталось выделить​ в данном способе​Теперь элементы таблицы окрашены​. Выбираем тот цвет​ структурированной.​ их сумма. Строку​ Application. , Cells(),​ в этом плане.​ In ActiveSheet.UsedRange​
​ Эля Коробицына​Легко изменить нашу функцию,​ «Условное форматирование» ->​ Выбираем функцию «Правила​ можно использовать функции​ заказов, которые должны​ устраивает, то жмём​ основании числового значения​

excel-office.ru

Сумма ячеек по цвету

​ последний интервал величин​ нельзя.​ согласно заданным условиям​ заливки, которым желаем,​Элементы листа можно попытаться​ состояния можно настроить​ Range(), .Select, .Hidden​ Мне лень надстройку-то​If rr.Interior.ColorIndex =​Если цвета ячеек​ чтобы она учитывала​ «Удалить правила» ->​ выделенных ячеек» ->​И​ быть доставлены через​ОК​ одной из ячеек​

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

​ делать, а он​

• ​ 34 Then​ задавались через условное​ не цвет заливки​ «Удалить привала из​​ «Меньше». В появившемся​(AND),​Х​, чтобы увидеть созданное​Создаём несколько правил форматирования​
• ​500000​ несколько по-другому, что​ настройках условного форматирования.​​ содержащие величину менее​​ опять же, если​Как посчитать цветные ячейки​ под подозрение сразу​ и инсталятор к​If s Is​ форматирование, тогда можно​​ фона, а цвет​ выделенных ячеек».​ окне пишем сумму,​ИЛИ​

​дней (значение​ правило в действии.Теперь,​ и для каждого​​. Тут нам тоже​​ нам даст тот​Если мы изменим содержимое​400000​

​ таблица большая, то​ в​ визуально и попала​ ней и справку.​ Nothing Then​ использовать те же​ шрифта ячейки. Для​Можно​ меньше которой ячейки​(OR) и объединить​Due in X Days​ если значение в​ определяем приоритет​ повезло, так как​

​ же результат. Можно​ в одной из​. После этого жмем​​ это займет значительное​​Excel​ Union(), которая доставала​​barrel​​Set s = rr​ самые формулы​ этого в строке​

​копировать только условное форматирование​

​ должны окрашиваться. Здесь​

• ​ таким образом нескольких​​). Мы видим, что​ столбце​
• ​Изменяем цвет строки на​​ все числа более​ в строке поиска​ ячеек, выходя при​

Цвет шрифта

​ на кнопку​ количество времени. К​.​ Excel из VBA.​: Чтото не удаётся​Else​Если ячейки красили​ 6 просто замените​​ячеек без значений​​ же можно выбрать​​ условий в одном​​ срок доставки для​Qty.​

Количество вместо суммы

​ основании текстового значения​500000​ задать следующий шаблон​ этом за границы​«OK»​ тому же, в​Можно​Что касается выбора​ запустить надстройку от​

​Set s =​ вручную, тогда только​

Нюансы пересчета

​ свойство​ этих ячеек. Как​ цвет окрашивания ячеек.​ правиле.​ различных заказов составляет​больше​ одной из ячеек​находятся в интервале​«3?????»​ одного из заданных​в нижней части​ таком массиве данных​посчитать количество цветных ячеек​

​ Function или Sub​ ZVI. Всё вроде​ Union(s, rr)​ макросы.​Interior​ это сделать, читайте​​ Нажимаем «ОК». Здесь,​​Например, мы можем отметить​ 1, 3, 5​4​Изменяем цвет ячейки на​ от​. Знак вопроса означает​​ правил, то при​​ окна.​

​ человеческий фактор может​ в​ — то это​ бы установил, надстройка​End If​​Аналогичный вопрос подробно​​на​ в статье «Копирование​ в таблице окрасились​ заказы, ожидаемые в​ или более дней,​

planetaexcel.ru

Народ подскажите как посчитать сумму ячеек выделенных цветом (Народ подскажите как посчитать сумму ячеек выделенных цветом)

​, то соответствующая строка​​ основании значения другой​500000​ любой символ. Таким​

​ этом данный элемент​​Возвращаемся в окно создания​ сыграть свою роль​Excel​ точно не ноу-хау,​ появилась в меню,​End If​

​ рассматривался​​Font​ условного форматирования, формата​ ячейки с суммой​

​ течение 1 и​​ а это значит,​ таблицы целиком станет​ ячейки​
​до​ образом, программа будет​ листа автоматически сменит​ правила форматирования и​ и будут допущены​
​. Например, у нас​ а тупая привычка​ но при запуске​

​Next​​здесь​
​в обеих частях​ в Excel» здесь.​ меньше 200.​ 3 дней, розовым​ что приведённая выше​ голубой.​
​Изменяем цвет строки по​600000​
​ искать все шестизначные​ цвет.​ там тоже жмем​ ошибки. Не говоря​ такая таблица.​ использовать Function, чтобы​

​ выдаёт сообщение: «Не​​s.Select​

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

​Кроме того, можно использовать​​ на кнопку​​ уже о том,​​Первый способ.​ не отображалась в​ удаётся выполнить макрос​End Sub​

excelworld.ru

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

​ The_Prist​​Если вам нужно подсчитывать​ и воскресенье среди​
​ цифру на большую​ которые будут выполнены​ применима, так как​ Excel цвет целой​Предположим, у нас есть​
​ поиска вводим выражение​ с цифры​ условное форматирование несколько​
​«OK»​ что таблица может​
​Сортировкой собираем все​
​ панели макросов как​ «…..» . Возможно​
​Лузер™​Очень простой ответ​
​ не сумму покрашенных​
​ дней недели в​ 200, то цвет​
​ в течение 5​ она нацелена на​ строки на основании​ вот такая таблица​«5?????»​«3»​ по-другому для окраски​.​
​ быть динамической и​
​ цветные ячейки в​ Sub, хотя есть​ этот макрос отсутствует​: Sub Макрос1()​ предложил​ определенным цветом ячеек,​

​ таблице, графике, выделить​​ ячейки исчезнет. Смотрите​ и 7 дней,​ точное значение.​ числового значения одной​ заказов компании:​

​и жмем на​​. То есть, в​ элементов листа цветом.​После этого действия мы​ данные в ней​ одну сторону таблицы.​ же и Private.​

Выделение ячеек по цвету, или по стилю (Формулы/Formulas)

​ в текущей книге,​​Dim s As​
​Алексанндр _Boroda_​ а всего лишь​ дату, смотрите в​ в таблице строку​ жёлтым цветом. Формулы​В данном случае удобно​
​ из ячеек –​Мы хотим раскрасить различными​ кнопку​ выдачу поиска попадут​Для этого после того,​ снова будем перенаправлены​ периодически изменяются, причем​
​ Как работать с​ В данном случае,​ либо все макросы​
​ Range, rr As​

​Посмотрите еще и​​ их количество, то​ статье «Выделить дату,​ «Орешкин», колонка 3.​ будут выглядеть так:​ использовать функцию​ это совсем не​ цветами строки в​«Найти все»​ значения в диапазоне​ как из​ в​ массово. В этом​ сортировкой, читайте в​ конечно, Sub смотрелось​ отключены.»​ Range​ здесь​ наша функция будет​ день недели в​Таким способом можно настроить​=ИЛИ($F2=»Due in 1 Days»;$F2=»Due​ПОИСК​ сложно. Далее мы​ зависимости от заказанного​. Если бы были​300000 – 400000​Диспетчера правил​Диспетчер правил условного форматирования​ случае вручную менять​ статье «Сортировка в​ бы правильнее. В​

​Guest​​For Each rr​​Все ответы предусматривают​​ еще проще. Замените​ Excel при условии»​ условное форматирование ячеек​
​ in 3 Days»)​(SEARCH) и для​ рассмотрим ещё несколько​ количества товара (значение​ величины, превышающие​
​, что нам и​мы переходим в​

excelworld.ru

Как в диапазоне выделить ячейки определённого цвета?

​. Как видим, одно​​ цвет вообще становится​ Excel».​ коде надстройки и​: Лузер, а что​ In ActiveSheet.UsedRange​ использование макросов. Если​ в ней 7-ю​ тут.​
​ в таблице по​

​=OR($F2=»Due in 1 Days»,$F2=»Due​​ нахождения частичного совпадения​
​ примеров формул и​ в столбце​600000​
​ требуется. Если бы​ окно создания форматирования,​
​ правило уже добавлено,​ нереально.​
​Выделяем цветные ячейки.​ Space(1024) лучше заменить​
​ надо сделать, чтобы​
​If rr.Interior.ColorIndex =​
​ для вас это​ строку на:​
​Условное форматирование удобно​
​ разным параметрам: больше,​
​ in 3 Days»)​
​ записать вот такую​
​ парочку хитростей для​

​Qty.​​, то нам бы​
​ в таблице были​ то остаемся в​ но нам предстоит​
​Но выход существует. Для​ В строке состояния​
​ на Space(256). Также​ вместо UsedRange использовать​
​ 34 Then​ сложно, тогда зарегистрируйтесь​
​Sum = Sum +​
​ применять для контроля​
​ меньше, в диапазоне​=ИЛИ($F2=»Due in 5 Days»;$F2=»Due​
​ формулу:​
​ решения более сложных​
​), чтобы выделить самые​
​ пришлось дополнительно производить​
​ числа меньше​
​ разделе​
​ добавить ещё два.​ ячеек, которые содержат​ (внизу окна) смотрим,​

​ две основные процедуры​​ конкретный диапазон?​
​If s Is​ на любом из​

​ 1​​ данных в таблице​
​ сумм, по тексту,​ in 7 Days»)​

​=ПОИСК(«Due in»;$E2)>0​​ задач.​ важные заказы. Справиться​ поиск для выражения​
​300000​«Форматировать все ячейки на​
​ Поэтому снова жмем​
​ динамические (изменяющиеся) значения​ сколько ячеек выделено.​ похожи друг на​А то на​
​ Nothing Then​ предложенных форумов и​
​К сожалению изменение цвета​ (на производстве, в​
​ дате, др.​
​=OR($F2=»Due in 5 Days»,$F2=»Due​=SEARCH(«Due in»,$E2)>0​
​В таблице из предыдущего​ с этой задачей​
​«6?????»​или меньше​
​ основании их значений»​
​ на кнопку​
​ применяется условное форматирование,​Видим – в таблице​
​ друга, и можно​
​ моих документах компьютер​
​Set s = rr​
​ там продублируйте свой​
​ заливки или цвета​

​ торговле или для​​Условное форматирование в Excel​ in 7 Days»)​В данной формуле​ примера, вероятно, было​ нам поможет инструмент​

​и т.д.​​200000​. В поле​«Создать правило…»​ а для статистических​ три цветные ячейки.​
​ было бы сделать​ просто зависает…​Else​ вопрос​ шрифта ячейки Excel​ контроля семейного бюджета).​ по тексту, словам​Для того, чтобы выделить​E2​ бы удобнее использовать​ Excel – «​Опять выделяем результаты поиска​, то для каждого​«Цвет»​

​.​​ данных можно использовать​Если не показывает​ одну универсальную. Думаю,​ZVI​Set s =​P.S.​ не считает изменением​ Как создать таблицу,​.​ заказы с количеством​– это адрес​ разные цвета заливки,​Условное форматирование​

​ при помощи комбинации​​ диапазона в сотню​можно выбрать тот​И опять мы попадаем​ инструмент​ количество выделенных ячеек,​ что многое еще​: —​

​ Union(s, rr)​​уточните вопрос: Вам​ ее содержимого, поэтому​ смотрите в статье​Выделяем столбец. На​ товара не менее​ ячейки, на основании​

​ чтобы выделить строки,​​».​Ctrl+A​ тысяч поиск пришлось​ цвет, оттенками которого​ в окно создания​«Найти и заменить»​ то нажимаем правой​ можно было бы​Прилагается 3-я версия​End If​ надо посчитать кол-во​ не запускает пересчет​ «Как сделать таблицу​

​ закладке «Главная» нажимаем​​ 5, но не​ значения которой мы​ содержащие в столбце​Первым делом, выделим все​
​. Далее, воспользовавшись кнопкой​ бы производить отдельно.​ будут заливаться элементы​

​ в столбце​​ форматирования; знак доллара​различные значения. К​ которых мы хотим​
​ новый цвет для​«3?????»​ нажать на кнопку​«Форматировать только ячейки, которые​
​ можно задать определенные​ ставим галочки у​ и с плеч​ или шрифта. В​

​s.Select​​ во всех желтых​ ячеек с числами​ Excel есть ещё​ списка выбираем функцию​Qty.​
​$​ примеру, создать ещё​ изменить.​
​ заливки интервала, превышающего​в поле​«OK»​ содержат»​ границы значений, при​ нужных функций. Так​
​ долой Было​ отличие от 2-й​End Sub​ ячейках ?​ в другие цвета​ очень важная функция,​ «Правила выделенных ячеек»​), запишем формулу с​

​нужен для того,​​ одно правило условного​Чтобы создать новое правило​
​500000​«Найти»​

planetaexcel.ru

​ ячеек листа, так​

Мы с вами уже рассматривали вопрос о том как посчитать в Excel количество ячеек/значений в подробном видео уроке. Сегодня мы бы хотели немного расширить данную статью для решения более узкой задачи. Допустим, вам необходимо посчитать количество ячеек в зависимости от цвета ячеек или цвета текста.

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

Для этих целей необходимо использовать очень простенький макрос, а точнее пользовательскую функцию, назовем ее ColorNom, она позволит нам вытягивать числовой код цвета заливки и далее по этому коду мы и будет считать общее количество ячеек, используя приемы, описываемые в статье как посчитать в Excel количество ячеек/значений

Итак, приступим. Зайдите в редактор Visual Basic, для этого:

в Excel 2003 нажмите на Сервис, далее Макрос и затем Редактор Visual Basic.

в Excel 2007, 2010 и 2013 это делается по-другому. Зайдите в раздел Разработчик, далее выберите Visual Basic

Внимание! Раздел панели инструментов Разработчик в Excel 2007 доступен по умолчанию, а в Excel 2010 и 2013 его необходимо включить. Это особенно полезно сделать тем пользователям, которые будут часто работать с макросами. Чтобы включить панель инструментов Разработчик в Excel 2010 или 2013 необходимо запустить Файл | Параметры | Настройка ленты после этого необходимо с правой стороны необходимо поставить галочку напротив надписи Разработчик

После того как откроется редактор Visual Basic, вставьте пустой модуль, для этого выберите меню Insert и далее Module

и скопируйте туда текст простой функции:

Public Function ColorNom(Cell As Range)
ColorNom = Cell.Interior.ColorIndex
End Function

После этого закройте редактор Visual Basic и можно вернуться к нашему файлу. В любой пустой ячейки введите пользовательскую функцию, которую мы ввели раннее. В нашем случае это функция ColorNom, ее можно вызвать либо через меню Вставка, Функция — категория Определенные пользователем, либо просто  можно напечатать ее в самой ячейке =ColorNom(A1), где A1 — это наша ячейка, в которой нам необходимо определить индекс цвета.

После этого уже не составит труда посчитать количество ячеек или значений в зависимости от цвета ячейки. Используйте нашу статью как посчитать в Excel количество ячеек/значений

Если вам необходимо посчитать количество значений или сумму в зависимости от цвета текста, то необходимо немного изменить код пользовательской функции.

Public Function ColorNom(Cell As Range)
ColorNom = Cell.Font.ColorIndex
End Function

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

=ColorNom(A1)+Сегодня()*0

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

Рассмотрим вышеуказанный пример с перечнем фруктов. Мы определили код ячеек и отобразили его напротив каждой ячейки.

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

В третьем столбце мы уже будет считать количество ячеек определенного цвета по условию, использую код цвета.

Считать количество мы будем с помощью функции СЧЁТЕСЛИ

Вот так выглядят аргументы данной функции

=СЧЁТЕСЛИ(диапазон;критерий)

Пропишем формулу:

=СЧЁТЕСЛИ($B$1:$B$8;E2)

Диапазон мы указали со знаком доллара, чтобы он был закреплен и можно было протянуть формулу. Критерия у нас встречается всего три и они указаны в нашей вспомогательной таблице. Протянем формулу и получим количество ячеек по цветам.

Скачать пример файла: Цвет_Ячеек.xlsm (файл с поддержкой макросов)

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

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

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

Если не использовать сторонние надстройки, существует только одно решение – создать пользовательскую функцию (UDF). Если Вы мало знаете об этой технологии или вообще никогда не слышали этого термина, не пугайтесь, Вам не придётся писать код самостоятельно. Здесь Вы найдёте отличный готовый код (написанный нашим гуру Excel), и всё, что Вам потребуется сделать – это скопировать его и вставить в свою рабочую книгу.

• Считаем и суммируем по цвету, когда ячейки раскрашены вручную
  • Считаем сумму и количество ячеек по цвету во всей книге
• Считаем и суммируем по цвету, когда к ячейкам применены правила условного форматирования

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

Предположим, у Вас есть таблица заказов компании, в которой ячейки в столбце Delivery раскрашены в зависимости от их значений: Due in X Days – оранжевые, Delivered – зелёные, Past Due – красные.

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

1. Откройте книгу Excel и нажмите Alt+F11, чтобы запустить редактор Visual Basic for Applications (VBA).
2. Правой кнопкой мыши кликните по имени Вашей рабочей книги в области Project – VBAProject, которая находится в левой части экрана, далее в появившемся контекстном меню нажмите Insert > Module.
3. Вставьте на свой лист вот такой код:

Function GetCellColor(xlRange As Range)
    Dim indRow, indColumn As Long
    Dim arResults()
 
    Application.Volatile
 
    If xlRange Is Nothing Then
        Set xlRange = Application.ThisCell
    End If
 
    If xlRange.Count > 1 Then
      ReDim arResults(1 To xlRange.Rows.Count, 1 To xlRange.Columns.Count)
       For indRow = 1 To xlRange.Rows.Count
         For indColumn = 1 To xlRange.Columns.Count
           arResults(indRow, indColumn) = xlRange(indRow, indColumn).Interior.Color
         Next
       Next
     GetCellColor = arResults
    Else
     GetCellColor = xlRange.Interior.Color
    End If
End Function
 
Function GetCellFontColor(xlRange As Range)
    Dim indRow, indColumn As Long
    Dim arResults()
 
    Application.Volatile
 
    If xlRange Is Nothing Then
        Set xlRange = Application.ThisCell
    End If
 
    If xlRange.Count > 1 Then
      ReDim arResults(1 To xlRange.Rows.Count, 1 To xlRange.Columns.Count)
       For indRow = 1 To xlRange.Rows.Count
         For indColumn = 1 To xlRange.Columns.Count
           arResults(indRow, indColumn) = xlRange(indRow, indColumn).Font.Color
         Next
       Next
     GetCellFontColor = arResults
    Else
     GetCellFontColor = xlRange.Font.Color
    End If
 
End Function
 
Function CountCellsByColor(rData As Range, cellRefColor As Range) As Long
    Dim indRefColor As Long
    Dim cellCurrent As Range
    Dim cntRes As Long
 
    Application.Volatile
    cntRes = 0
    indRefColor = cellRefColor.Cells(1, 1).Interior.Color
    For Each cellCurrent In rData
        If indRefColor = cellCurrent.Interior.Color Then
            cntRes = cntRes + 1
        End If
    Next cellCurrent
 
    CountCellsByColor = cntRes
End Function
 
Function SumCellsByColor(rData As Range, cellRefColor As Range)
    Dim indRefColor As Long
    Dim cellCurrent As Range
    Dim sumRes
 
    Application.Volatile
    sumRes = 0
    indRefColor = cellRefColor.Cells(1, 1).Interior.Color
    For Each cellCurrent In rData
        If indRefColor = cellCurrent.Interior.Color Then
            sumRes = WorksheetFunction.Sum(cellCurrent, sumRes)
        End If
    Next cellCurrent
 
    SumCellsByColor = sumRes
End Function
 
Function CountCellsByFontColor(rData As Range, cellRefColor As Range) As Long
    Dim indRefColor As Long
    Dim cellCurrent As Range
    Dim cntRes As Long
 
    Application.Volatile
    cntRes = 0
    indRefColor = cellRefColor.Cells(1, 1).Font.Color
    For Each cellCurrent In rData
        If indRefColor = cellCurrent.Font.Color Then
            cntRes = cntRes + 1
        End If
    Next cellCurrent
 
    CountCellsByFontColor = cntRes
End Function
 
Function SumCellsByFontColor(rData As Range, cellRefColor As Range)
    Dim indRefColor As Long
    Dim cellCurrent As Range
    Dim sumRes
 
    Application.Volatile
    sumRes = 0
    indRefColor = cellRefColor.Cells(1, 1).Font.Color
    For Each cellCurrent In rData
        If indRefColor = cellCurrent.Font.Color Then
            sumRes = WorksheetFunction.Sum(cellCurrent, sumRes)
        End If
    Next cellCurrent
 
    SumCellsByFontColor = sumRes
End Function

1. Сохраните рабочую книгу Excel в формате .xlsm (Книга Excel с поддержкой макросов).Если Вы не слишком уверенно чувствуете себя с VBA, то посмотрите подробную пошаговую инструкцию и массу полезных советов в учебнике Как вставить и запустить код VBA в Excel.
2. Когда все закулисные действия будут выполнены, выберите ячейки, в которые нужно вставить результат, и введите в них функцию CountCellsByColor:

   CountCellsByColor(диапазон, код_цвета)

В этом примере мы используем формулу =CountCellsByColor(F2:F14,A17), где F2:F14 – это диапазон, содержащий раскрашенные ячейки, которые Вы хотите посчитать. Ячейка A17 – содержит определённый цвет заливки, в нашем случае красный.

Точно таким же образом Вы записываете формулу для других цветов, которые требуется посчитать в таблице (жёлтый и зелёный).

Если в раскрашенных ячейках содержатся численные данные (например, столбец Qty. в нашей таблице), Вы можете суммировать значения на основе выбранного цвета ячейки, используя аналогичную функцию SumCellsByColor:

SumCellsByColor(диапазон, код_цвета)

Как показано на снимке экрана ниже, мы использовали формулу:

=SumCellsByColor(D2:D14,A17)

где D2:D14 – диапазон, A17 – ячейка с образцом цвета.

Таким же образом Вы можете посчитать и просуммировать ячейки по цвету шрифта при помощи функций CountCellsByFontColor и SumCellsByFontColor соответственно.

Замечание: Если после применения выше описанного кода VBA Вам вдруг потребуется раскрасить ещё несколько ячеек вручную, сумма и количество ячеек не будут пересчитаны автоматически после этих изменений. Не ругайте нас, это не погрешности кода 🙂

На самом деле, это нормальное поведение макросов в Excel, скриптов VBA и пользовательских функций (UDF). Дело в том, что все подобные функции вызываются только изменением данных на листе, но Excel не расценивает изменение цвета шрифта или заливки ячейки как изменение данных. Поэтому, после изменения цвета ячеек вручную, просто поставьте курсор на любую ячейку и кликните F2, а затем Enter, сумма и количество после этого обновятся. Так нужно сделать, работая с любым макросом, который Вы найдёте далее в этой статье.

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

Представленный ниже скрипт Visual Basic был написан в ответ на один из комментариев читателей (также нашим гуру Excel) и выполняет именно те действия, которые упомянул автор комментария, а именно считает количество и сумму ячеек определённого цвета на всех листах данной книги. Итак, вот этот код:

Function WbkCountCellsByColor(cellRefColor As Range)
    Dim vWbkRes
    Dim wshCurrent As Worksheet
 
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
 
    vWbkRes = 0
    For Each wshCurrent In Worksheets
       wshCurrent.Activate
       vWbkRes = vWbkRes + CountCellsByColor(wshCurrent.UsedRange, cellRefColor)
    Next
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
 
    WbkCountCellsByColor = vWbkRes
End Function
 
Function WbkSumCellsByColor(cellRefColor As Range)
    Dim vWbkRes
    Dim wshCurrent As Worksheet
 
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
 
    vWbkRes = 0
    For Each wshCurrent In Worksheets
       wshCurrent.Activate
       vWbkRes = vWbkRes + SumCellsByColor(wshCurrent.UsedRange, cellRefColor)
    Next
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
 
    WbkSumCellsByColor = vWbkRes
End Function

Добавьте этот макрос точно также, как и предыдущий код. Чтобы получить количество и сумму цветных ячеек используйте вот такие формулы:

=WbkCountCellsByColor()
=WbkSumCellsByColor()

Просто введите одну из этих формул в любую пустую ячейку на любом листе Excel. Диапазон указывать не нужно, но необходимо в скобках указать любую ячейку с заливкой нужного цвета, например, =WbkSumCellsByColor(A1), и формула вернет сумму всех ячеек в книге, окрашенных в этот же цвет.

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

Здесь Вы найдёте самые важные моменты по всем функциям, использованным нами в этом примере, а также пару новых функций, которые определяют коды цветов.

Замечание: Пожалуйста, помните, что все эти формулы будут работать, если Вы уже добавили в свою рабочую книгу Excel пользовательскую функцию, как было показано ранее в этой статье.

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

• CountCellsByColor(диапазон, код_цвета) – считает ячейки с заданным цветом заливки.В примере, рассмотренном выше, мы использовали вот такую формулу для подсчёта количества ячеек по их цвету:

  =CountCellsByColor(F2:F14,A17)

  где F2:F14 – это выбранный диапазон, A17 – это ячейка с нужным цветом заливки.

  Все перечисленные далее формулы работают по такому же принципу.

• CountCellsByFontColor(диапазон, код_цвета) – считает ячейки с заданным цветом шрифта.

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

• SumCellsByColor(диапазон, код_цвета) – вычисляет сумму ячеек с заданным цветом заливки.
• SumCellsByFontColor(диапазон, код_цвета) – вычисляет сумму ячеек с заданным цветом шрифта.

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

• GetCellFontColor(ячейка) – возвращает код цвета шрифта в выбранной ячейке.
• GetCellColor(ячейка) – возвращает код цвета заливки в выбранной ячейке.

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

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

Если Вы применили условное форматирование, чтобы задать цвет заливки ячеек в зависимости от их значений, и теперь хотите посчитать количество ячеек определённого цвета или сумму значений в них, то у меня для Вас плохие новости – не существует универсальной пользовательской функции, которая будет по цвету суммировать или считать количество ячеек и выводить результат в определённые ячейки. По крайней мере, я не слышал о таких функциях, а жаль 🙁

Конечно, Вы можете найти тонны кода VBA в интернете, который пытается сделать это, но все эти коды (по крайней мере, те экземпляры, которые попадались мне) не обрабатывают правила условного форматирования, такие как:

• Format all cells based on their values (Форматировать все ячейки на основании их значений);
• Format only top or bottom ranked values (Форматировать только первые или последние значения);
• Format only values that are above or below average (Форматировать только значения, которые находятся выше или ниже среднего);
• Format only unique or duplicate values (Форматировать только уникальные или повторяющиеся значения).

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

Код VBA, приведённый ниже, преодолевает все указанные выше ограничения и работает в таблицах Microsoft Excel 2010 и 2013, с любыми типами условного форматирования (и снова спасибо нашему гуру!). В результате он выводит количество раскрашенных ячеек и сумму значений в этих ячейках, независимо от типа условного форматирования, применённого на листе.

Sub SumCountByConditionalFormat()
    Dim indRefColor As Long
    Dim cellCurrent As Range
    Dim cntRes As Long
    Dim sumRes
    Dim cntCells As Long
    Dim indCurCell As Long
 
    cntRes = 0
    sumRes = 0
 
    cntCells = Selection.CountLarge
    indRefColor = ActiveCell.DisplayFormat.Interior.Color
 
    For indCurCell = 1 To (cntCells - 1)
        If indRefColor = Selection(indCurCell).DisplayFormat.Interior.Color Then
            cntRes = cntRes + 1
            sumRes = WorksheetFunction.Sum(Selection(indCurCell), sumRes)
        End If
    Next
   MsgBox "Count=" & cntRes & vbCrLf & "Sum= " & sumRes & vbCrLf & vbCrLf & _
        "Color=" & Left("000000", 6 - Len(Hex(indRefColor))) & _
        Hex(indRefColor) & vbCrLf, , "Count & Sum by Conditional Format color"
End Sub

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

1. Добавьте код, приведённый выше, на Ваш лист, как мы делали это в первом примере.
2. Выберите диапазон (или диапазоны), в которых нужно сосчитать цветные ячейки или просуммировать по цвету, если в них содержатся числовые данные.
3. Нажмите и удерживайте Ctrl, кликните по одной ячейке нужного цвета, затем отпустите Ctrl.
4. Нажмите Alt+F8, чтобы открыть список макросов в Вашей рабочей книге.
5. Выберите макрос SumCountByConditionalFormat и нажмите Run (Выполнить).В результате Вы увидите вот такое сообщение:

   

Для этого примера мы выбрали столбец Qty. и получили следующие цифры:

• Count – это число ячеек искомого цвета; в нашем случае это красноватый цвет, которым выделены ячейки со значением Past Due.
• Sum – это сумма значений всех ячеек красного цвета в столбце Qty., то есть общее количество элементов с отметкой Past Due.
• Color – это шестнадцатеричный код цвета выделенной ячейки, в нашем случае D2.

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

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