счёт закрашенных ячеек с определённым текстом

Автор KOD, 27.01.2024, 21:27

« назад - далее »

KOD

Помогите пожалуйста!
Нужна формула подсчёта закрашенных ячеек с определённым текстом.
Например: в таблице 1 ячейки закрашены зелёным цветом (выполненные) с текстом разных работ, нужно в таблицу 2 подсчётов сумм в колонку "факт" распределить по количествам выполненных работам. Имеется формула =СУММЦВЕТ(F6:$AJ$26;$A$14) написанная в Visual Basic, но она считает только заданный цвет ячеек. Как сделать чтобы она считала заданный цвет с определённым текстом? Пробовал совмещать формулы не получается.
Файл примера прилагаю.

KOD

#1
Нашёл решение. Может кому пригодится.

Вариант подсчёта суммы закрашенной ячейки с текстом
Function SumCellColor(rng As Range, CellColor As Range) As Integer
Dim cell As Range
For Each cell In rng
    If cell.Interior.Color = CellColor.Interior.Color And cell.Value = CellColor.Value Then SumCellColor = SumCellColor + 1
Application.Calculate
Next cell
End Function
-----------------------------------------------------------------------------------------------------------------------------------------------
Вариант подсчёта процента закрашенной ячейки с текстом
Function ProcCellColor(rng As Range, CellColor As Range) As Double
Dim cell As Range, cnt As Integer
For Each cell In rng
    If cell.Interior.Color = CellColor.Interior.Color And cell.Value = CellColor.Value Then cnt = cnt + 1
Application.Calculate
Next cell
ProcCellColor = cnt / rng.Cells.Count
End Function