Komu nujna function Color SUM

[Ser Artur]

Function summirovanie cvetom

[Avtopic]

Я вас не понял. Что вы имели в виду Сер?

[Ser Artur]

Отвечаю Ser скопируй функцию в модуль и поймёщь Ser

Код: Выделить всё

]Function sumRangeColor(iObrazets, iDiapazon) As Double
   
iColor = iObrazets.Interior.ColorIndex

For Each iCell In iDiapazon
    If iCell.Interior.ColorIndex = iColor Then
       If IsNumeric(iCell) = True Then
          sumRangeColor = sumRangeColor + iCell
       End If
    End If
Next

End Function


[Ser Artur]

Т.Е выдели одну две яйчейки каким то цветом другие другим цветом
iObrazets
потом Выдели диапазон iDiapazon
и увидешь

[GSerg]

Такой вопрос.

Нафига поднимать по форуму истлевшие тему полу- и годичной давности?.. У нас это чаще всего называют некрофилией...