Soluciones MS Excel VBA

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: ...