Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment compter et additionner des cellules en fonction de la couleur d'arrière-plan dans Excel?

Supposons que vous disposiez d'une plage de cellules avec différentes couleurs d'arrière-plan, telles que le rouge, le vert, le bleu, etc., mais vous devez maintenant compter combien de cellules de cette plage ont une certaine couleur d'arrière-plan et faire la somme des cellules colorées avec la même couleur. . Dans Excel, il n’existe pas de formule directe pour calculer la somme et le nombre de cellules de couleur, je vais vous présenter ici quelques façons de résoudre ce problème.

Compter et additionner les cellules en fonction de la couleur de remplissage spécifique par filtre et sous-total

Comptage et somme de cellules en fonction d'une couleur de remplissage spécifique par la fonction GET.CELL

Compter et additionner les cellules en fonction de la couleur de remplissage spécifique avec la fonction définie par l'utilisateur

Compter et additionner des cellules en fonction d'une couleur de remplissage spécifique avec les fonctions Kutools

Compter et additionner des cellules en fonction d'une couleur de remplissage spécifique (ou d'une couleur de mise en forme conditionnelle) avec Kutools for Excel

Un clic pour compter, additionner et faire la moyenne des cellules colorées dans Excel

Avec l'excellent Compter par couleur caractéristique de Kutools for Excel, vous pouvez rapidement compter, faire la somme et la moyenne des cellules selon la couleur de remplissage ou la couleur de police spécifiées en un seul clic dans Excel. En outre, cette fonctionnalité permettra également de connaître les valeurs maximales et minimales des cellules par la couleur de remplissage ou la couleur de police. Fonctionnalité complète Essai gratuit 30-day!
nombre d'annonces par couleur 2


Compter et additionner les cellules colorées par filtre et sous-total

Supposons que nous ayons un tableau de vente de fruits comme ci-dessous, capture d'écran, et nous allons compter ou additionner les cellules colorées dans la colonne Quantité. Dans ce cas, nous pouvons filtrer la colonne Montant par couleur, puis compter ou additionner facilement les cellules colorées filtrées par la fonction SOUS-TOTAL dans Excel.

1. Sélectionnez des cellules vierges pour accéder à la fonction SOUS-TOTAL.

  1. Pour compter toutes les cellules avec la même couleur d’arrière-plan, veuillez saisir la formule. = SOUS-TOTAL (102, E2: E20);
  2. Pour additionner toutes les cellules avec la même couleur d’arrière-plan, veuillez entrer la formule. = SOUS-TOTAL (109, E2: E20);


Note: Dans les deux formules, E2: E20 est la colonne Montant contenant les cellules colorées. Vous pouvez les modifier à votre guise.

2. Sélectionnez l'en-tête de la table, puis cliquez sur Data > Filtre. Voir la capture d'écran:

3. Cliquez sur l'icône Filtre dans la cellule d'en-tête de la colonne Montant, puis cliquez sur Filtrer par couleur et vous compterez successivement la couleur spécifiée. Voir la capture d'écran:

Après le filtrage, les deux formules SOUS-TOTAL comptent et additionnent automatiquement toutes les cellules de couleur filtrées de la colonne Quantité. Voir la capture d'écran:

Note: Cette méthode nécessite que les cellules colorées que vous comptez ou que votre somme soit dans la même colonne.


Compter ou somme des cellules colorées par la fonction GET.CELL

Dans cette méthode, nous allons créer une plage nommée avec la fonction GET.CELL, obtenir le code de couleur des cellules, puis compter ou additionner facilement par le code de couleur dans Excel. Veuillez faire comme suit:

1. Cliquez Formules > Définir le nom. Voir la capture d'écran:

2. Dans la boîte de dialogue Nouveau nom, procédez comme suit:
(1) Tapez un nom dans la zone Nom.
(2) Entrez la formule = GET.CELL (38, Sheet4! $ E2) dans la case Fait référence à (noter: dans la formule, 38 signifie renvoyer le code de la cellule, et Sheet4! $ E2 est la première cellule de la colonne Montant, à l'exception de l'en-tête de colonne que vous devez modifier en fonction des données de votre table.)
(3) Cliquez sur le OK .

