Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Число видимых строк заданного диапазона
 
#1
15.04.2015 15:58:09
Добрый день!

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

Заранее спасибо!
 
 
 
#2
15.04.2015 15:58:50
Функция ПРОМЕЖУТОЧНЫЕ.ИТОГИ
 
 
 
#3
15.04.2015 16:15:21
Прошу прощения за некорректную формулировку вопроса.
Прошу указать, как это можно реализовать с помощью vba.
 
 
 
#4
15.04.2015 17:36:41
Цитата
yegorovaleks написал: нужно посчитать количество видимых строк... реализовать с помощью vba
UDF, аргумент функции - диапазон ячеек
Код
Function СЧЁТ_В(диапазон As Range) As Integer
Dim rw As Range
    For Each rw In диапазон.Rows
        If rw.EntireRow.Hidden <> True Then S = S + 1
    Next
СЧЁТ_В = S
End Function
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
15.04.2015 17:39:23
Если строки скрыты автофильтром, а не как в примере
Код
Dim a As Range, n&
With ActiveSheet.AutoFilter.Range
  .EntireColumn.Hidden = False
  For Each a In .SpecialCells(xlCellTypeVisible).Areas
    n = n + a.Rows.Count
  Next
End With
n = n - 1 'заголовок
 
 
 
#6
15.04.2015 18:05:12
Доработал. Теперь можно с помощью сообщения получать количество строк в диапазоне.
Спасибо всем!
Код
Sub количество_видимых_строк_в_диапазоне()
    Dim i As Range, n As Integer
    Set i = Range("a2:a5")
    n = СЧЁТ_В(i)
    MsgBox n
End Sub
 
 
 
Страницы: 1
Наверх