Перейти до основного матеріалу

Як підрахувати або підсумувати комірки на основі кольорів шрифту в Excel?

Як можна отримати кількість комірок або підсумувати всі комірки, які містять певний колір шрифту в Excel? Наприклад, у мене є ряд даних на аркуші, як показано на наступному знімку екрана, і тепер я хочу підрахувати або підсумувати комірки, які мають червоний, синій та чорний кольори шрифту. Як правило, прямого способу вирішити це завдання немає, тут я розповім про деякі хитрощі для розв’язання цієї роботи.

Підрахувати або підсумувати комірки на основі кольорів шрифтів за допомогою функції, визначеної користувачем

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

Підрахуйте або підсумуйте клітинки на основі кольору шрифту з дивовижною функцією - Підрахувати за кольором


Підрахувати або підсумувати комірки на основі кольорів шрифтів за допомогою функції, визначеної користувачем

Підрахувати комірки на основі кольорів шрифту:

Щоб розрахувати кількість комірок із певними кольорами шрифту, виконайте такі дії:

1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код VBA: Підрахувати клітинки на основі кольорів шрифту:

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
'Update by Extendoffice
Application.Volatile
Dim rng As Range
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        CountColour = CountColour + 1
    End If
Next
End Function

3. Потім збережіть цей код і поверніться до робочого аркуша, а потім введіть цю формулу в порожню комірку = CountColour (A1: D10, A2) , див. скріншот:

примітки: У наведеній вище формулі, A1: D10 - діапазон, який ви хочете використовувати, і A2 це клітинка з певним кольором шрифту, який ви хочете порахувати.

4. Набравши формулу, натисніть Що натомість? Створіть віртуальну версію себе у клавішу, і ви отримаєте кількість комірок з червоним кольором шрифту. Якщо ви хочете порахувати інші кольорові клітини шрифту, будь-ласка, неодноразово вводьте формулу, наскільки це можливо. Ви отримаєте такі результати:


Суми комірок на основі кольорів шрифту:

Щоб підсумувати комірки на основі кольорів шрифтів, вам може допомогти наступна функція, визначена користувачем.

1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код VBA: Суми комірок на основі кольорів шрифту:

Public Function SumByColor(pRange1 As Range, pRange2 As Range) As Double
'Update by Extendoffice
Application.Volatile
Dim rng As Range
Dim xTotal As Double
xTotal = 0
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        xTotal = xTotal + rng.Value
    End If
Next
SumByColor = xTotal
End Function

3. Потім збережіть цей код і поверніться до початкового аркуша, а потім введіть цю формулу = SumByColor (A1: D8, A1) в порожню комірку, див. знімок екрана:

примітки: У наведеній вище формулі, A1: D10 - діапазон, який ви хочете використовувати, і A2 це комірка з певним кольором шрифту, який потрібно підсумувати.

4. Потім натисніть Що натомість? Створіть віртуальну версію себе у клавішу, і ви складете всі комірки з червоними кольорами шрифту. Якщо ви хочете підсумувати інші кольорові клітини шрифтів, будь ласка, кілька разів введіть формулу. Ви отримаєте такий результат:


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

Можливо, функція, яку визначає користувач, є проблемою для вас для збереження та застосування, тут я порекомендую вам зручний інструмент-Kutools для Excel, завдяки його розширеним функціям, ви можете швидко і легко вирішити це завдання.

Порада:Щоб застосувати це COUNTBYFONTCOLOR та SUMBYFONTCOLOR По-перше, ви повинні завантажити Kutools для Excel, а потім швидко та легко застосувати функцію.

після установки Kutools для Excel, будь ласка, зробіть так:

Підрахувати комірки на основі кольорів шрифту:

1. Клацніть клітинку, куди потрібно поставити результат підрахунку, а потім клацніть Кутулс > Функції Kutools > Статистика та математика > COUNTBYFONTCOLOR, див. скріншот:

