Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo contar / sumar celdas según los colores de fuente en Excel?

doc-count-font-color1

¿Cómo podría obtener el número de celdas o sumar todas las celdas que contienen un color de fuente particular en Excel? Por ejemplo, tengo un rango de datos en una hoja de trabajo como se muestra a continuación, y ahora quiero contar o sumar respectivamente las celdas que tienen un color de fuente rojo, azul y negro. En Excel, no hay una fórmula directa para tratar con esta tarea, aquí, voy a hablar de algunos trucos para resolver este trabajo.

Cuente o suma celdas en función de los colores de fuente con la función definida por el usuario

Contar o sumar celdas basadas en el color de la fuente con Kutools para Excel

Contar o sumar celdas basadas en el color de fondo con Kutools para Excel


Los valores de celda Count / Sum se basan en el fondo, la fuente y el color del formato condicional:

Kutools for Excel's Cuenta por color la función puede ayudarlo a obtener algunos cálculos en función de la fuente, el fondo o el color del formato condicional que necesite.

doc filter color 12

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


flecha azul burbuja derecha Cuente o suma celdas en función de los colores de fuente con la función definida por el usuario


Cuente las celdas en función de los colores de la fuente:

Para calcular la cantidad de celdas con colores de fuente específicos, haga lo siguiente:

1. Mantenga presionado el ALT + F11 llaves, y abre la Ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Ventana de módulo.

Código de VBA: Cuente las celdas en función de los colores de la fuente:

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
'Update 20140210
Application.Volatile
Dim rng As Range
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        CountColour = CountColour + 1
    End If
Next
End Function

3. A continuación, guarde este código y vuelva a la hoja de trabajo, y luego ingrese esta fórmula en una celda en blanco = CountColour (A1: D8, A1) , mira la captura de pantalla:

doc-count-font-color1

Nota: En la fórmula anterior, A1: D8 es el rango que quieres usar y A1 es la celda con un color de fuente particular que desea contar.

4. Después de escribir la fórmula, presione entrar clave, y obtendrá el número de celdas con colores de fuente rojos. Si desea contar otras celdas de color de fuente, por favor ingrese la fórmula de manera repetida como sea necesario. Obtendrás los siguientes resultados:

doc-count-font-color1

Suma celdas basadas en colores de fuente:

Para sumar celdas basadas en colores de fuente, la siguiente función definida por el usuario puede ayudarlo.

1. Mantenga presionado el ALT + F11 llaves, y abre la Ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Ventana de módulo.

Código VBA: celdas Suma basadas en colores de fuente:

Public Function SumByColor(pRange1 As Range, pRange2 As Range) As Double
'Update 20140210
Application.Volatile
Dim rng As Range
Dim xTotal As Double
xTotal = 0
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        xTotal = xTotal + rng.Value
    End If
Next
SumByColor = xTotal
End Function

3. A continuación, guarde este código y regrese a la hoja de trabajo original, y luego ingrese esta fórmula = SumByColor (A1: D8, A1) en una celda en blanco, ver captura de pantalla:

doc-count-font-color1

Nota: En la fórmula anterior, A1: D8 es el rango que quieres usar y A1 es la celda con un color de fuente particular que desea sumar.

4. Entonces presione entrar clave, y agregará todas las celdas con los colores de fuente rojos. Si desea sumar otras celdas de color de fuente, ingrese repetidamente la fórmula. Obtendrás el siguiente resultado:

doc-count-font-color1


flecha azul burbuja derecha Contar o sumar celdas basadas en el color de la fuente con Kutools para Excel

Puede ser la función definida por el usuario, es problemático para usted guardar y aplicar, aquí, le recomendaré un práctico también- Kutools for Excel, Con su Cuenta por color utilidad, puede obtener rápidamente el resultado del cálculo, como el recuento, la suma, las celdas promedio, etc. por el color de fondo, el color de la fuente y el formato condicional.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Seleccione el rango de datos que desea contar y sumar según diferentes colores.

2. Hacer clic Empresa > Cuenta por color, mira la captura de pantalla:

doc-count-font-color1

3. En la Cuenta por color cuadro de diálogo, elija Formato estándar del Método de color desplegable, y seleccione fuente bajo la Tipo de conteo desplegable, ver captura de pantalla:

doc-count-font-color1

4. Y las celdas con los mismos colores de fuente han sido contadas, sumadas, promediadas, etc. Y luego haz clic Generar informe botón, obtendrá estadísticas en un nuevo libro de trabajo. Ver captura de pantalla:

doc-count-font-color1

Descargue y pruebe de forma gratuita Kutools for Excel Now!


flecha azul burbuja derecha Contar o sumar celdas basadas en el color de fondo con Kutools para Excel

