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

Як підрахувати / підсумувати комірки за кольорами за умови умовного форматування в Excel?

В Excel ви можете забарвити деякі комірки за допомогою умовного форматування. Тепер цей підручник розповість вам кілька зручних та простих методів швидкого підрахунку або підсумовування комірок за кольором за умови умовного форматування в Excel.

Підрахуйте клітинки за кольором шрифту та фоном за VBA

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

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


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

В Excel лише код VBA може швидко підрахувати комірки на основі певного шрифту та кольору тла.

1. прес Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі і скопіюйте та вставте нижче код 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 Plus> Підрахувати за кольором. Дивіться знімок екрана:

doc-count-by-conditional-color-4

2. Потім у Підрахувати за кольором діалог, виберіть Умовне форматування при Колірний метод список і шрифт при Тип кольору список. Потім ви можете переглянути результат підрахунку та підсумовування у діалоговому вікні. Дивіться знімок екрана:

doc-count-by-conditional-color-5

примітки: Якщо ви хочете вивести результат обчислення як звіт, ви можете натиснути Створити звіт iп Підрахувати за кольором діалогове вікно, тоді звіт буде вбудований у нову книгу. Дивіться знімок екрана:

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


Підрахунок/сума клітинок за кольором фону з умовним форматуванням за допомогою Kutools для Excel

Якщо ви хочете підрахувати або підсумувати клітинки за кольором фону за умови умовного форматування, ви також можете подати заявку Підрахувати за кольором корисність Kutools для Excel.

1. Виберіть діапазон, який потрібно підрахувати або підсумувати клітинки за кольором тла за умови умовного форматування, а потім клацніть Kutools Plus > Підрахувати за кольором.

після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.

2. Потім у Підрахувати за кольором діалог, виберіть Умовне форматування при Колірний метод список і фон при Тип кольору список. Потім ви можете переглянути результат підрахунку та підсумовування у діалоговому вікні. Дивіться знімок екрана:

doc-count-by-conditional-color-8

примітки: Якщо ви хочете вивести результат обчислення як звіт, ви можете натиснути Створити звіт в Підрахувати за кольором діалогове вікно, тоді звіт буде вбудований у нову книгу. Дивіться знімок екрана:

doc-count-by-conditional-color-9

Клацніть тут, щоб дізнатись більше про Підрахунок за кольором.

Порада.з Підрахувати за кольором ви також можете підраховувати/сумувати/усереднювати клітинки за кольором фону або кольором шрифту лише зі стандартним форматуванням або як стандартним, так і умовним форматуванням. Якщо ви хочете застосувати підрахунок за кольором без обмежень протягом 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 (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