Salt la conținutul principal

Cum se numără / se sumează celulele după culori cu formatare condiționată în Excel?

În Excel, puteți colora unele celule utilizând formatarea condiționată. Acum, acest tutorial vă va spune câteva metode la îndemână și ușoare pentru a număra sau însuma rapid celulele în funcție de culoare, cu formatarea condiționată în Excel.

Numărați celulele după culoarea fontului și fundalul după VBA

Numărați / sumați celulele după culoarea fontului cu formatarea condiționată de Kutools pentru Excel idee bună3      Joaca

Numărați / sumați celulele după culoarea fundalului cu formatarea condiționată de Kutools pentru Excel idee bună3      Joaca


săgeată albastru dreapta balon Numărați celulele după font și culoarea de fundal după VBA

În Excel, numai codul VBA poate număra rapid celulele pe baza unui anumit font și a unei culori de fundal.

1. presa Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Module și copiați și lipiți sub codul VBA în fereastra popping Module fereastră.

VBA: Numărați celulele pe baza unui font și a unei culori de fundal.

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. clic Alerga sau apăsați F5 pentru a rula codul, apoi selectați intervalul de care aveți nevoie în caseta de dialog popping. Vedeți captura de ecran:
doc-count-by-conditional-culoare-1

4. clic OK, apoi selectați o celulă al cărei font și culoare de fundal doriți să le numărați pe celule. Vedeți captura de ecran:

doc-count-by-conditional-culoare-2

5. clic OK. Apoi apare un dialog pentru a vă spune câte celule au aceeași culoare de fundal și aceeași culoare a fontului cu celula selectată din interval.

doc-count-by-conditional-culoare-3


săgeată albastru dreapta balon Numărați / sumați celulele după culoarea fontului cu formatarea condiționată de Kutools pentru Excel

În Excel, nu puteți număra sau însuma celulele în funcție de culoarea fontului numai cu formatarea condiționată. Cu toate acestea, există un add-in la îndemână numit Kutools pentru Excel care vă poate ajuta să rezolvați rapid această problemă cu Numără după culoare caracteristică.

Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. 

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. Selectați un interval pe care doriți să-l numărați sau să sumați celulele după culoarea fontului cu formatare condiționată, apoi faceți clic pe Kutools Plus> Numără după culoare. Vedeți captura de ecran:

doc-count-by-conditional-culoare-4

2. Apoi în Numără după culoare , selectați Formatarea condițională în Metoda culorii listă și Font în Tipul culorii listă. Apoi, puteți vedea rezultatul numărării și însumării în dialog. Vedeți captura de ecran:

doc-count-by-conditional-culoare-5

notițe: Dacă doriți să afișați rezultatul de calcul ca raport, puteți face clic Generați raportul in Numără după culoare , apoi va fi construit un raport într-un nou registru de lucru. Vedeți captura de ecran:

doc-count-by-conditional-culoare-6      doc-count-by-conditional-culoare-7


Numărați / sumați celulele după culoarea fundalului cu formatarea condiționată de Kutools pentru Excel

Dacă doriți să numărați sau să sumați celulele după culoarea de fundal cu formatare condiționată, puteți aplica și Numără după culoare utilitatea Kutools pentru Excel.

1. Selectați o gamă pe care doriți să o numărați sau să sumați celulele după culoarea de fundal cu formatare condiționată, apoi faceți clic pe Kutools Plus > Numără după culoare.

După instalare gratuită Kutools pentru Excel, faceți următoarele:

2. Apoi în Numără după culoare , selectați Formatarea condițională în Metoda culorii listă și Context în Tipul culorii listă. Apoi, puteți vedea rezultatul numărării și însumării în dialog. Vedeți captura de ecran:

doc-count-by-conditional-culoare-8

notițe: Dacă doriți să afișați rezultatul de calcul ca raport, puteți face clic Generează raport în Numără după culoare , apoi va fi construit un raport într-un nou registru de lucru. Vedeți captura de ecran:

doc-count-by-conditional-culoare-9

Faceți clic aici pentru mai multe despre Numărare după culoare.

Bacsis.cu Numără după culoare utilitar, puteți număra / suma / media celulelor după culoarea de fundal sau culoarea fontului numai cu formatarea standard sau ambele cu formatarea standard și condiționată. Dacă doriți să aplicați Count by Color fără limitare în 30 de zile, vă rugăm să descărcați și să aveți o încercare gratuită acum.


săgeată albastru dreapta balon Calculați celulele după culoarea fontului sau culoarea de fundal


Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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