Подсчёт цветных ячеек

[Dreygar]

В общем в интернете нашёл макрос на подсчёт ячеек раскрашенных определенным цветом, он выполнен на excel , и не подходит для libre , как он будет выглядеть на libre ?

[sokol92]

Отвечать тоже рисунком на ткани?  

Если речь идет об этой функции, то можно так (вставлять в любой отдельный модуль библиотеки Standard документа Calc):

Код Выделить Развернуть

Option Explicit
Option VbaSupport 1

Function CountCcolor(Byval range_data, Byval criteria) As Long
   Dim datax
   Dim xcolor As Long
   CountCcolor=0
   xcolor = criteria.CellRange.CellBackColor
   For Each datax In range_data.Cells
       If datax.CellRange.CellBackColor = xcolor Then
           CountCcolor = CountCcolor + 1
       End If
   Next datax
End Function