Доброе утро, уважаемые форумчане. Подскажите пожалуйста по следующему вопросу. Есть обычный фильтр. Оператор выбирает значение из списка, соответственно, показываются строки. В модуле следующий код:

Dim iDiapazon As Range, iArea As Range

Sub SelectFilter()
Set iDiapazon = [I7:I65536]
iCriteria$ = ">0"
For Each iArea In iDiapazon.SpecialCells(xlVisible).Areas
iCount& = iCount& + Application.CountIf(iArea, iCriteria$)
Next
Cells(9, 3).Value = iCount 'в ячейке выводится кол-во строк, которые выбрал фильтр
End Sub

Вопрос - как присвоить данный саб к фильтру? Чтобы когда оператор выбирал какое-либо значение в списке фильтра, автоматически в ячейке проставлялось кол-во строк. Макрос использвать не хочу, нужна полная автоматизация. Искал по форуму, но что-то ничего не нашёл.

Заранее благодарю!

2003 excel. Пытаюсь применить функцию subtotal(3,I7:I65536), не идёт! Стал искать дальше и вот что нашёл - можно воспользоваться функцией Worksheet_Calcilate.

Private Sub Worksheet_Calculate()
If Sheets("имя_книги").Range("B11").Value <> olval Then
'my code
Set iDiapazon = [I7:I65536]
iCriteria$ = ">0"
For Each iArea In iDiapazon.SpecialCells(xlVisible).Areas
iCount& = iCount& + Application.CountIf(iArea, iCriteria$)
Next
Cells(9, 3).Value = iCount
End If
olval = Sheets("имя_книги").Range("B11").Value
End Sub

Однако работает! :-) Может кому пригодиться... Спасибо.