Si desea contar o sumar las celdas con un color de fondo específico, Kutools for Excel, Cuenta por color la función también puede ayudarlo, haga lo siguiente:

1. Seleccione el rango de datos que desea contar o sume las celdas en función del color de fondo, y luego habilite esta característica haciendo clic Empresa > Cuenta por color.

2. En la Cuenta por color cuadro de diálogo, elija Formato estándar del Método de color desplegable, y seleccione Antecedentes bajo la Tipo de conteo desplegable, ver captura de pantalla:

doc-count-font-color1

3. Luego haga clic Generar informe botón, se genera un informe basado en los colores de fondo, ver captura de pantalla:

doc-count-font-color1

Haga clic para obtener más información sobre esta característica Cuenta por color.

Descargue y pruebe de forma gratuita Kutools for Excel Now!


flecha azul burbuja derecha Contar o sumar celdas en función del color del formato de fuente / fondo / condicional:

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


Kutools for Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Insertar rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Más de potentes funciones de 300. Admite Office / Excel 2007-2019 y 365. Soporta todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas de prueba gratuita de 30-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo 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.
    me · 2 months ago
    COUNT CELLS BY FONT COLOR tutorial was great! But it is not working when the font color was based on the conditional formatting. Do you have something for this concern?
    • To post as a guest, your comment is unpublished.
      skyyang · 12 days ago
      Hello,
      The codes in this article can not support the conditional formatting, but, you can use our Kutools for Excel's Count by Color feature, it can help you to count or sum conditional font colors. Please try it.
  • To post as a guest, your comment is unpublished.
    Sarah · 6 months ago
    This was exactly what I needed - Thanks!
  • To post as a guest, your comment is unpublished.
    ISMERCIO · 6 months ago
    = SumByColor (A1: D8, A1) NÃO FUNCIONOU


    =SumByColor(A1:D8;A1) FUNCIONOU

    TIRANDO ESPAÇO E USANDO " ; " AO INVÉS DE " , " AI FUNCIONOU LEGAL.

    USO EXCEL 10


    MUITO BOM.


    OBRIGADO

  • To post as a guest, your comment is unpublished.
    Borja · 6 months ago
    Is there a way to change Count Or Sum Cells Based On Font Colors With User Defined Function into count or sum cells based on de conditional formating?

    I've tried with

    Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double

    Application.Volatile
    Dim rng As Range
    For Each rng In pRange1

    If rng.FormatConditions.Font.Color = pRange2.FormatConditions.Font.Color Then
    CountColour = CountColour + 1

    End If
    Next
    End Function

    But it appears not to work, any suggestion?
    Thanks
    • To post as a guest, your comment is unpublished.
      skyyang · 6 months ago
      Hello, Borja,
      May be you can use our product, Kutools for Excel, with its Count by Color feature, you can quickly count or sum the cell values based on the conditional formatting without any VBA code, please try. You can download it and free trial in 60 day.
      Thank you!
  • To post as a guest, your comment is unpublished.
    Xiahui Tan · 9 months ago
    I tried the SumByColor. It works, but not if the numbers have been coloured by conditional formatting. For example, I have a list of different numbers that are coloured red if they are within a range set by a conditional formatting rule. I would then like to sum only the red-coloured numbers. But the SumByColor VBA code does not work in this situation. Any suggestions to make it work. Thanks
    • To post as a guest, your comment is unpublished.
      skyyang · 9 months ago
      Hello, Xiahui,
      The above code can not applied to conditional formatting color, but, you can use our Kutools for Excel' Count by color feature, with it, you can quickly get the result for counting or summing based on the conditional formatting color. See the below screenshot:
  • To post as a guest, your comment is unpublished.
    Kriss · 9 months ago
    Hey
    Nice macro. I used it to just count from a simple matrix. The problem is that the macro counts also empty cells. How to exclude empty cells from counting?
    • To post as a guest, your comment is unpublished.
      skyyang · 9 months ago
      Hello, Kriss,
      To count the cells based on font color excluding the blank cells, please apply the below User Defined Function, please try:

      Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
      Application.Volatile
      Dim rng As Range
      For Each rng In pRange1
      If rng.Value <> "" Then
      If rng.Font.Color = pRange2.Font.Color Then
      CountColour = CountColour + 1
      End If
      End If
      Next
      End Function
  • To post as a guest, your comment is unpublished.
    Tahj · 10 months ago
    Exactly what I was looking for! This will save me lots of time. Thank You
  • To post as a guest, your comment is unpublished.
    Fernanda · 11 months ago
    Muito obrigada já ajudou muito, porém a minha formula só adiciona à soma outro número quando eu uso o pincel para mudar a cor, se eu trocar a cor da fonte pela barra de ferramenta não dá certo, alguém saber me explicar - webchio@gmail.com
  • To post as a guest, your comment is unpublished.
    Cheryl · 1 years ago
    This was SO helpful - Thanks very much!
  • To post as a guest, your comment is unpublished.
    Hien Dang · 1 years ago
    Hướng dẫn bên trên hình như chỉ áp dụng khi màu của giá trị trong ô hoặc màu nền của ô được tô màu bằng Manual.M muốn đếm số ô mà giá trị được bôi màu theo cách Conditional Formatting.Xin giúp đỡ ạ!
  • To post as a guest, your comment is unpublished.
    Gennelee · 1 years ago
    Hi I tried it but when I changed the color of other items, it doesnt add up or the sum doesnt change.
    Please help me.
  • To post as a guest, your comment is unpublished.
    JWong · 1 years ago
    Hi,

    I followed the instructions and it works well. But then when i re-open the file, the module window is empty. It seems i cannot save the code as needed. A box pops up saying that "VB project cannot be saved in macro-free workbooks" and therefore i have to save as a macro-free workbook.

    Please advise if I have missed any steps.

    Thanks,
    J. Wong
  • To post as a guest, your comment is unpublished.
    Adam · 1 years ago
    Rather than count or sum cells based on font colour, is there a way to display certain 'values' in another column based on font colour? for example, I have a column with multiple company names that each have a specific font colour to indicate a specific calendar year. I would like to simply create a 'year' column beside this. So for example if column B contains text with font colour green, this will display "2017" in column C. And if column B contains text with font colour red, this will display "2016" in column C. I dread to do this manually as I have thousands of rows!
  • To post as a guest, your comment is unpublished.
    antonella · 2 years ago
    Hi,
    I followed the instructions above for SumByColor and they worked great.
    I was wondering whether there is a similar formula in VB to sum by background color rather than using Kutools.
    thanks, Antonella
  • To post as a guest, your comment is unpublished.
    Mike · 2 years ago
    hi, your solution works well but when i change the content of a cell in the range to the colour selected the result cell doesn't auto update unless i go to the result cell select the formula and hit enter. Is there a way to auto update the result cell when the range is amended.
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hello, Mike,
      May be there is no other good method to update the result automatically when you change the cell font color, so, you need selec t the formula cell and hit Enter key or click the Automatic under the Formulas tab to get the updated result.
      If you have any other good ways, please comment here.
      Thank you very much!
  • To post as a guest, your comment is unpublished.
    mfleming · 2 years ago
    I did everything as instructed by I get #VALUE! instead of a total. I changed the formula to subtotal one single cell and it worked but when the formula has a range of cells (in my case D3:D53, I get the #VALUE result.
  • To post as a guest, your comment is unpublished.
    dfmoeller · 2 years ago
    I can't seem to get past this syntax error that I am getting. I'm not very knowledgeable when it comes to visual basic, so I'm hoping that it is just a small typing error (although I did cut and paste the code from above, rather than retype). The machine is running Windows 10/Office 2013. The error says "compile error / syntax error". The VB windows shows the line with the IF statement in the SumByColor module as highlighted. Please tell me what I'm doing wrong.
  • To post as a guest, your comment is unpublished.
    Liz · 2 years ago
    I followed the instructions for SUMbyColor (for font).Showed up perfectly on my screen (my work pc has Excel 2010 ) however, on my boss's screen it comes up as '#NAME?' (fyi, his pc has the current Excel version).Is there any way to resolve this?
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      [quote name="Liz"]I followed the instructions for SUMbyColor (for font).Showed up perfectly on my screen (my work pc has Excel 2010 ) however, on my boss's screen it comes up as '#NAME?' (fyi, his pc has the current Excel version).Is there any way to resolve this?[/quote]
      Hello,LIZ:
      After inserting the code, you should save the workbook as [b]Excel Macro-Enabled Workbook[/b] file format. And then when you open this Excel file next time, you should click[b] Enable Content[/b] from the security warning ribbon to activate the macro code. Please try this.
  • To post as a guest, your comment is unpublished.
    Luke · 2 years ago
    Hi tks for the advice.
    I have a similar problem of MYTAWALBEH
    I would like to include more columns in the function
    would be great if someone has some tips
    cheers
  • To post as a guest, your comment is unpublished.
    Smudge · 2 years ago
    Great read and working brilliant however is it possible for anyone to explain how I could apply this to a multiple set of sheets??

    Any idea will be much appreciated so cheers in advance.
  • To post as a guest, your comment is unpublished.
    Smudge · 2 years ago
    Great read and works awesome but could someone please tell me how to apply this to multiple sheets.

    If anyone can, this will be brilliant for what I need and will be much appreciated indeed.
  • To post as a guest, your comment is unpublished.
    Phillip · 3 years ago
    Is there any way to count the cells by colour without Kutools?
  • To post as a guest, your comment is unpublished.
    Nicola · 3 years ago
    Hi! Works great, thanks.

    However, doesnt work for cells with more than one colour. Is it possible to update this code to do this?

    Nikki
  • To post as a guest, your comment is unpublished.
    KH · 3 years ago
    How do I get the spread sheet to automatically update? If my data/color changes the sum doesn't update until I select the cell with the formula, hit F2, and then click off the cell. I want my sheet to automatically update as the data changes. Thanks.
  • To post as a guest, your comment is unpublished.
    atul gaur · 3 years ago
    Sir#name error aa rahi hai
  • To post as a guest, your comment is unpublished.
    Leanne · 3 years ago
    Hi

    I need to count the number of cells in orange font from cell range B:B if Cell Range AB says 'Ventura'

    The above allows you to count according to one criteria but doesn't allow a second - I have tried but I have never written macros before and cannot get this working. Urgent help needed please?

    Thank you
    Leanne
  • To post as a guest, your comment is unpublished.
    Diana · 4 years ago
    I followed your directions for the count but in the cells that I have =CountColour(...) I have the #NAME error. I have multiple tabs, so I put the code in the sheet where I want to use it but I still got the error, so then I put it in a module. What am I missing??
    • To post as a guest, your comment is unpublished.
      nada · 3 years ago
      Click the Microsoft Office Button , and then click Excel Options.
      Click Trust Center, click Trust Center Settings, and then click Macro Settings.
      Click the options to enable macro
  • To post as a guest, your comment is unpublished.
    gwenn · 4 years ago
    thank you very much... needed a little debugging but I think that's because nothing is ever cookie cutter, what I did to fix my issues may be different than what anyone else may need to do (based on version, etc.) but once I took out the rem'd line and made sure that I was pointing to the right fields and format field to do the comparison to, it worked like a charm.
  • To post as a guest, your comment is unpublished.
    Janna · 4 years ago
    the countcolor function includes the spaces between the cell that has that specific color. can you fix this?

    thanks alot!
  • To post as a guest, your comment is unpublished.
    magician1314 · 4 years ago
    MYTawalbeh,

    I had the same issue. You have to save the workbook as a macro enabled workbook so the macro copies over. Otherwise you will continue to have the error because the macro isn't being copied over.
  • To post as a guest, your comment is unpublished.
    MYTawalbeh · 4 years ago
    IT worked ,, thank you
    But when I save and close worksheet then re-open, it shows (#Name?)
    I've saved it (Macro-enabled)
    • To post as a guest, your comment is unpublished.
      Lisa · 2 years ago
      Click to enable macros on the yellow bar at the top of the page when you open your document and your formulas will come back. Hope this helps.
  • To post as a guest, your comment is unpublished.
    Stefanos N · 4 years ago
    Excellent work!

    Saved my wife's night!

    Thx
  • To post as a guest, your comment is unpublished.
    MEREDITH · 4 years ago
    Hello, I keep getting an error as follows "Ambiguous name detected: SumByColor". What am i doing wrong?
    • To post as a guest, your comment is unpublished.
      Lisa · 2 years ago
      I got this message when I tried to apply the same thing to another spreadsheet. When you go to insert module and copy in the text change it to SumByColour (different spelling and note there are two instances of it in the text). Then when I tried to use the formula in my second spreadsheet the new spelling came up which I selected and now the function works in this spreadsheet too. I hope this works for you because I am finding it extremely useful for various spreadsheets I work with.
  • To post as a guest, your comment is unpublished.
    Eddie L · 4 years ago
    I use a very similar method but have been playing with MULTI Colored fonts... say [Only the [b]BOLD[/b] word is red], fingers crossed you have a thought as to how I may achieve this!

    Cheers
    Eddie
  • To post as a guest, your comment is unpublished.
    nomnom · 4 years ago
    super cool, helped me a ton.

    if you don't mind me asking.
    when i try this on a colored cell number affected with "Conditional Formatting" it seems to see all the numbers as a single color. are there any way to have the program recognize that the color is different.
  • To post as a guest, your comment is unpublished.
    Khizar Hayat. · 5 years ago
    it works very good and so nice function.

    thank you.
  • To post as a guest, your comment is unpublished.
    Oguz Canturk · 5 years ago
    How do we do well to access?
  • To post as a guest, your comment is unpublished.
    Nick Roma · 5 years ago
    Hi,
    when i use this formula it keeps coming up with "Compile Error: Must be first statement on the line" and it has highlighted the "Function" on the first line of the formula. Help??
    • To post as a guest, your comment is unpublished.
      Suzy · 2 years ago
      May be you did not insert a module instead copied the code on the screen after Alt+F11
  • To post as a guest, your comment is unpublished.
    Minh Chau · 5 years ago
    Thank you so much! It works like wonder!