Desafortunadamente Excel no tiene una formula o una función que realice
esta tarea, por lo que tendremos que construir una función
personalizada.
Para sumar por el color de relleno de una celda será necesario evaluar la propiedad Interior.Color y todas las celdas que tengan el mismo valor deberán ser sumadas. El código de nuestra función será el siguiente:
Function Sumarcolor(Celdacolor As Range, Rangosuma As Range) As Double
Dim celda As Range
For Each celda In Rangosuma
If celda.Interior.ColorIndex = Celdacolor.Cells(1, 1).Interior.ColorIndex Then Sumarcolor = Sumarcolor + celda
Next celda
Set celda = Nothing
End Function
Cada vez que encontramos una coincidencia en el valor de la propiedad Interior.Color la variable resultado hace la suma del valor de la celda y así obtenemos la suma total. Observa el comportamiento de esta función:
De esta manera hemos aprendido cómo hacer operacion con colores en Excel en aquellos casos en los que necesitemos sumar.
Puedes descargar el libro de trabajo utilizado en este artículo y reutilizar las funciones que hemos creado para seguir trabajando con colores en Excel.
En vez de sumar, ¿como puedo contar los colores? es decir, el número de celdas con determinado color,en el caso presentado seria 2.
ResponderBorrarGracias
hola.
ResponderBorrarahi quedo publicado tu duda
http://solucionesmsexcelvba.blogspot.mx/2015/06/funcion-cuentacolor-para-contar-celdas.html
saludos
Muchas gracias, me ha sido de gran ayuda.
ResponderBorrar