3. Ajoutez maintenant une nouvelle colonne Couleur directement dans la table d'origine. Ensuite tapez la formule = NumColor et faites glisser la poignée de saisie automatique pour appliquer la formule aux autres cellules de la colonne Couleur. Voir la capture d'écran:
Note: Dans la formule, NumColor est la plage nommée que nous avons spécifiée dans les premières étapes de 2. Vous devez le changer pour le nom spécifié que vous avez défini.

Le code de couleur de chaque cellule de la colonne Montant est maintenant affiché dans la colonne Couleur. Voir la capture d'écran:

4. Copiez et répertoriez la couleur de remplissage dans une plage vide de la feuille de calcul active et tapez les formules à côté, comme indiqué ci-dessous:
A. Pour compter les cellules par couleur, veuillez entrer la formule = COUNTIF ($ F $ 2: $ F $ 20, NumColor);
B. Pour additionner les cellules par couleur, veuillez entrer la formule = SUMIF ($ F $ 2: $ F $ 20, NumColor, $ E $ 2: $ E $ 20).

Note: Dans les deux formules, $ F $ 2: $ F $ 20 est la colonne de couleur, NumColor est la plage nommée spécifiée, $ E $ 2: $ E $ 20 est la colonne Montant et vous pouvez les modifier selon vos besoins.

Vous verrez maintenant que les cellules de la colonne Montant sont comptées et additionnées en fonction de leurs couleurs de remplissage.


Compter et additionner les cellules en fonction de la couleur de remplissage spécifique avec la fonction définie par l'utilisateur


En supposant que les cellules colorées se dispersent dans une plage telle que celle illustrée ci-dessous, les deux méthodes ci-dessus ne peuvent ni compter ni additionner les cellules colorées. Ici, cette méthode introduira un VBA pour résoudre le problème.

1. Maintenez le ALT + F11 clés, et il ouvre la Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans la fenêtre du module.

VBA: Compter et additionner les cellules en fonction de la couleur de fond:

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function

3. Enregistrez ensuite le code et appliquez la formule suivante:
A. Compter les cellules colorées: = fonction de couleur (A, B: C, FALSE)
B. Faites la somme des cellules colorées: = fonction de couleur (A, B: C, TRUE)

Note: Dans les formules ci-dessus, A est la cellule avec la couleur de fond particulière que vous voulez calculer le nombre et la somme, et AVANT JC est la plage de cellules où vous souhaitez calculer le nombre et la somme.

4. Prenez la capture d'écran suivante par exemple, entrez la formule= fonction de couleur (A1, A1: D11, FALSE) compter les cellules jaunes. Et utilisez la formule = fonction de couleur (A1, A1: D11, TRUE) pour additionner les cellules jaunes. Voir la capture d'écran:

5. Si vous voulez compter et additionner d'autres cellules colorées, répétez l'étape 4. Ensuite, vous obtiendrez les résultats suivants:


Compter et additionner des cellules en fonction d'une couleur de remplissage spécifique avec les fonctions Kutools

Kutools for Excel prend également en charge certaines fonctions utiles pour aider les utilisateurs d'Excel à effectuer des calculs spéciaux, ainsi que compter par couleur de fond de cellule, somme par couleur de police, etc.

Kutools for Excel - Comprend plus que des outils pratiques 300 pour Excel. Fonctionnalité complète d'essai gratuit 30-day, aucune carte de crédit requise! Get It Now

1. Sélectionnez la cellule vide dans laquelle vous placez les résultats du comptage et cliquez sur Kutools > Fonctions de Kutools > Statistiques et mathématiques > COUNTBYCELLCOLOR. Voir la capture d'écran:

2. Dans la boîte de dialogue Arguments de la fonction, spécifiez la plage dans laquelle les cellules colorées seront comptées. Référence sélectionnez la cellule remplie par la couleur d'arrière-plan spécifiée dans le champ Color_index_nr boîte, et cliquez sur le OK bouton. Voir la capture d'écran:

