Note: The other languages of the website are Google-translated. Back to English

Как подсчитать или суммировать ячейки на основе цветов шрифта в 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 и SUMBYFONTCOLOR функции, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

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

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

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

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

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


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

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

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 for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (52)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо! Это работает как чудо!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, когда я использую эту формулу, она постоянно выдает «Ошибка компиляции: должен быть первый оператор в строке», и она выделяет «Функция» в первой строке формулы. Помощь??
Этот комментарий был сведен к минимуму модератором на сайте
Возможно вы не вставили модуль, а скопировали код на экране после Alt+F11
Этот комментарий был сведен к минимуму модератором на сайте
Как мы делаем хорошо, чтобы получить доступ?
Этот комментарий был сведен к минимуму модератором на сайте
это работает очень хорошо и такая приятная функция. благодарю вас.
Этот комментарий был сведен к минимуму модератором на сайте
супер круто, мне очень помогло. если вы не возражаете, что я спрашиваю. когда я пробую это на цветном номере ячейки, на который влияет «Условное форматирование», кажется, что все числа отображаются как один цвет. есть ли способ заставить программу распознать, что цвет отличается.
Этот комментарий был сведен к минимуму модератором на сайте
Я использую очень похожий метод, но играю с МНОГОЦВЕТНЫМИ шрифтами... скажем [Только BOLD слово красное], скрестив пальцы, у вас есть мысль, как я могу этого добиться! Привет Эдди
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте, я продолжаю получать сообщение об ошибке «Обнаружено неоднозначное имя: SumByColor». Что я делаю не так?
Этот комментарий был сведен к минимуму модератором на сайте
Я получил это сообщение, когда попытался применить то же самое к другой электронной таблице. Когда вы перейдете к вставке модуля и скопируете его в текст, измените его на SumByColour (разное написание и обратите внимание, что в тексте есть два его экземпляра). Затем, когда я попытался использовать формулу во второй таблице, появилось новое написание, которое я выбрал, и теперь функция работает и в этой таблице. Я надеюсь, что это работает для вас, потому что я нахожу это чрезвычайно полезным для различных электронных таблиц, с которыми я работаю.
Этот комментарий был сведен к минимуму модератором на сайте
Превосходная работа! Спас ночь моей жены! Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
ЭТО сработало, спасибо. Но когда я сохраняю и закрываю лист, а затем снова открываю, он показывает (#Имя?) Я сохранил его (с поддержкой макросов)
Этот комментарий был сведен к минимуму модератором на сайте
Нажмите, чтобы включить макросы на желтой полосе в верхней части страницы, когда вы откроете документ, и ваши формулы вернутся. Надеюсь это поможет.
Этот комментарий был сведен к минимуму модератором на сайте
MYTawalbeh, у меня была такая же проблема. Вы должны сохранить книгу как книгу с поддержкой макросов, чтобы макрос копировался. В противном случае у вас по-прежнему будет ошибка, потому что макрос не копируется.
Этот комментарий был сведен к минимуму модератором на сайте
функция countcolor включает пробелы между ячейками определенного цвета. Можете ли вы это исправить? большое спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
большое спасибо ... нужна небольшая отладка, но я думаю, это потому, что ничто никогда не бывает шаблонным, то, что я сделал, чтобы исправить свои проблемы, может отличаться от того, что может понадобиться кому-то другому (в зависимости от версии и т. д.), но однажды Я вынул строку rem'd и убедился, что указываю на нужные поля и поле формата для сравнения, это сработало как шарм.
Этот комментарий был сведен к минимуму модератором на сайте
Я следовал вашим указаниям для подсчета, но в ячейках, которые у меня есть = CountColour (...), у меня есть ошибка #NAME. У меня есть несколько вкладок, поэтому я поместил код на лист, где я хочу его использовать, но я все равно получил ошибку, поэтому я поместил его в модуль. Что мне не хватает??
Этот комментарий был сведен к минимуму модератором на сайте
Нажмите кнопку Microsoft Office , а затем щелкните Параметры Excel. Щелкните Центр управления безопасностью, щелкните Параметры центра управления безопасностью, а затем щелкните Параметры макроса. Щелкните параметры, чтобы включить макрос
Этот комментарий был сведен к минимуму модератором на сайте
Привет, мне нужно подсчитать количество ячеек, выделенных оранжевым шрифтом, из диапазона ячеек B: B, если диапазон ячеек AB говорит «Вентура». Вышеупомянутое позволяет вам подсчитывать в соответствии с одним критерием, но не допускает второго - я пробовал, но у меня есть никогда раньше не писал макросы и не может заставить это работать. Срочно нужна помощь пожалуйста? Спасибо, Линн.
Этот комментарий был сведен к минимуму модератором на сайте
Сэр #имя ошибка аа рахи хай
Этот комментарий был сведен к минимуму модератором на сайте
Как сделать так, чтобы электронная таблица автоматически обновлялась? Если мои данные/цвет изменяются, сумма не обновляется до тех пор, пока я не выберу ячейку с формулой, не нажму F2, а затем не щелкну ячейку. Я хочу, чтобы мой лист автоматически обновлялся при изменении данных. Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Привет! Отлично работает, спасибо. Однако не работает для ячеек с более чем одним цветом. Можно ли обновить этот код, чтобы сделать это? Никки
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ подсчитать ячейки по цвету без Kutools?
Этот комментарий был сведен к минимуму модератором на сайте
Отлично читается и отлично работает, но может кто-нибудь, пожалуйста, скажите мне, как применить это к нескольким листам. Если кто-то может, это будет блестяще для того, что мне нужно, и будет действительно высоко оценено.
Этот комментарий был сведен к минимуму модератором на сайте
Отлично читается и отлично работает, однако кто-нибудь может объяснить, как я могу применить это к нескольким наборам листов ?? Любая идея будет высоко оценена, поэтому ура заранее.
Здесь еще нет комментариев
Загрузить ещё

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL