viernes, 13 de junio de 2014

Sumar según el color de la tinta en Excel

Descargue el fichero: excelavanzado_color_tinta.xlsm

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