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

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

Инструмент «Счёт по цвету» мгновенно и без VBA считает значения в ячейках, исходя из их цвета:

«Счёт по цвету» – это один из 20+ инструментов в составе надстройки XLTools для Excel. Работает в Excel 2019, 2016, 2013, 2010, десктоп Office 365.

Скачать XLTools для Excel

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

1. Нажмите кнопку Счёт по цвету на панели XLTools Укажите диапазон.

   

   Совет: нажмите на любую ячейку таблицы, и она будет выбрана автоматически.

2. Из выпадающего списка «Учитывать только» выберите, какой тип цветовой расцветки следует учитывать в дальнейших расчётах:

   • Заданные цвета – чтобы учитывать только ячейки со сплошной заливкой фона
   • Условные цвета – чтобы учитывать только ячейки с условным форматированием
   • Все цвета – чтобы учитывать все ячейки, как с заданными, так и условными цветами.
3. Из следующего выпадающего списка выберите «Вычислять по цвету» Фона.
4. Посмотрите результаты в сводной таблице результатов агрегатных вычислений: Счёт, Сумм, Срзнач, Мин, Макс – с разбивкой по цвету.

   

   Внимание: надстройка автоматически распознает и произведет расчёт по всем цветам в диапазоне. Ячейки без фона, без заливки и ячейки с белой заливкой обрабатываются вместе. Так, вы сможете сравнить результаты вычислений по цветным и бесцветным ячейкам.
5. Выберите поместить результаты на новый или существующий лист.
6. Нажмите OK Готово!

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

1. Нажмите кнопку Счёт по цвету на панели XLTools Укажите диапазон.

   

   Совет: нажмите на любую ячейку таблицы, и она будет выбрана автоматически.

2. Из выпадающего списка «Учитывать только» выберите, какой тип цветовой расцветки следует учитывать в дальнейших расчётах:

   • Заданные цвета – чтобы учитывать только ячейки заданным цветом шрифта
   • Все цвета – чтобы учитывать все ячейки, как с заданными, так и условными цветами.
3. Из следующего выпадающего списка выберите «Вычислять по цвету» Шрифта.
4. Посмотрите результаты в сводной таблице результатов агрегатных вычислений: Счёт, Сумм, Срзнач, Мин, Макс – с разбивкой по цвету.
5. Выберите поместить результаты на новый или существующий лист.
6. Нажмите OK Готово!

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

1. Нажмите кнопку Счёт по цвету на панели XLTools Укажите диапазон.

   

   Совет: нажмите на любую ячейку таблицы, и она будет выбрана автоматически.

2. Из выпадающего списка «Учитывать только» выберите, какой тип цветовой расцветки следует учитывать в дальнейших расчётах:

   • Условные цвета – чтобы учитывать только ячейки с условным форматированием
   • Все цвета – чтобы учитывать все ячейки, как с заданными, так и условными цветами.
3. Из следующего выпадающего списка выберите «Вычислять по цвету» Фона или Шрифта, в зависимости от типа условного форматирования.
4. Посмотрите результаты в сводной таблице результатов агрегатных вычислений: Счёт, Сумм, Срзнач, Мин, Макс – с разбивкой по цвету.
5. Выберите поместить результаты на новый или существующий лист.
6. Нажмите OK Готово!

Надстройка производит расчёт самых частых агрегатных функций, на основе цвета шрифта или фона ячейки:

• СЧЁТ (COUNT) – подсчёт количества всех значений в диапазоне по цвету
• СУММ (SUM) – сумма всех значений в диапазоне по цвету
• СРЗНАЧ (AVERAGE) – среднее (арифметическое среднее) всех значений в диапазоне по цвету
• МИН (MIN) – наименьшее значение в диапазоне по цвету
• МАКС (MAX) – наибольшее значение в диапазоне по цвету

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

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

Помечать ячейки цветом, используя заливку или цвет шрифта, очень удобно и наглядно. Если вы не дальтоник, конечно :) Трудности возникают тогда, когда по такой раскрашенной таблице возникает необходимость сделать отчет. И если фильтровать и сортировать по цвету Excel в последних версиях научился, то суммировать по цвету до сих пор не умеет.

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

В окне редактора вставьте новый модуль через меню Insert - Module и скопируйте туда текст следующих функций:

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

• DataRange - диапазон исходных ячеек с числами, раскрашенных в разные цвета
• ColorSample - ячейка, цвет заливки которой мы берём за образец

Если теперь вернуться в Excel, то в Мастере функций (вкладка Формулы - кнопка Вставить функцию) в появившейся там категории Определенные пользователем (User Defined) можно найти наши функции и вставить их на лист. Либо напрямую ввести их в строку формул, как любые другие функции Excel:

Добавление условий

Ограничения и нюансы пересчёта

У созданных нами макрофункций есть 2 важных нюанса.

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

Полностью решить эту проблему невозможно, но есть несколько способов её обойти:

