подсчитать после фильтрации

[CORDOBA]

Здравствуйте ребята, мне нужен ваш помощь очень.
Я сделал так

B15 есть эта формула =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3,B2:B12) Подсчитывает количество ячеек
B16 есть формула =КолЦветТст(B2:B12,A16) Подсчитывает красные слова
но B16 сделал формула через VBA и там написал формула
Function КолЦветТст(диапазон As Range, критерий As Range) As Long
Application.Volatile True
Dim i As Range
For Each i In диапазон
If i.Font.ColorIndex = критерий.Font.ColorIndex Then
КолЦветТст = КолЦветТст + 1
End If
Next
End Function
(формула взял из другого сайта).

Я сейчас сделаю фильтрацию, и в фильтре выбираю B, D и Е,
В результате мы получим так:


Я хочу, чтоб после фильтрации, красные слова были посчитаны оставшиеся ячейки, и а не общих количеств ячеек как на картине,
Я хочу, чтоб после фильтрации, красные слова были 2, а не 3.
Я извиняюсь, если не грамотно пишу на русском языке.

Благодарю заранее

[EducatedFool]

Вы бы выложили свой файл Excel (в архиве)
А то тестировать формулы на ваших картинках несколько сложновато...

[CORDOBA]

как выложить файл ?

[IgorGO]

запакуйте в архив и прикрепите

[CORDOBA]

вот файл,
там есть формула

[kuklp]

Уже ответили здесь:
http://www.planetaexcel.ru/forum/ind...#message430641

[CORDOBA]

Я нашел решение
VBA в формуле должен написать так:
Function КолЦветТст(диапазон As Range, критерий As Range) As Long
Application.Volatile True
Dim i As Range
For Each i In диапазон
If Not i.EntireRow.Hidden And _
i.Font.ColorIndex = критерий.Font.ColorIndex Then
КолЦветТст = КолЦветТст + 1
End If
Nex
End Function

[kuklp]

Ага.

Я нашел решение

[CORDOBA]

Спасибо вам всем огромное