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 Не понял как добавить ограничение для поиска "яблоко"...