• Сделать двойной щелчок левой кнопкой мыши по ячейки с нашей формулой и нажать на Enter, т.е. имитировать повторный ввод функции в ячейку - Excel её заново пересчитает и выдаст обновленный результат.
• Можно использовать сочетание клавиш Ctrl+Alt+F9, которое принудительно заставит Excel пересчитать всё формулы и функции независимо от того, изменились ли для них исходные данные. Но это сочетание нужно будет не забывать нажимать каждый раз при изменении исходных данных.
• Добавить в код наших макрофункций (в любое место) команду Application.Volatile True. Эта команда языка Visual Basic заставляет Excel пересчитывать результаты нашей функции при изменении любой ячейки на листе (или по нажатию  F9). Однако, в этом случае, скорость работы наших функций заметно снизится, т.к. их пересчёт будет происходить постоянно - даже когда мы не меняли цвета или значения ячеек в исходных данных. Пользуйтесь этим методом осторожно.

И помните о том, что наша функция перебирает все (и пустые тоже) ячейки в диапазоне DataRange и не задавайте в качестве первого аргумента целый столбец - "думать" будет долго :)

Ссылки по теме

Как посчитать в Excel ячейки в определенных строках.

excel-office.ru

Количество выделенных строк в Excel.

excel-office.ru

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

​ цвету. В строке​ Мы адрес ячейки​ ячейку столбца. Нажимаем​ цифру «Количество». Это​ строках, но по​Ещё примеры счета​ на букву "Р"​ четвертая и восьмая​P.S.​ идейка, надо со​ я совсем понял!​ не установите надстройку​ английской версий.​ нажатию ​ выражения.​ ColorSample.Interior.Color Then Sum​ старше для этого​

​ состояния написано, что​ А4 исправляем на​ левую мышку.​ число заполненных выделенных​ другим условиям. Смотрите​ с условием смотрите​ и заканчивающиеся на​

​ строки.​

• ​уточните вопрос: Вам​ стандартными средствами и​ Прикрепляю файл образец​ как положено, Вам​​Inter_E​F9​Если вам нужно подсчитывать​ = Sum +​ нужно выбрать в​
• ​ выделено 3 строки​ адрес ячейки А1.​Или нажимаем сочетание​​ ячеек. Пустые ячейки​​ в статье "Как​ в статье "Функция​ букву "в", нужно​В ячейке F1​ надо посчитать кол-во​ плюс функциями Прист-а​​ там я написал​ придется запускать её​: у меня в​).​

​ не сумму покрашенных​ cell.Value End If​ меню​​ (ячейки).​​ Получится так.​ клавиш «Ctrl» +​ так Excel не​

​Пятый способ.​ «А». Активная ячейка,​ считает. Но, если​​ каждую вторую ячейку,​​Теперь нам нужно​ - "Р*в" (или​​ закладке «Главная» в​​ вам нужна сумма​ через стандартный COUNT​ Заранее спасибо!​

​А про "Там​

​ у вас как​

• ​ что наша функция​​ а всего лишь​ = Sum End​
• ​ Редактор Visual Basic​​ данных из других​Посчитать, если выделено цветом​ при этом, находится​

Цвет шрифта

​ нужно посчитать строку,​ строку".​посчитать проценты в Excel​ "Р*В"). Найдет фамилии​ разделе «формулы» -​ во всех желтых​ и пристовским, че​Юрий М​​ help-a нет на​​ "Определенные пользователи" появились​​ перебирает все (и​​ их количество, то​ Function​

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

​ (Tools - Macro​ программ в формат​ – формула Excel​ в таблице.​ в которой в​Говорят, что нет​.​ - Рублев, Рылеев,​ «Математические» выбираем функцию​

​ ячейках ?​ то не получается​

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

​: Inter_E, Вы читаете,​ этих функциях" -​ эти функций. Знаете​ пустые тоже) ячейки​ наша функция будет​Если теперь вернуться в​ - Visual Basic​ числа Excel, чтобы​.​О других сочетаниях​ столбце А нет​ специальной функции без​В ячейку F3​

​ т.д.​ «СУММЕСЛИ». В появившемся​Ми​ у меня...​ что Вам пишут?​ какую функцию Вам​​ как я сделал,​​ в диапазоне​ еще проще. Замените​ Excel, то в​ Editor)​ формулы считали такие​Можно написать такую​​ клавиш, чтобы выделить​​ значений, а есть​

​ макросов​ напишем формулу, которая​? (знак вопроса)​ диалоговом окне в​: В EXEL нет​​Abram pupkin​​"Если в диапазоне​ пояснить поподробней? Их​ просто 2-раза кликнул​DataRange​ в ней 7-ю​

planetaexcel.ru

Подсчет значений в цветных ячейках

​ Мастере функций (​​В новых версиях Excel​
​ числа, смотрите в​ формулу. =СЧЁТ(A1:A6) Эта​ ячейки, смотрите в​ в столбце В,​посчитать количество выделенных строк​ посчитает средний процент​ обозначает один символ.​ строке «Диапазон» указываем​
​ формул, которые бы​: Вам правильно подсказала​
​ суммирования находятся ячейки​

​ там несколько.{/post}{/quote}​​ на файл который​и не задавайте​ строку на:​Вставка - Функция​

​ 2007-2013 перейти на​​ статье "Преобразовать текст​ формула считает только​ статье «Сочетание клавиш​ то выделяем ячейку​ в Excel​

​ выполнения плана по​​ Например, критерий "ст?л"​ диапазон (столбец), в​ различали ячейки по​ Эля Коробицына​ с текстом, то​Summ_Color если есть​ я скачал и​ в качестве первого​Sum = Sum +​) в появившейся там​
​ вкладку​ в число Excel".​ ячейки с числами,​ в Excel».​ столбца В. Главное,​. Неправда. Есть много​ фирме. Здесь пригодится​ - будет искать​ котором написано слово​ цвету, только по​
​Если цвета ячеек​

​ они будут игнорироваться."​​ и Count_Color​ что-то тихо произошло.​ аргумента целый столбец​ 1​ категории​Разработчик (Developer)​

​Помечать ячейки цветом, используя​​ а с текстом​Четвертый способ​ чтобы были выделены​ других приемов, чтобы​ функция Excel «СРЗНАЧЕСЛИ».​ стул, стол, т.д.​ «план». У нас​ адресу​ задавались через условное​ И тем не​
​Inter_E​Ну как теперь​ - "думать" будет​К сожалению изменение цвета​Определенные пользователем (User Defined)​и нажать кнопку​

​ заливку или цвет​ – не считает.​

​.​​ ячейки всех нужных​ посчитать выделенные строки,​В ячейке устанавливаем​ Можно написать несколько​ – это столбец​Эля коробицына​

​ форматирование, тогда можно​​ менее, в своём​
​: Т.е я должен​ пользоваться? Там help-a​ долго :)​ заливки или цвета​
​можно найти нашу​ Visual Basic. Если​ шрифта, очень удобно​Шестой способ.​Посчитать количество строк​ строк. Например, так.​ ячейки Excel. Было​ формат «процентный». На​ вопросительных знаков. Например,​

