Además de usar valores y texto en sus hojas de trabajo, Excel le permite usar colores para animar o dar significado a sus datos. Si usa colores en sus hojas de trabajo, es posible que se pregunte si hay alguna manera de contar el número de celdas que están formateadas con un color de relleno en particular. No existe una función intrínseca en Excel para realizar tal tarea, pero ciertamente puede hacer una con una función definida por el usuario. El siguiente es un ejemplo de uno que contará el número de celdas en un rango que están formateadas con un color de relleno amarillo:

Function CountYellow(MyRange As Range)

Dim iCount As Integer     Application.Volatile     iCount = 0     For Each cell In MyRange         If cell.Interior.ColorIndex = 6 Then             iCount = iCount + 1         End If     Next cell     CountYellow = iCount End Function

Para usar la función, todo lo que necesita hacer es usar una fórmula como la siguiente en una celda de su hoja de trabajo:

=CountYellow(A1:A99)

Este ejemplo devuelve el número de celdas en el rango de A1: A99 que usan el color de relleno amarillo.

Observe en la función CountYellow que las celdas se examinan para ver si la propiedad ColorIndex es igual a 6. En otra codificación VBA, puede estar acostumbrado a ver constantes casi inglesas que definen colores. En este caso, las constantes de color normales no funcionan. En cambio, la propiedad ColorIndex funciona en función de un conjunto de valores de índice en una paleta de colores particular. Si está interesado en ver los distintos valores de índice utilizados para los diferentes colores, eche un vistazo al archivo de ayuda en línea de VBA para la propiedad ColorIndex.

Una vez que sepa cómo recorrer las celdas en un rango de esta manera, es fácil realizar otros tipos de operaciones según el color utilizado para rellenar las celdas del rango. Por ejemplo, en lugar de simplemente contar el número de celdas, puede sumar los valores de las celdas en el rango o puede encontrar el promedio de los valores en el rango. Todo lo que necesita hacer es realizar los cambios apropiados en el código en la estructura If …​ End If más interna.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (1978) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.