À noter :
(1) Vous pouvez également taper la fonction Kutools spécifiée. = COUNTBYCELLCOLOR ($ A $ 1: $ E $ 20, G2) dans la cellule vide ou la barre de formule directement pour obtenir les résultats de comptage;
(2) Cliquez sur Kutools > Fonctions de Kutools > Statistiques et mathématiques > SUMBYCELLCOLOR ou tapez = SUMBYCELLCOLOR ($ A $ 1: $ E $ 20, G2) dans la cellule vide directement pour additionner les cellules en fonction de la couleur d'arrière-plan spécifiée.
Appliquer le COUNTBYCELLCOLOR et SUMBYCELLCOLOR fonctions pour chaque couleur de fond séparément, et vous obtiendrez les résultats comme ci-dessous capture d'écran:

Fonctions de Kutools contient un certain nombre de fonctions intégrées pour aider les utilisateurs d’Excel à calculer facilement, notamment: Nombre / Somme / Nombre moyen de cellules visibles, Compte / somme par couleur de cellule, Count / Sum par couleur de police, Compter les caractères, Compter par police gras, Etc. Avoir un essai gratuit!


Cellules Count et Sum basées sur la couleur de remplissage spécifique avec Kutools for Excel

Avec la fonction définie par l'utilisateur ci-dessus, vous devez entrer la formule une par une, s'il y a beaucoup de couleurs différentes, cette méthode sera fastidieuse et longue. Mais si vous avez Kutools for Excel's Compter par couleur utilitaire, vous pouvez générer rapidement un rapport des cellules colorées. Vous pouvez non seulement compter et additionner les cellules colorées, mais aussi obtenir les valeurs moyennes, max et min de la gamme colorée.

Kutools for Excel - Comprend plus que des outils pratiques 300 pour Excel. Fonctionnalité complète d'essai gratuit 30-day, aucune carte de crédit requise! Get It Now

1. Sélectionnez la plage que vous souhaitez utiliser, puis cliquez sur Kutools Plus > Compter par couleur, voir capture d'écran:

2. Et dans le Compter par couleur boîte de dialogue, veuillez faire comme ci-dessous la capture d'écran montrée:
(1) Sélectionnez Formatage standard du Méthode de couleur la liste déroulante;
(2) Sélectionnez Contexte du Type de compte la liste déroulante.
(3) Cliquez sur le bouton Générer un rapport.

Note: Pour compter et additionner les cellules colorées selon une couleur de mise en forme conditionnelle spécifique, sélectionnez Mise en forme conditionnelle du Méthode de couleur liste déroulante dans la boîte de dialogue ci-dessus, ou sélectionnez Formatage standard et conditionnel dans la liste déroulante pour compter toutes les cellules remplies par la couleur spécifiée.

Vous allez maintenant obtenir un nouveau classeur avec les statistiques. Voir la capture d'écran:

Le Compter par couleur fonction calcule (Nombre, Somme, Moyenne, Max, etc.) les cellules par couleur d'arrière-plan ou couleur de police. Avoir un essai gratuit!


Article connexe:

Comment compter / sommer des cellules en fonction des couleurs de police dans Excel?


Démo: Comptez et additionnez les cellules en fonction de l'arrière-plan, de la couleur de mise en forme conditionnelle:

Kutools for Excel comprend plus que des outils pratiques 300 pour Excel, gratuit à essayer sans limitation dans les jours 30. Téléchargez et testez maintenant!

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe Créer une liste de diffusion et envoyer des emails ...
  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus que de puissantes fonctionnalités 300. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit du jour 30.
kte tab 201905

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

  • Activer l'édition par onglets et la lecture 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 le nombre de clics de souris pour vous chaque jour!
