Vamos a ver cómo podemos contar los registros de una tabla de Excel en función del color creando una función en VBA.
Para ello he creado un libro con una tabla tal y como muestro a continuación. La idea es contabilizar el número de calificaciones rojas que hay en el campo Nota.
A continuación os muestro el código para crear la función,
Function CountRed(r As Range) As Long
Application.Volatile
Dim c As Range, d As Long
'Para cada celda del rango, comprobamos si el color es rojo
For Each c In r
If c <> "" Then
If c.Font.Color = RGB(255, 0, 0) Then d = d + 1
End If
Next c
CountRed = d
End Function
Si ahora escribimos la fórmula en la celda C16, obtendremos el número de calificaciones en roj,
=countRed([NOTA])
Espero que este ejemplo te haya servido para aprender a crear una función para contar los registros según el color de una tabla Excel. Descárgate el archivo de ejemplo y practica.
Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.
Hasta la próxima.
Si te ha servido y quieres donar
Descarga el archivo del ejemplo
Últimas publicaciones
0 comentarios