Można np. skorzystać z funkcji własnej. (funkcja ta nie działa na formatowaniu warunkowym)

Function Suma_Koloru(Zakres As Range, Wzor As Range) As Double

Dim komórka As Range

For Each komórka In Zakres
    If komórka.Interior.ColorIndex = Wzor.Interior.ColorIndex Then
        Suma_gKoloru = Suma_Koloru + komórka.Value
    End If
Next komórka

End Function




osuszacze