fond officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Mori · 9 months ago
    I copied and paste but calculation result is "0" why?? I am using Office 2016.
  • To post as a guest, your comment is unpublished.
    Troy Havard · 10 months ago
    I've copied and pasted as stated and have used this formula for over a year but recently saved the workbook to a new name and now the function doesn't work! I can't figure out what the deal is and I'm losing hair and sleep over it! Loading the original workbook, the formula works like a charm but going back to the new one, it doesn't! I've loaded VBA and tried re-creating the function but it doesn't work. Using Office 2019 - any help appreciated.
    • To post as a guest, your comment is unpublished.
      Jku · 9 months ago
      #NAME clearly indicates some keyword is not used in 2019, say, Interior.ColorIndex. Try to figure out changing the code from minimum lines to the full by adding one by one or search for the keywords in Excel/VBA in 2019
    • To post as a guest, your comment is unpublished.
      Troy Havard · 10 months ago
      I should probably have also noted that I get a #NAME? error in the cell in which I try to use the function.
  • To post as a guest, your comment is unpublished.
    Karolin · 11 months ago
    works fine, except it does not update the value in the totals when i change a cell to a diffrent colour. i have to click in the totals cell again to trigger a recount. Any Ideas how to fix this?
    • To post as a guest, your comment is unpublished.
      Arnier Hamz · 10 months ago
      Same here, i tried Ctrl+Alt+F9 or Ctrl+Shift+Alt+F9 to recalculate all formula and it works
  • To post as a guest, your comment is unpublished.
    Aaron · 1 years ago
    This doesn't work at all. It's total BS.
  • To post as a guest, your comment is unpublished.
    Schmingy · 1 years ago
    I was experiencing issues when attempting to use this function as-is to count/sum the lighter (pastel?) colors, at least in Excel 2016. Some debugging led me to realize that the range of "ColorIndex" values is quite limited, and the function above fails to distinguish between light yellow and light orange, reading both as ColorIndex = 19.

    Using the "Color" attribute, instead (as in "lCol = rColor.Interior.Color" and the two instances of "If rCell.Interior.Color = lCol Then", per the sample code above), resolved the issue.
  • To post as a guest, your comment is unpublished.
    Hredoy · 1 years ago
    i want to colour in excel by using if function.
  • To post as a guest, your comment is unpublished.
    Keerthi · 1 years ago
    Fix your formula, its not "=colorfunction(A,B:C,FALSE)", but "=colorfunction(A;B:C;FALSE)" its a semi-colon, not a comma.
    • To post as a guest, your comment is unpublished.
      Slegnor · 1 years ago
      I get an error when using ; but using, calculates fine?
  • To post as a guest, your comment is unpublished.
    Don Sison · 1 years ago
    This is useful for counting cells with a specific colour. How do you count all cells with any colour?
  • To post as a guest, your comment is unpublished.
    Ashwin · 1 years ago
    Its work for me but does not get Auto refreshed - evey time i have to come back to cell and press enter. Any reason ?
  • To post as a guest, your comment is unpublished.
    Bobo · 1 years ago
    I have a few merged cells in the range, and the formula calculates the count of each cell within merged cell. I need count of each merged cell as 1. Waiting for some help.
  • To post as a guest, your comment is unpublished.
    Paul · 1 years ago
    I had the #NAME Error but I realised that it was because I was spelling COLOR as Colour (UK English Spelling). It worked after I change the spelling.
  • To post as a guest, your comment is unpublished.
    Oana · 1 years ago
    I tried to use this formula in a pivot table (and in a normal excel table) where I've applied conditional formatting to color the cells and it's not working. Do you know why and how can I fix this?
    Thanks!
  • To post as a guest, your comment is unpublished.
    Will · 1 years ago
    I copied and pasted this code into the module screen but when I went back to the spreadsheet, the ColorFunction only returned the #NAME? error. What am I doing wrong? I have Microsoft Excel for Mac version 15.41.
    • To post as a guest, your comment is unpublished.
      Arjun · 1 years ago
      I used the Code and it was working fine till now. Suddenly it has stopped working. This is a very useful tool for me. Kindly help.
    • To post as a guest, your comment is unpublished.
      amohuanna · 1 years ago
      Did you check the range value and cell that contains the desired color?
    • To post as a guest, your comment is unpublished.
      kasim · 1 years ago
      Please this VBA with the name of MY FUNCTION save as add in format(type). Then you can solve that problem.
      • To post as a guest, your comment is unpublished.
        Andrew Carpenter · 1 years ago
        I'm having this same problem, and unfortunately this answer makes absolutely zero sense in the English language. If anyone is able to suggest a translation, I'd be very interested in hearing it. Thanks.
        • To post as a guest, your comment is unpublished.
          Erin · 1 years ago
          The module & function can't have the same name. Change your module name to Color_Function instead of ColorFunction.
  • To post as a guest, your comment is unpublished.
    Jelena · 1 years ago
    Hi


    after applying range we need it jums back to VBA and says Ambiguous name detected: ColourFunction

    can you please help?
  • To post as a guest, your comment is unpublished.
    Kcc C · 2 years ago
    this doesn't work if you change the colors in the cells: so if you change yellow to red or yellow to blank, it doesn't change the count. if you add/create new colored cells then yes it updates the count, but if you change the color of a cell that has already been counted, then the count will not update.
    • To post as a guest, your comment is unpublished.
      Penny · 1 years ago
      if you go back in the cell text with the formula for summing or counting and hit enter, it will recalculate. Just have to remember to do that when changing colors on the range cells.
      • To post as a guest, your comment is unpublished.
        Tim · 1 years ago
        Is there a way to auto-calculate? going into each cell and hitting enter each time colors change is extremely tedious.
  • To post as a guest, your comment is unpublished.
    Casey · 2 years ago
    This has been so useful! Thanks very much for your help
  • To post as a guest, your comment is unpublished.
    Carolyn · 2 years ago
    The =colorfunction WAS working great for me ... got everything as I wanted it to work and then copied the sheet repeatedly ... then around the 10th copied sheet the formula stopped working ... what did I do wrong? How do I fix it?
  • To post as a guest, your comment is unpublished.
    luisa · 2 years ago
    hey, we used the colorfunction and it works fine, however as soon as we close the sheet and open it again the next day, we have to copy+paste+save it all over again, is there any way to save so it will always be there? we save the sheet in a folder that's shared within many computers. Thanks!
    • To post as a guest, your comment is unpublished.
      Tim · 2 years ago
      Luisa,
      When you open VBA, you have VBAProject (sheet1) its the place for makros for THIS SHEET. But you also have VBA Projects (PERSONAL.XLSB). Add module in PERSONAL and paste this makro there. This way you will have function avialable in every file on your computer.
      Im not sure but probably you dont have this PRESONAL.XLSB automaticly, you need to create it.
      Probably not the the fastest way but : click record macro, window will apear where you put name (whatever), shortcut (whatever) and place to store makro (chose personal macros sheet). Click ok, record any makro (puting 1 in cell A1), stop recording. Now you should have PERSONAL.XLSB in the list.
      Hope it works and helps :)
  • To post as a guest, your comment is unpublished.
    Justin · 2 years ago
    This works great unless you are trying to count colors from conditional formatting. Has anybody figured out how to solve that one?
    • To post as a guest, your comment is unpublished.
      Alex · 1 years ago
      Have you found a solution to this? I am trying to do the same thing but like you said, it does not work with conditional formatting.
  • To post as a guest, your comment is unpublished.
    Carly Strang · 2 years ago
    This doesn't differentiate between similar colours, so I changed it so it calls the HEX value of the colour instead:

    Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean) As Variant
    Dim rCell As Range
    Dim lCol As Variant
    Dim vResult As Variant
    lCol = rColor.Interior.Color
    If SUM = True Then
    For Each rCell In rRange
    If rCell.Interior.Color = lCol Then
    vResult = WorksheetFunction.SUM(rCell, vResult)
    End If
    Next rCell
    Else For Each rCell In rRange
    If rCell.Interior.Color = lCol Then
    vResult = 1 + vResult
    End If
    Next rCell
    End If
    ColorFunction = vResult
    End Function

    Just remember when applying the formula that A cell of the colour you are looking for and B:C is the range to look in. Also, remember that excel can sometimes not auto-update any change to the cell so you might have to manually do it (or write a function ;-)
  • To post as a guest, your comment is unpublished.
    manali · 2 years ago
    I implemented case 1 and it worked successfully. But whenever I change the color the count does not change automatically. I need to click on Count and press enter. Can't the count be changed automatically?
    • To post as a guest, your comment is unpublished.
      Wendy · 2 years ago
      Did you find a solution to this b/c I'm having the same problem.
      • To post as a guest, your comment is unpublished.
        Liam Kennedy · 2 years ago
        Any news on this? I am having the same issue. Otherwise perfect :-)
        • To post as a guest, your comment is unpublished.
          Ryan · 2 years ago
          Code works perfectly but also ran into the same issue. Solved it by writing a quick macros that 'refreshes' the function(s) in the cells assigned so you have an accurate count as soon as you run the macros. Hope this helps!
          • To post as a guest, your comment is unpublished.
            Drew · 2 years ago
            Could you share the code you used to "refresh" the macros? I'd greatly appreciate it.
  • To post as a guest, your comment is unpublished.
    Hellen Hornby · 2 years ago
    Hi I tried the above in Excel and keep getting a 'ambiguous name detected' error message related to the colorfunction. Any thoughts?
  • To post as a guest, your comment is unpublished.
    a · 2 years ago
    the function does not differentiate between colours. it just counts any cell this is coloured.
    • To post as a guest, your comment is unpublished.
      Carly Strang · 2 years ago
      See my new reply, I've updated it so it will now differentiate between similar colours.
  • To post as a guest, your comment is unpublished.
    Andrea · 2 years ago
    Hi

    Fantastic tool and really easy to use so thank you!

    Is there any update on using this with conditional formatting? I think there is a fix above but I didn't understand how it worked. Simple instructions for a novice would be much appreciated!

    Thanks :)
  • To post as a guest, your comment is unpublished.
    saurabh · 2 years ago
    everything is good but what if i want to add cells across multiple worksheet
  • To post as a guest, your comment is unpublished.
    Hien · 2 years ago
    $2,322.29 2322.29
    $100.00 128.66
    $76.13 76.13
    $450.02 450.02
    $28.66 128.66
    $544.31 488.77

    0 0
    $278.66
    $636.76 636.76
    Please help the numbers on the left are the correct number but when i dragged down the formula i get the numbers on the right. As you can see some of the numbers are correct but others come out wrong. Please help me, i dont understand why this is not working. Thanks.
  • To post as a guest, your comment is unpublished.
    Hien · 2 years ago
    Please help, why do some of my numbers come out correct and some do not? Maybe two out of the 6 will be inccorect because its adding a different number from a different color.
    • To post as a guest, your comment is unpublished.
      mc · 2 years ago
      Change everything that says ".colorindex" to ".color"

      .ColorIndex only supports 256 Colours. And will round similar colours together essentuially.
  • To post as a guest, your comment is unpublished.
    RB · 2 years ago
    Very Helpful.

    Thanks a Lot.

    BR,
    RB.
  • To post as a guest, your comment is unpublished.
    Vamshi · 2 years ago
    The above function is only working for the data in a single sheet
    I want to capture the data from multiple workbooks.

    Please help .
  • To post as a guest, your comment is unpublished.
    Vamshi · 2 years ago
    Hello,

    The above function works only if the all the coloured cells are in single sheet .
    I am unable to perform the colorfunction sum if the coloured cells are in different sheets.
    Any help around this.

    EX;- Trying to consolidate the sum of coloured cells in a Master sheet it says #VALUE
  • To post as a guest, your comment is unpublished.
    Sarah Chen · 2 years ago
    Thanks for this. It's truely helpful to me!!!
  • To post as a guest, your comment is unpublished.
    Ramdzan · 2 years ago
    its a good function however it can't be save for the entire workbook, whenever to go to a new worksheet and I copy and paste the previous worksheet with the function it doesn't work and then must do it all over again, please advise if there anyway I can save the function for free ofcoz :0
  • To post as a guest, your comment is unpublished.
    AHMER IRFAN · 2 years ago
    Jazak ALLAH it was very helpful
  • To post as a guest, your comment is unpublished.
    Jacqui · 2 years ago
    Brilliant! I've been searching for a way to do this. Works perfectly and will save me so much time!!
  • To post as a guest, your comment is unpublished.
    Rod · 2 years ago
    Lack me words to express my gratitude for your code. You've saved a lot of time, wish a could buy you a beer.

    All the best, mate.
  • To post as a guest, your comment is unpublished.
    Phillip · 2 years ago
    Hi,

    Is there any way to change the code so that instead of calculating a SUM when set to TRUE, it will count the number of cells with numbers or text in?? Ideally I would like if it could count a number over 10,000, but just the COUNT function would be great. I have tried simply changing SUM in the code to COUNT, but it doesn't work.

    Any help would be great
  • To post as a guest, your comment is unpublished.
    Himmat · 3 years ago
    Good day,

    I have tried the coding provided. However I am using different color themes, which does not provide me with the answers I am seeking as the coding sums colors of a similar background and I need to obtain the sun for different colors. please assist
  • To post as a guest, your comment is unpublished.
    Ken · 3 years ago
    It's not working for me. I'm running Excel 2013 but I keep getting the Ambiguous name detected: colorfunction.
    Is there a way to fix this?
  • To post as a guest, your comment is unpublished.
    Dazzy · 3 years ago
    Fantastic! Worked very well.
  • To post as a guest, your comment is unpublished.
    Akshatha · 3 years ago
    Hi,

    Works Great. Needed a small tweak though. I have some colored empty cells which are also getting counted right now. How can i ignore those cells?

    Thanks
  • To post as a guest, your comment is unpublished.
    Sylvia · 3 years ago
    Your code works really well. Thanks. Can you now please help to alter the function of colorfunction so horizontally merged cell is counted as one? I am using the following function:
    Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
    Dim rCell As Range
    Dim lCol As Long
    Dim vResult
    lCol = rColor.Interior.ColorIndex
    If SUM = True Then
    For Each rCell In rRange
    If rCell.Interior.ColorIndex = lCol Then
    vResult = WorksheetFunction.SUM(rCell, vResult)
    End If
    Next rCell
    Else
    For Each rCell In rRange
    If rCell.Interior.ColorIndex = lCol Then
    vResult = 1 + vResult
    End If
    Next rCell
    End If
    ColorFunction = vResult
    End Function

    Thanks!
  • To post as a guest, your comment is unpublished.
    GV · 3 years ago
    Works Great !!!
    Thanks for posting!!
  • To post as a guest, your comment is unpublished.
    Kailas · 3 years ago
    Thanks! very useful function :)
  • To post as a guest, your comment is unpublished.
    Ranj · 3 years ago
    I have enabled macros to count cell colors. How do add another criteria for text? Lets say I have checked a range and recieved the count for cells that are green. How do I also check how many of those had "D" as text?

    thanks!
  • To post as a guest, your comment is unpublished.
    GK · 3 years ago
    Worked like a charm when other codes would not! THANK YOU!
  • To post as a guest, your comment is unpublished.
    Saifi · 3 years ago
    Thankyou. very helpful information
  • To post as a guest, your comment is unpublished.
    Mike · 3 years ago
    It seems good, but I have an issue, in the code section, you say it does the same thing as the Color Count Function, however, this is not true. It looks at all my fields instead of just the visable ones, I need to be able to code this to look at only the visable cells.

    Any help would be great.
  • To post as a guest, your comment is unpublished.
    @1Ednut · 3 years ago
    Thank you very much! this worked first time for me!!
    wow... i just thought.. "excel should be able to do this" and voila

    thank you thank you thank you again!
  • To post as a guest, your comment is unpublished.
    Sunil · 3 years ago
    Yes it has worked and very good. but what about if I have to change the color or reduce the colour cells or increase the cell , the formula don't increase or decrease accordingly as like in pivot we refreseh the pivot and sheet get update according to change in main data.
  • To post as a guest, your comment is unpublished.
    Shaun · 3 years ago
    wow, got this working but have an issue. I can get the formula to work on the same tab; but it will not work when looking up colours on a different tab. The other tabs contain colours that are generated by conditioning format; has any one got any advice