Gå til hovedindhold

Hvordan tælles / summeres celler efter farver med betinget formatering i Excel?

I Excel kan du farve nogle celler ved hjælp af betinget formatering. Nu fortæller denne tutorial dig nogle praktiske og nemme metoder til hurtigt at tælle eller summere cellerne efter farve med betinget formatering i Excel.

Tæl celler efter skriftfarve og baggrund af VBA

Tæl / sum celler efter skriftfarve med betinget formatering af Kutools til Excel god idé3      leg

Tæl / sum celler efter baggrundsfarve med betinget formatering af Kutools til Excel god idé3      leg


pil blå højre boble Tæl celler efter skrifttype og baggrundsfarve efter VBA

I Excel kan kun VBA-kode hurtigt tælle celler baseret på en bestemt skrifttype og baggrundsfarve.

1. Trykke Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler og kopier og indsæt under VBA-koden til poppet Moduler vindue.

VBA: Tæl celler baseret på en skrifttype og baggrundsfarve.

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. klik Kør knappen eller tryk på F5 nøgle for at køre koden, og vælg derefter det interval, du har brug for, i poppedialogen. Se skærmbillede:
doc-count-by-conditional-color-1

4. klik OK, vælg derefter en celle, hvis skrifttype og baggrundsfarve du vil tælle cellerne baseret på. Se skærmbillede:

doc-count-by-conditional-color-2

5. klik OK. Derefter dukker en dialog ud for at fortælle dig, hvor mange celler der har samme baggrundsfarve og skrifttypefarve med den valgte celle i området.

doc-count-by-conditional-color-3


pil blå højre boble Tæl / sum celler efter skriftfarve med betinget formatering af Kutools til Excel

I Excel kan du ikke tælle eller summere cellerne efter skriftfarve med kun betinget formatering. Der er dog en praktisk tilføjelse kaldet Kutools til Excel der kan hjælpe dig med hurtigt at løse dette problem med dets Tæl efter farve funktion.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

1. Vælg et område, du vil tælle, eller summer cellerne efter skriftfarve med betinget formatering, og klik derefter på Kutools Plus> Tæl efter farve. Se skærmbillede:

doc-count-by-conditional-color-4

2. Derefter i Tæl efter farve dialog, vælg Betinget formatering under Farvemetode liste og font under Farvetype liste. Derefter kan du se resultatet af optælling og opsummering i dialogen. Se skærmbillede:

doc-count-by-conditional-color-5

Bemærk: Hvis du vil sende det beregnede resultat som en rapport, kan du klikke på Generer rapport in Tæl efter farve dialog, så bygges en rapport i en ny projektmappe. Se skærmbillede:

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


Tæl / sum celler efter baggrundsfarve med betinget formatering af Kutools til Excel

Hvis du vil tælle eller summere celler efter baggrundsfarve med betinget formatering, kan du også anvende Tæl efter farve nytte af Kutools til Excel.

1. Vælg et område, du vil tælle, eller summer celler efter baggrundsfarve med betinget formatering, og klik derefter på Kutools Plus > Tæl efter farve.

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

2. Derefter i Tæl efter farve dialog, vælg Betinget formatering under Farvemetode liste og Baggrund under Farvetype liste. Derefter kan du se resultatet af optælling og opsummering i dialogen. Se skærmbillede:

doc-count-by-conditional-color-8

Bemærk: Hvis du vil sende det beregnede resultat som en rapport, kan du klikke på Generer rapport i Tæl efter farve dialog, så bygges en rapport i en ny projektmappe. Se skærmbillede:

doc-count-by-conditional-color-9

Klik her for mere om Count by Color.

Tip.Med Tæl efter farve værktøj, kan du også tælle/summe/gennemsnitte cellerne efter baggrundsfarve eller skriftfarve med kun standardformatering eller både standard og betinget formatering. Hvis du ønsker at anvende Count by Color uden begrænsning inden for 30 dage, download venligst og få en gratis prøveperiode nu.


pil blå højre boble Beregn celler efter skrifttypefarve eller baggrundsfarve


Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver 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