Сумма ячеек по цвету.

Автор foxyra, 14 июня 2019, 16:15

0 Пользователи и 1 гость просматривают эту тему.

foxyra

Доброго времени суток , есть столбик с 2умя цветами , задача . суммировать те ячейки которые буду совпадать по цвету.
я так понимаю есть образец цвета ,и он будет сравнивать его по цвету .
есть макрос функции ,но он для exel ,помогите пожалуйста переписать его для openoffic/

Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double
     Dim Sum As Double
     Application.Volatile True

     For Each cell In DataRange
         If cell.Interior.Color = ColorSample.Interior.Color Then
             Sum = Sum + cell.Value
         End If
     Next cell
     SumByColor = Sum
End Function

за ранее спасибо