​ В.​: с помощью условного​ использовать те же​ примере пишете: "не​ вводить диапазон и​ нет на этих​Inter_E​ шрифта ячейки Excel​

​ функцию и вставить​​ такой вкладки у​ и наглядно. Если​
​Чтобы посчитать ячейки​ можно с помощью​Здесь выделили четыре строки.​ бы желание, а​ закладке «Формулы» выбираем​ "Иван?????" (Иванов, Иванченко,​В строке «Критерий»​ форматирования, оно скорее​ самые формулы​

​ важно цифры или​​ затем номер цвета​ функция. Т.е надо​: Добрый день!​ не считает изменением​ ее на лист:​ вас не видно,​ вы не дальтоник,​ (строки) по определенному​функции «Автосумма» в Excel​Третий способ​ способы найдем. )))​
​ «Другие функции» -​

​ т.д.)​​ пишем то, что​ всего уже задано.​Если ячейки красили​ буквы!"​

​ определенной заливки? Допустим​​ только 2 аргумента?​Как можно без​ ее содержимого, поэтому​ ​ то включите ее​ конечно :) Трудности​ условию, используем функцию​. Выделяем ячейку, в​.​

planetaexcel.ru

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

​Один из способов​​ «Статистические» и, выбираем​О других символах,​
​ ищем. Мы написали​ Определить правило задания​ вручную, тогда только​Inter_E​ зеленый, какой код​
​ область и цвет​ VBA, просто с​ не запускает пересчет​
​У нее два аргумента:​ в настройках​
​ возникают тогда, когда​
​ «СЧЁТЕСЛИ». Примеры формул​ которой будет стоять​
​Можно в таблице​узнать количество выделенных​
​ функцию «СРЗНАЧЕСЛИ». Диалоговое​
​ которые можно вставить​ слово «план», п.ч.​
​ цвета и дальше​ макросы.​: Да, мне надо​ у него?​ ячейки указать? как​ использованием формулы IF​ формул. То есть​DataRange​
​Файл - Параметры -​
​ по такой раскрашенной​ смотрите в статье​ цифра количества строк.​ фильтром отфильтровать нужные​ строк – это​ окно заполняем, как​

​ в формулу, читайте​​ считаем сумму плана.​ "плясать" от него​Аналогичный вопрос подробно​ чтоб и буквы​Inter_E​

​ будет в цифровом​​ посчитать значения в​ при перекрашивании исходных​- диапазон раскрашенных​ Настройка ленты (File​ таблице возникает необходимость​ «Функция «СЧЁТЕСЛИ» в​

​ Нажимаем стрелку у​

Из этой статьи Вы узнаете, как в 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. Вставьте на свой лист вот такой код:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

• – считает ячейки с заданным цветом шрифта.

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

• – вычисляет сумму ячеек с заданным цветом заливки.
• – вычисляет сумму ячеек с заданным цветом шрифта.

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

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

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

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

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

Конечно, Вы можете найти тонны кода 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, с любыми типами условного форматирования (и снова спасибо нашему гуру!). В результате он выводит количество раскрашенных ячеек и сумму значений в этих ячейках, независимо от типа условного форматирования, применённого на листе.

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

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, и испытать их на своих данных.