2, в Аргументи функції у діалоговому вікні вкажіть діапазон даних та комірку індексу кольорів, які потрібно підрахувати за кольором шрифту, див. знімок екрана:

3. А потім натисніть OK кнопка, ви отримаєте результат першого підрахунку, щоб отримати інші результати, вам просто потрібно скопіювати цю формулу і змінити посилання на клітинки відповідно до ваших потреб. Дивіться знімок екрана:


Суми комірок на основі кольорів шрифту:

1. Клацніть клітинку, куди потрібно поставити результат підрахунку, а потім клацніть Кутулс > Функції Kutools > Статистика та математика > SUMBYFONTCOLOR, див. скріншот:

2, в Аргументи функції у діалоговому вікні вкажіть діапазон даних і комірку індексу кольорів, які потрібно підсумувати за кольором шрифту, див.

3. А потім натисніть OK кнопка, ви отримаєте результат першої суми, щоб отримати інші результати, вам просто потрібно скопіювати цю формулу і змінити посилання на клітинки відповідно до ваших потреб. Дивіться знімок екрана:

Натисніть, щоб завантажити Kutools для Excel та безкоштовну пробну версію зараз!


Підрахуйте або підсумуйте клітинки на основі кольору шрифту з дивовижною функцією - Підрахувати за кольором

Kutools для Excel також забезпечує просту функцію- Підрахувати за кольором, за допомогою цієї утиліти ви можете швидко отримати результат обчислення, такий як підрахунок, сума, середні клітинки тощо за кольором фону, кольором шрифту, умовним форматуванням, як вам потрібно.

Порада:Щоб застосувати це Підрахувати за кольором По-перше, вам слід завантажити Kutools для Excel, а потім швидко та легко застосувати функцію.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Виберіть діапазон даних, який потрібно підрахувати та підсумувати, виходячи з різних кольорів.

2. Клацання Kutools Plus> Підрахувати за кольором, див. скріншот:

3, в Підрахувати за кольором діалогове вікно, виберіть Стандартне форматування від Колірний метод і виберіть шрифт під Тип підрахунку випадаюче, і клітинки з однаковими кольорами шрифтів були підраховані, додані, усереднені тощо, див. знімок екрана:

4. А потім клацніть Створити звіт , ви отримаєте статистику в новій книзі. Дивіться знімок екрана:

Натисніть, щоб завантажити Kutools для Excel та безкоштовну пробну версію зараз!


Більше статей:

  • Кількість та сума клітинок на основі кольору фону в Excel
  • Припустимо, у вас є ряд комірок з різними кольорами фону, наприклад, червоний, зелений, синій тощо, але тепер вам потрібно підрахувати, скільки комірок у цьому діапазоні має певний колір фону, і підсумувати кольорові комірки з однаковим певним кольором . В Excel немає прямої формули для обчислення суми та кількості кольорових клітинок, тут я познайомлю вас із деякими способами вирішення цієї проблеми.
  • Сума / підрахунок жирних чисел у діапазоні комірок в Excel
  • Якщо у вас є діапазон даних, який містить кілька жирних цифр на аркуші, і тепер ви хочете підсумувати або підрахувати лише жирні комірки, звичайно, ви можете складати їх по одному вручну, але це забирає багато часу. Як ви могли підсумувати або підрахувати лише жирні клітинки в Excel простим і швидким способом?
  • Застосуйте кольоровий градієнт у кількох клітинках
  • В Excel ми можемо легко заповнити фоновий колір клітинки або кількох комірок, але, іноді, нам потрібно залити кольором градієнт, як показано на наступному скріншоті, як можна отримати градієнт кольору в комірці або в декількох клітинках Excel?
  • Об'єднайте стовпці комірок і збережіть колір тексту в Excel
  • Як ми всі знаємо, під час об'єднання або об'єднання стовпців комірок в один стовпець форматування комірки (наприклад, колір шрифту тексту, форматування чисел тощо) буде втрачено. У цій статті я представив кілька прийомів, як об’єднати стовпці комірок в одне і максимально легко зберегти колір тексту в Excel.

