Перейти к основному содержанию

Как подсчитать или суммировать ячейки на основе цветов шрифта в Excel?

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

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

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

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


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

Считайте ячейки на основе цветов шрифта:

Чтобы рассчитать количество ячеек с определенными цветами шрифта, выполните следующие действия:

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код 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. После ввода формулы нажмите Enter key, и вы получите количество ячеек с красным шрифтом. Если вы хотите подсчитать ячейки с другим цветом шрифта, введите формулу по мере необходимости несколько раз. Вы получите следующие результаты:


Суммировать ячейки на основе цветов шрифта:

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

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код 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, Затем нажмите Enter key, и вы добавите все ячейки с красными цветами шрифта. Если вы хотите суммировать ячейки с другим цветом шрифта, введите формулу несколько раз. Вы получите следующий результат:


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

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

Советы:Чтобы применить это COUNTBYFONTCOLOR и СУМБИШРИФТ функции, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

После установки Kutools for Excel, пожалуйста, сделайте так:

Считайте ячейки на основе цветов шрифта:

1. Щелкните ячейку, в которую вы хотите поместить результат подсчета, а затем щелкните Кутулс > Kutools Функции > Статистические и математические > COUNTBYFONTCOLOR, см. снимок экрана:

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

3. А затем нажмите OK , вы получите первый результат подсчета, чтобы получить другие результаты, вам просто нужно скопировать эту формулу и изменить ссылки на ячейки в соответствии с вашими потребностями. Смотрите скриншот:


Суммировать ячейки на основе цветов шрифта:

1. Щелкните ячейку, в которую вы хотите поместить результат подсчета, а затем щелкните Кутулс > Kutools Функции > Статистические и математические > СУМБИШРИФТ, см. снимок экрана:

2. В Аргументы функций В диалоговом окне укажите диапазон данных и ячейку индекса цвета, которые вы хотите суммировать по цвету шрифта, см. снимок экрана:

3. А затем нажмите OK , вы получите результат первой суммы, чтобы получить другие результаты, вам просто нужно скопировать эту формулу и изменить ссылки на ячейки в соответствии с вашими потребностями. Смотрите скриншот:

Нажмите, чтобы загрузить Kutools for Excel и бесплатную пробную версию сейчас!


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

Kutools for Excel также предоставляет простую функцию - Считать по цветуС помощью этой утилиты вы можете быстро получить результат вычисления, такой как количество, сумма, среднее значение ячеек и т. д., по цвету фона, цвету шрифта, условному форматированию по вашему желанию.

Советы:Чтобы применить это Считать по цвету функция, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

После установки Kutools for Excel, пожалуйста, сделайте так:

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

2. Нажмите Кутулс Плюс> Считать по цвету, см. снимок экрана:

3. В Считать по цвету диалоговое окно, выберите Стандартное форматирование из Цветовой метод раскрывающийся список и выберите шрифт под Тип подсчета раскрывающийся список, и ячейки с одинаковыми цветами шрифта были подсчитаны, суммированы, усреднены и т. д., см. снимок экрана:

4, Затем нажмите Создать отчет кнопку, вы получите статистику в новой книге. Смотрите скриншот:

Нажмите, чтобы загрузить Kutools for Excel и бесплатную пробную версию сейчас!


Другие статьи:

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

Подсчет или суммирование ячеек на основе шрифта / фона / цвета условного форматирования:

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

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 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