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


8 comentarios:

  1. Estiimado Adolfo he descargado el archivo correspondiente a sumar segun color de tinta pero aparrentemente esta vacio. pues no encuentro la macro y las hojas estan en blanco.

    ResponderEliminar
  2. Me ocurre lo mismo, aparentemente vacío y sin macro.
    Saludos,

    ResponderEliminar
  3. Porque el codigo no empieza con
    sub()

    ResponderEliminar
  4. Porque el codigo no empieza con
    sub()

    ResponderEliminar
  5. Porque el codigo no empieza con
    sub()

    ResponderEliminar
  6. Hola Ignacio. Hola Miguel.
    Ya está solucionado lo del archivo de Excel. Ahora ya está correcto. Gracias por avisar.
    Un saludo.

    ResponderEliminar
  7. Hola Oscar.
    Las macros comienzan por SUB y finalizan con END SUB.
    Las funciones programadas por el usuario, o también se las llama Funciones definidas por el usuario comienzan por la palabra función en inglés: FUNCTION y finalizan por END FUNCTION. También se programan en un Módulo al igual que las macros normales.
    Un saludo.

    ResponderEliminar
  8. Buen día mi estimadísimo adolfo:
    Muy interesante su ejercicio y de mucha aportación para nosostros.
    Saludos desde México.

    ResponderEliminar