Прескочи на основното съдържание

Как да броим/сумираме клетки по цветове с условно форматиране в Excel?

Автор: Слънце Последна промяна: 2020-05-08

В Excel можете да оцветите някои клетки, като използвате условно форматиране. Сега този урок ще ви каже някои удобни и лесни методи за бързо преброяване или сумиране на клетките по цвят с условно форматиране в Excel.

Преброяване на клетки по цвят на шрифта и фон от VBA

Преброяване/сумиране на клетки по цвят на шрифта с условно форматиране от Kutools за Excel добра идея3      играя

Преброяване/сумиране на клетки по цвят на фона с условно форматиране от Kutools за Excel добра идея3      играя


стрелка син десен балон Преброяване на клетки по шрифт и цвят на фона от VBA

В Excel само VBA код може бързо да преброи клетки въз основа на конкретен шрифт и цвят на фона.

1. Натиснете Alt + F11 бутони за отваряне Microsoft Visual Basic за приложения прозорец.

2. кликване Поставете > Модули и копирайте и поставете под VBA кода в изскачащия Модули прозорец.

VBA: Преброяване на клетки въз основа на шрифт и цвят на фона.

Sub DisplayFormatCount()
	'Updateby20150305
	Dim Rng As Range
	Dim CountRange As Range
	Dim ColorRange As Range
	Dim xBackColor As Long
	Dim xFontColor As Long
	On Error Resume Next
	xTitleId       = "KutoolsforExcel"
	Set CountRange = Application.Selection
	Set CountRange = Application.InputBox("Count Range :", xTitleId, CountRange.Address, Type: = 8)
	Set ColorRange = Application.InputBox("Color Range(single cell):", xTitleId, Type: = 8)
	Set ColorRange = ColorRange.Range("A1")
	xReturn        = 0
	For Each Rng In CountRange
		qqq           = Rng.Value
		xxx           = Rng.DisplayFormat.Interior.Color
		If Rng.DisplayFormat.Interior.Color = ColorRange.DisplayFormat.Interior.Color Then
			xBackColor   = xBackColor + 1
		End If
		If Rng.DisplayFormat.Font.Color = ColorRange.DisplayFormat.Font.Color Then
			xFontColor = xFontColor + 1
		End If
	Next
	MsgBox "BackColor is " & xBackColor & Chr(10) & "FontColor is " & xFontColor
End Sub

3. кликване бягане бутон или натиснете F5 за да стартирате кода, след което изберете диапазона, от който се нуждаете, в изскачащия диалогов прозорец. Вижте екранна снимка:
doc-count-by-conditional-color-1

4. кликване OK, след това изберете клетка, чийто шрифт и цвят на фона искате да преброите клетките въз основа на. Вижте екранна снимка:

doc-count-by-conditional-color-2

5. кликване OK. След това се появява диалогов прозорец, за да ви каже колко клетки имат същия цвят на фона и цвят на шрифта с избраната клетка в диапазона.

doc-count-by-conditional-color-3


стрелка син десен балон Преброяване/сумиране на клетки по цвят на шрифта с условно форматиране от Kutools за Excel

В Excel не можете да броите или сумирате клетките по цвят на шрифта само с условно форматиране. Въпреки това има удобна добавка, наречена Kutools за Excel който може да ви помогне бързо да разрешите този проблем със своя Брой по цвят функция.

Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. 

След безплатно инсталиране Kutools за Excel, моля, направете следното:

1. Изберете диапазон, който искате да преброите, или сумирайте клетките по цвят на шрифта с условно форматиране, след което щракнете върху Kutools плюс> Брой по цвят. Вижте екранна снимка:

doc-count-by-conditional-color-4

2. След това в Брой по цвят диалогов прозорец, изберете Условно форматиране под Цветен метод списък и Font под Тип цвят списък. След това можете да видите резултата от преброяването и сумирането в диалоговия прозорец. Вижте екранна снимка:

doc-count-by-conditional-color-5

Забележка: Ако искате да изведете резултата от изчислението като отчет, можете да щракнете Генериране на отчет iN на Брой по цвят диалогов прозорец, тогава отчетът ще бъде изграден в нова работна книга. Вижте екранна снимка:

doc-count-by-conditional-color-6      doc-count-by-conditional-color-7


Преброяване/сумиране на клетки по цвят на фона с условно форматиране от Kutools за Excel

Ако искате да преброите или сумирате клетки по цвят на фона с условно форматиране, можете също да приложите Брой по цвят полезност на Kutools за Excel.

1. Изберете диапазон, който искате да преброите или сумирате клетки по цвят на фона с условно форматиране, след което щракнете Kutools плюс > Брой по цвят.

След безплатно инсталиране Kutools за Excel, моля, направете следното:

2. След това в Брой по цвят диалогов прозорец, изберете Условно форматиране под Цветен метод списък и История под Тип цвят списък. След това можете да видите резултата от преброяването и сумирането в диалоговия прозорец. Вижте екранна снимка:

doc-count-by-conditional-color-8

Забележка: Ако искате да изведете резултата от изчислението като отчет, можете да щракнете Генериране на отчет в Брой по цвят диалогов прозорец, тогава отчетът ще бъде изграден в нова работна книга. Вижте екранна снимка:

doc-count-by-conditional-color-9

Щракнете тук за повече информация относно броя по цвят.

Бакшиш.с Брой по цвят можете също така да преброите/сумирате/усредните клетките по цвят на фона или цвят на шрифта само със стандартно форматиране или и двете със стандартно и условно форматиране. Ако искате да приложите Броене по цвят без ограничение за 30 дни, моля, изтеглете и получете безплатен пробен период сега.


стрелка син десен балон Изчислете клетки по цвят на шрифта или цвят на фона


Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,

This is a great piece of VBA and works perfectly. Are you able to modify this code to make it a function and then be used as a formula?

e.g.
=DisplayFormatCount(A14:E14,A2,False) for counting background colour (Count Range, Colour Match Cell, type)

=DisplayFormatCount(C29:D29,A2,True) for counting font colour

I would like to you something like this for an input form of many tables and validation fields that are compulsory. I would then be able to count how many fields that have not been completed correctly.


Cheers
This comment was minimized by the moderator on the site
Could you please teach me VBA codes I would like to learn VBA using excel sheet
This comment was minimized by the moderator on the site
Chào bạn.

VBA đếm ô màu rất hay, tuy nhiên bạn có thể sửa giúp mình để kết quả không hiện thành msg box mà hiện luôn trên ô excel chỉ định được không? thêm cả hàm sum, average nữa thì càng tốt :D . Mail của mình là . Mình cám ơn.
This comment was minimized by the moderator on the site
Hi,
How do I modified the code for the cell contain conditional formatting? Because it count the background as "blank".


Thanks.
This comment was minimized by the moderator on the site
Sorry I have no idea about the VBA code.
This comment was minimized by the moderator on the site
May I congratulate you on a most easily understood and well written VBA program to perform such a simple task - i.e., count the number of cells with a specific color derived from Conditional Formatting. It beats the pants of the monster program by Pearson, and his does not even work, at least in Excel 2013. Nor do other supposed counting programs work that I have tried. Yours is the only one!! This worked perfectly. Thank you, thank you, thank you. Best Holiday Wishes, Mort in Dallas
This comment was minimized by the moderator on the site
hi


kindly send the above VBA code same code is I need please help.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations