Как посчитать сумму закрашенных ячеек в Excel: от простых формул до VBA

Почему стандартная функция СУММ не работает с цветными ячейками?

Вы когда-нибудь пытались просуммировать в Excel только те ячейки, которые выделены определённым цветом, и обнаруживали, что функция СУММ игнорирует оформление? Это не случайность — в стандартных формулах нет встроенных инструментов для работы с цветами фона. Дело в том, что цвет ячейки для Excel — это всего лишь визуальный атрибут, не влияющий на числовые данные.

Однако задача подсчёта суммы по цвету возникает часто: от финансовых отчётов (где красным отмечены убытки) до производственных таблиц (где зелёным выделены выполненные задачи). К счастью, есть обходные пути — от комбинаций функций до макросов. В этой статье разберём 5 рабочих методов, включая скрытые возможности Excel, о которых знают немногие.

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

Метод 1: Фильтрация по цвету + функция ПРОМЕЖУТОЧНЫЕ.ИТОГИ

Самый простой способ — использовать встроенную фильтрацию по цвету. Он не требует знания формул и работает даже в Excel 2010. Алгоритм:

1. Выделите диапазон с данными (включая заголовки).
2. Перейдите на вкладку Данные → Фильтр (или нажмите Ctrl+Shift+L).
3. Нажмите на стрелку фильтра в заголовке столбца → Фильтр по цвету → выберите нужный цвет фона.
4. Внизу таблицы добавьте функцию =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9; диапазон), где 9 — код суммирования.

✅ Плюсы: не нужны формулы, работает с условным форматированием.

❌ Минусы: требует ручного включения фильтра, не автоматизируется.

⚠️ Внимание: Если в вашей таблице есть скрытые строки, функция ПРОМЕЖУТОЧНЫЕ.ИТОГИ проигнорирует их даже без фильтра. Используйте ПРОМЕЖУТОЧНЫЕ.ИТОГИ(109; ...) для учёта скрытых данных.

Метод 2: Пользовательская функция на VBA для ручной заливки

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

Откройте редактор VBA (Alt+F11), вставьте новый модуль (Insert → Module) и добавьте код:

Function SumByColor(rng As Range, color As Range) As Double
Dim cl As Range, sum As Double
sum = 0
For Each cl In rng
If cl.Interior.Color = color.Interior.Color Then
sum = sum + cl.Value
End If
Next cl
SumByColor = sum
End Function

Теперь в ячейке можно использовать:

=SumByColor(A1:A10; C1)

где A1:A10 — диапазон для суммирования, а C1 — ячейка с образцом цвета.

• 🔹 Работает с любыми цветами, включая градиенты (если цвет однородный).
• 🔹 Можно модифицировать для суммирования по цвету шрифта (замените Interior.Color на Font.Color).
• 🔹 В Excel Online не поддерживается (требуется настольная версия).

Метод 3: Формула массива для условного форматирования

Если цвет ячейки задаётся условным форматированием, предыдущий метод не сработает — VBA не видит динамические цвета. Здесь поможет комбинация функций СУММПРОИЗВ и -- (двойное отрицание).

Предположим, у вас правило: "Если значение > 100, залить красным". Тогда сумму красных ячеек в диапазоне A1:A10 даст формула:

=СУММПРОИЗВ(A1:A10; --(A1:A10>100))

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

=СУММПРОИЗВ(B2:B100; --(C2:C100="Да"))

где столбец C содержит текстовое условие для условного форматирования.

⚠️ Внимание: Формулы массива в новых версиях Excel (365, 2021) могут требовать подтверждения клавишами Ctrl+Shift+Enter только в режиме совместимости. В динамических массивах достаточно нажать Enter.

Метод 4: Power Query для сложных таблиц

Если ваши данные импортируются из внешних источников или требуют сложной обработки, Power Query станет спасением. Этот инструмент позволяет создавать столбцы на основе цвета заливки, а затем суммировать их.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range("D1").Value = SumByColor(Range("A1:A10"), Range("C1"))
Application.EnableEvents = True
End Sub