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

Как в Microsoft Excel суммировать ячейки по цвету

В Microsoft Excel, при создании таблиц, очень удобно и наглядно помечать ячейки цветом. Но что делать, если нам понадобиться суммировать значения ячеек одного цвета? По умолчанию, данной функции в Excel до сих пор нет. Решить эту проблему можно написав макрос в Visual Basic.

Для этого в Excel версии 2007-2013 переходим на вкладку Разработчик и нажимаем Visual Basic.

Если такой вкладки нет, то включаем ее следующим образом: Файл/Параметры/Настройка ленты и ставим галочку напротив слова Разработчик.

В открывшемся окне редактора нажимаем Insert/Module и копируем туда следующий текст:

Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double
     Dim Sum As Double
     Application.Volatile True

     For Each cell In DataRange 
         If cell.Interior.Color = ColorSample.Interior.Color Then
             Sum = Sum + cell.Value 
         End If
     Next cell 
     SumByColor = Sum 
 End Function

Сохраняем изменения. Далее в Excel на вкладке Формулы выбираем пункт Вставить функцию. Необходимо выбрать категорию Определенные пользователем — тогда отобразится наша функция — SumByColor.

У этой функции 2 аргументы:

DataRange — диапазон ячеек с числами;

ColorSample — ячейка, цвет которой является образцом для суммирования.

Вот и все. Данная функция корректно работает на последних версиях Excel. Надеюсь, она пригодится Вам при составлении отчетов.

admin

Next Как отключить брандмауэр и защитника в Windows 7 »

Previous « Включение и отключение компонентов в Windows 7

View Comments

Анастасия says:

08.01.2015 at 17:31

Спасибо! работает) и благодарю за содействие при споре. я выиграла золотое колечко )
Виктор says:

12.02.2015 at 16:08

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

21.03.2015 at 14:28

Не получается. После вставки выплывает окно: у данной функции нет аргументов. Как быть?
Анна says:

23.04.2015 at 13:04

Спасибо большое!!! Очень Очень помогли)) все ясно и подробно)
Евгений says:

29.04.2015 at 13:58

А как сделать, чтобы он не суммировал то, что находится в ячейках, а добавлял единичку, если ячейка закрашена данным цветом? Заранее спасибо.
Иван says:

06.07.2015 at 22:12

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

04.08.2015 at 17:05

Благодарю! Очень помогли!
Светлнала says:

27.09.2015 at 20:54

Спасибо огромное!!!
иван says:

09.10.2015 at 00:53

вопрос, а как посчитать количество ячеек с одним цветом шрифта?
Спасибо
- Николай says:
  
  13.03.2018 at 20:03
  
  Чтобы подсчитать только лколичество ячеек определенного цвета, надо в программе заменить "cell.Value" на "1"
Макс Ф. says:

22.01.2016 at 17:16

Спасибо Человек! Очень выручил при подготовке отчета.