Сыровато, но всеже : Function SumColor(diapazon As Range, color As Long) As Single Sum = 0 For Each cel In diapazon If cel.Interior.color = color Then Sum = Sum + cel.Value Next cel SumColor = Sum end function
diapazon - Range ячейки среди которых происходит суммирование color - цвет.
|