Summa solun värin mukaan

Laitat siihen summa -kaavaan saman ehdon kuin siihen solunvärjäys -kaavaan.

Tämä laskee tietyn väristen solujen summan. Funktion 1 parametrinä annetaan alue, jota tutkitaan, 2 parametri on sellainen solu, jonka värisiä lasketaan.

Function Summa(alue As Range, malli As Range)
Application.Volatile
Dim s As Double
s = 0
For Each solu In alue
If solu.Interior.ColorIndex = malli.Interior.ColorIndex Then
s = s solu.Value
' s = s 1 ' jos pitää laskea lukumäärä
End If
Next
Summa = s
End Function