Hoppa till huvudinnehåll

Hur räknar / summerar celler efter färger med villkorlig formatering i Excel?

I Excel kan du färga vissa celler med villkorlig formatering. Nu kommer denna handledning att berätta några praktiska och enkla metoder för att snabbt räkna eller summera cellerna efter färg med villkorlig formatering i Excel.

Räkna celler efter teckensnittsfärg och bakgrund med VBA

Räkna / summera celler efter teckensnittsfärg med villkorlig formatering av Kutools för Excel bra idé3      lek

Räkna / summera celler efter bakgrundsfärg med villkorlig formatering av Kutools för Excel bra idé3      lek


pil blå höger bubbla Räkna celler efter typsnitt och bakgrundsfärg efter VBA

I Excel kan endast VBA-kod snabbt räkna celler baserat på ett specifikt typsnitt och bakgrundsfärg.

1. Tryck Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna och kopiera och klistra in under VBA-koden till poppningen Modulerna fönster.

VBA: Räkna celler baserat på ett teckensnitt och bakgrundsfärg.

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. klick Körning knappen eller tryck på F5 för att köra koden och välj sedan det intervall du behöver i poppdialogen. Se skärmdump:
doc-count-by-conditional-color-1

4. klick OKoch välj sedan en cell vars typsnitt och bakgrundsfärg du vill räkna cellerna baserat på. Se skärmdump:

doc-count-by-conditional-color-2

5. klick OK. Sedan dyker en dialog upp för att berätta hur många celler som har samma bakgrundsfärg och teckensnittsfärg med den valda cellen i intervallet.

doc-count-by-conditional-color-3


pil blå höger bubbla Räkna / summera celler efter teckensnittsfärg med villkorlig formatering av Kutools för Excel

I Excel kan du inte räkna eller summera cellerna efter teckensnittsfärg med endast villkorlig formatering. Det finns dock ett praktiskt tillägg som kallas Kutools för Excel som kan hjälpa dig att snabbt lösa problemet med dess Räkna efter färg särdrag.

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

Efter gratis installation Kutools för Excel, gör så här:

1. Välj ett område som du vill räkna eller summera cellerna efter teckensnittsfärg med villkorlig formatering och klicka sedan på Kutools Plus> Räkna efter färg. Se skärmdump:

doc-count-by-conditional-color-4

2. Sedan i Räkna efter färg dialogrutan, välj Villkorlig formatering under Färgmetod lista och Font under Färgtyp lista. Sedan kan du se resultatet av att räkna och summera i dialogrutan. Se skärmdump:

doc-count-by-conditional-color-5

Anmärkningar: Om du vill mata ut det beräknade resultatet som en rapport kan du klicka Skapa rapport in Räkna efter färg dialog kommer en rapport att byggas in i en ny arbetsbok. Se skärmdump:

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


Räkna / summera celler efter bakgrundsfärg med villkorlig formatering av Kutools för Excel

Om du vill räkna eller summera celler efter bakgrundsfärg med villkorlig formatering kan du också ansöka Räkna efter färg nytta av Kutools för Excel.

1. Välj ett område som du vill räkna eller summera celler efter bakgrundsfärg med villkorlig formatering och klicka sedan på Kutools Plus > Räkna efter färg.

Efter gratis installation Kutools för Excel, gör så här:

2. Sedan i Räkna efter färg dialogrutan, välj Villkorlig formatering under Färgmetod lista och Bakgrund under Färgtyp lista. Sedan kan du se resultatet av att räkna och summera i dialogrutan. Se skärmdump:

doc-count-by-conditional-color-8

Anmärkningar: Om du vill mata ut det beräknade resultatet som en rapport kan du klicka Generera rapport i Räkna efter färg dialog kommer en rapport att byggas in i en ny arbetsbok. Se skärmdump:

doc-count-by-conditional-color-9

Klicka här för mer information om Count by Color.

Tips.Med Räkna efter färg kan du också räkna/summa/genomsnitta cellerna efter bakgrundsfärg eller teckensnittsfärg med endast standardformatering eller både standardformatering och villkorlig formatering. Om du vill tillämpa Count by Color utan begränsning inom 30 dagar, vänligen ladda ner och få en gratis provperiod nu.


pil blå höger bubbla Beräkna celler efter teckensnittsfärg eller bakgrundsfärg


Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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