Passer au contenu principal

Comment compter / additionner les cellules par couleurs avec mise en forme conditionnelle dans Excel?

Dans Excel, vous pouvez colorer certaines cellules à l'aide de la mise en forme conditionnelle. Maintenant, ce didacticiel vous expliquera quelques méthodes pratiques et simples pour compter ou additionner rapidement les cellules par couleur avec une mise en forme conditionnelle dans Excel.

Compter les cellules par couleur de police et arrière-plan par VBA

Compter/sumer les cellules par couleur de police avec mise en forme conditionnelle par Kutools for Excel bonne idée3      jeux et sport

Compter/sumer les cellules par couleur d'arrière-plan avec mise en forme conditionnelle par Kutools for Excel bonne idée3      jeux et sport


flèche bleue bulle droite Compter les cellules par police et couleur d'arrière-plan par VBA

Dans Excel, seul le code VBA peut compter rapidement les cellules en fonction d'une police et d'une couleur d'arrière-plan spécifiques.

1. presse Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module et copiez et collez ci-dessous le code VBA dans le popping Module fenêtre.

VBA: compte les cellules en fonction d'une police et d'une couleur d'arrière-plan.

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. Cliquez Courir bouton ou appuyez sur F5 pour exécuter le code, puis sélectionnez la plage dont vous avez besoin dans la boîte de dialogue contextuelle. Voir la capture d'écran:
doc-count-by-condition-color-1

4. Cliquez OK, puis sélectionnez une cellule dont vous souhaitez compter les cellules en fonction de la police et de la couleur d'arrière-plan. Voir la capture d'écran:

doc-count-by-condition-color-2

5. Cliquez OK. Ensuite, une boîte de dialogue apparaît pour vous dire combien de cellules ont la même couleur d'arrière-plan et la même couleur de police que la cellule sélectionnée dans la plage.

doc-count-by-condition-color-3


flèche bleue bulle droite Compter/sumer les cellules par couleur de police avec mise en forme conditionnelle par Kutools for Excel

Dans Excel, vous ne pouvez pas compter ou additionner les cellules par couleur de police avec une mise en forme conditionnelle uniquement. Cependant, il existe un complément pratique appelé Kutools for Excel qui peut vous aider à résoudre rapidement ce problème grâce à son Compter par couleur fonction.

Kutools for Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. 

Après installation gratuite Kutools for Excel, procédez comme suit:

1. Sélectionnez une plage que vous souhaitez compter ou additionner les cellules par couleur de police avec mise en forme conditionnelle, puis cliquez sur Kutools Plus> Compter par couleur. Voir la capture d'écran:

doc-count-by-condition-color-4

2. Puis dans le Compter par couleur dialogue, sélectionnez Mise en forme conditionnelle sous Méthode de couleur liste et Fonte sous Type de couleur liste. Ensuite, vous pouvez afficher le résultat du comptage et de la somme dans la boîte de dialogue. Voir la capture d'écran:

doc-count-by-condition-color-5

Notes: Si vous souhaitez afficher le résultat du calcul sous forme de rapport, vous pouvez cliquer sur Générer un rapport iAu niveau de Compter par couleur boîte de dialogue, puis un rapport sera créé dans un nouveau classeur. Voir la capture d'écran:

doc-count-by-condition-color-6      doc-count-by-condition-color-7


Compter/sumer les cellules par couleur d'arrière-plan avec mise en forme conditionnelle par Kutools for Excel

Si vous souhaitez compter ou additionner les cellules par couleur d'arrière-plan avec mise en forme conditionnelle, vous pouvez également appliquer Compter par couleur utilité de Kutools for Excel.

1. Sélectionnez une plage que vous souhaitez compter ou additionner les cellules par couleur d'arrière-plan avec mise en forme conditionnelle, puis cliquez sur Kutools Plus > Compter par couleur.

Après installation gratuite Kutools for Excel, procédez comme suit:

2. Puis dans le Compter par couleur dialogue, sélectionnez Mise en forme conditionnelle sous Méthode de couleur liste et Contexte sous Type de couleur liste. Ensuite, vous pouvez afficher le résultat du comptage et de la somme dans la boîte de dialogue. Voir la capture d'écran:

doc-count-by-condition-color-8

Notes: Si vous souhaitez afficher le résultat du calcul sous forme de rapport, vous pouvez cliquer sur Générer un rapport dans l' Compter par couleur boîte de dialogue, puis un rapport sera créé dans un nouveau classeur. Voir la capture d'écran:

doc-count-by-condition-color-9

Cliquez ici pour en savoir plus sur le nombre par couleur.

Pointe.Avec Compter par couleur utilitaire, vous pouvez également compter/additionner/faire la moyenne des cellules par couleur d'arrière-plan ou couleur de police avec un formatage standard uniquement ou les deux avec un formatage standard et conditionnel. Si vous souhaitez appliquer Count by Color sans limitation dans 30 jours, s'il vous plaît télécharger et avoir un essai gratuit maintenant.


flèche bleue bulle droite Calculer les cellules par couleur de police ou couleur d'arrière-plan


Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
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