Підрахувати або підсумувати комірки на основі шрифту / фону / кольору умовного форматування:

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (52)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi..


I used it to count and sum from matrix. The problem is that the I need to count/sum in multiple range of cells. Is it possible to update this code to do this?
This comment was minimized by the moderator on the site
Hello, Joseph,

Maybe there is no direct way for you to count or sum the cell values based on font color in multiple ranges, but, you can apply the third method in this article and use Count by Color feature of Kutools for Excel, with this feature, you just need to select the multiple ranges first, and then apply the feature.
https://www.extendoffice.com/documents/excel/1418-excel-count-sum-by-font-color.html#a3

Please try it, thank you!
This comment was minimized by the moderator on the site
COUNT CELLS BY FONT COLOR tutorial was great! But it is not working when the font color was based on the conditional formatting. Do you have something for this concern?
This comment was minimized by the moderator on the site
Hello,
The codes in this article can not support the conditional formatting, but, you can use our Kutools for Excel's Count by Color feature, it can help you to count or sum conditional font colors. Please try it.
This comment was minimized by the moderator on the site
This was exactly what I needed - Thanks!
This comment was minimized by the moderator on the site
= SumByColor (A1: D8, A1) NÃO FUNCIONOU


=SumByColor(A1:D8;A1) FUNCIONOU

TIRANDO ESPAÇO E USANDO " ; " AO INVÉS DE " , " AI FUNCIONOU LEGAL.

USO EXCEL 10


MUITO BOM.


OBRIGADO
This comment was minimized by the moderator on the site
Is there a way to change Count Or Sum Cells Based On Font Colors With User Defined Function into count or sum cells based on de conditional formating?

I've tried with

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double

Application.Volatile
Dim rng As Range
For Each rng In pRange1

If rng.FormatConditions.Font.Color = pRange2.FormatConditions.Font.Color Then
CountColour = CountColour + 1

End If
Next
End Function

But it appears not to work, any suggestion?
Thanks
This comment was minimized by the moderator on the site
Hello, Borja,
May be you can use our product, Kutools for Excel, with its Count by Color feature, you can quickly count or sum the cell values based on the conditional formatting without any VBA code, please try. You can download it and free trial in 60 day.
Thank you!
This comment was minimized by the moderator on the site
I tried the SumByColor. It works, but not if the numbers have been coloured by conditional formatting. For example, I have a list of different numbers that are coloured red if they are within a range set by a conditional formatting rule. I would then like to sum only the red-coloured numbers. But the SumByColor VBA code does not work in this situation. Any suggestions to make it work. Thanks
This comment was minimized by the moderator on the site
Hello, Xiahui,
The above code can not applied to conditional formatting color, but, you can use our Kutools for Excel' Count by color feature, with it, you can quickly get the result for counting or summing based on the conditional formatting color. See the below screenshot:
This comment was minimized by the moderator on the site
Hey
Nice macro. I used it to just count from a simple matrix. The problem is that the macro counts also empty cells. How to exclude empty cells from counting?
This comment was minimized by the moderator on the site
Hello, Kriss,
To count the cells based on font color excluding the blank cells, please apply the below User Defined Function, please try:

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
Application.Volatile
Dim rng As Range
For Each rng In pRange1
If rng.Value <> "" Then
If rng.Font.Color = pRange2.Font.Color Then
CountColour = CountColour + 1
End If
End If
Next
End Function
This comment was minimized by the moderator on the site
Exactly what I was looking for! This will save me lots of time. Thank You
This comment was minimized by the moderator on the site
Muito obrigada já ajudou muito, porém a minha formula só adiciona à soma outro número quando eu uso o pincel para mudar a cor, se eu trocar a cor da fonte pela barra de ferramenta não dá certo, alguém saber me explicar -
This comment was minimized by the moderator on the site
This was SO helpful - Thanks very much!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations