Saltar al contenido principal

¿Cómo contar celdas con texto específico y color de relleno / fuente en Excel?

Puede resultarle fácil contar la cantidad de celdas que contienen solo una condición, como contar todas las celdas con texto específico o color de fuente / relleno. Sin embargo, ¿sabe cómo contar células con múltiples condiciones? Por ejemplo, cuente el número de celdas que contienen tanto texto específico como color de fuente / relleno. Este artículo le mostrará la solución.

Cuente celdas con texto específico y color de relleno con código VBA
Cuente celdas con texto específico y color de fuente con código VBA


Cuente celdas con texto específico y color de relleno con código VBA

Suponiendo que tiene una tabla como se muestra a continuación, para contar las celdas en la columna B según el texto y el color de relleno de la celda E2, aplique el siguiente código VBA.

1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, luego copie el código de VBA a continuación en la ventana del Módulo.

Código VBA: cuente celdas con texto específico y color de relleno

Sub CountFillColorValue()
'Update by Extendoffice 20180702
    Dim I As Long
    Dim xNum As Long
    Dim Rows As Long
    Dim xRgD As Range
    Dim xRg, xRgS As Range
    On Error Resume Next
    Set xRg = Range("B2:B9")
    Set xRgS = Range("E2")
    Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    xNum = 0
    For I = 1 To xRows
        If xRg.Offset(I - 1, 0).Interior.ColorIndex = xRgS.Interior.ColorIndex Then
            If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
                xNum = xNum + 1
            End If
        End If
    Next
    xRgD = xNum
End Sub

Note: En el código, B2: B9 es el rango dentro del cual contará las celdas, E2 contiene el texto y el color de relleno en el que contará las celdas. Puede cambiarlos según sus necesidades.

3. presione el F5 clave para ejecutar el código, luego una Kutools for Excel aparece el cuadro de diálogo, seleccione una celda para colocar el resultado y luego haga clic en el OK botón. Ver captura de pantalla:

Luego, el resultado del recuento se muestra en la celda seleccionada inmediatamente.


Cuente celdas con texto específico y color de fuente con código VBA

Para contar celdas en el rango B2: B9 según el texto y el color de fuente de la celda E2, haga lo siguiente.

1. Abre el Microsoft Visual Basic para aplicaciones ventana presionando el otro + F11 llaves.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, luego copie el código de VBA a continuación en la ventana del Módulo.

Código VBA: cuente celdas con texto específico y color de fuente

Sub CountFontColorValue()
'Update by Extendoffice 20180702
    Dim I As Long
    Dim xNum As Long
    Dim xRows As Long
    Dim xRgD As Range
    Dim xRg, xRgS As Range
    On Error Resume Next
    Set xRg = Range("B2:B9")
    Set xRgS = Range("E2")
    Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRgD Is Nothing Then Exit Sub
    xRows = xRg.Rows.Count
    Set xRg = xRg(1)
    xNum = 0
    For I = 1 To xRows
        If xRg.Offset(I - 1, 0).Font.ColorIndex = xRgS.Font.ColorIndex Then
            If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
                xNum = xNum + 1
            End If
        End If
    Next
    xRgD = xNum
End Sub

Note: En el código, B2: B9 es el rango dentro del cual contará las celdas, E2 es el criterio en el que contará las celdas. Puede cambiarlos cuando lo necesite.

3. presione el F5 clave para ejecutar el código, luego una Kutools for Excel aparece el cuadro de diálogo, seleccione una celda para colocar el resultado y luego haga clic en el OK botón. Ver captura de pantalla:

Obtendrá el resultado como se muestra a continuación:


Artículos relacionados:

Las mejores herramientas de productividad de oficina

Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   +50 Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

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

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hola, he probado la función cuente celdas con texto específico y color de relleno pero cuando aprieto la tecla F5 solo me sale la función "IR A" y no me sale la ventana para seleccionar la celda.
Supongo que no podrá probarse y tengo que comprar
This comment was minimized by the moderator on the site
Hi Nando,
The VBA codes are provided for free. Which Excel version are you using? Is there any error prompt?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations