Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як підрахувати / підсумувати комірки за кольорами за умови умовного форматування в 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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    h_heathfield@yahoo.com.au · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    Rajendhar · 3 years ago
    Could you please teach me VBA codes I would like to learn VBA using excel sheet
  • To post as a guest, your comment is unpublished.
    tranvanlong.dne@gmail.com · 3 years ago
    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à tranvanlong.dne@gmail.com. Mình cám ơn.
  • To post as a guest, your comment is unpublished.
    falina · 3 years ago
    Hi,
    How do I modified the code for the cell contain conditional formatting? Because it count the background as "blank".


    Thanks.
    • To post as a guest, your comment is unpublished.
      Sunny · 3 years ago
      Sorry I have no idea about the VBA code.
  • To post as a guest, your comment is unpublished.
    Morton Wakeland · 6 years ago
    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
    • To post as a guest, your comment is unpublished.
      Naresh · 4 years ago
      hi


      kindly send the above VBA code same code is I need please help.