WhisperDSI

Добрый день! Вот на днях появился интерессный вопрос: есть таблица с двумя столбцами. Ячейки в 1-ом столбце разного цвета заливки (красные и зеленые). Ячейки во 2-ом столбце содержат разные значения ("яблоко" и "груша"). Задача создать функцию подсчета количества строк содержащих в себе красную ячейку и ячейку со значением "яблоко".

Я смог найти только выборку ячеек по цвету:

'---------------------------------------------------------------------------------------

' Procedure : CountByInteriorColor

' Author : The_Prist(Щербаков Дмитрий)

' www.excel-vba.ru

' Purpose : Функция подсчета ячеек на основе цвета заливки.

' Аргументы:

' rRange - диапазон с ячейками для подсчета.

' rColorCell - ячейка-образец с цветом заливки.

' bSumHide - ИСТИНА или 1 учитывает скрытые ячейки.

' ЛОЖЬ, 0 или опущен(по умолчанию) - скрытые ячейки не подсчитываются.

'---------------------------------------------------------------------------------------

Function CountByInteriorColor(rRange As Range, rColorCell As Range, Optional bSumHide As Boolean = False)

Dim lColor As Long, rCell As Range, lCnt As Long, vVal

lColor = rColorCell.Interior.Color

For Each rCell In rRange

If rCell.Interior.Color = lColor Then

If rCell.EntireRow.Hidden Or rCell.EntireColumn.Hidden Then

If bSumHide Then lCnt = lCnt + 1

Else

lCnt = lCnt + 1

End If

End If

Next rCell

CountByInteriorColor = lCnt

End Function

Не понял как добавить ограничение для поиска "яблоко"...