Як в Excel підрахувати осередку за кольором


Написав admin. Опубліковано в рубриці Офісні програми

MS-Excel logoУ Microsoft Excel, при створенні таблиць, дуже зручно і наочно позначати комірки кольором. Але що робити, якщо нам знадобитися підсумувати значення комірок одного кольору? За замовчуванням, даної функції в Excel досі немає. Вирішити цю проблему можна написавши макрос у Visual Basic.

Для цього в Excel версії 2007-2013 переходимо на вкладку Розробник і натискаємо Visual Basic.


Вкладка разработчик

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

У вікні редактора натискаємо Insert/Module і копіюємо туди наступний текст:


1 2 3 4 5 6 7 8 9 10 11 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. Сподіваюся, вона стане в нагоді Вам при складанні звітів.