Vamos a sumar y contar según el color de la fuente de un texto. En otra entrada anterior de este Blog ya vimos cómo contar según el color de fondo de las celdas. Es la siguiente:
Ahora vamos a programar una pequeña función en VBA que nos da el código de color según una codificación de colores que va entre 1 y 56. Esto supone que no se distingue entre colores parecidos.
La función programada como macro en Excel es la siguiente.
Function ColorTinta(celda As Range) As Byte ColorTinta = celda.Font.ColorIndex End Function