Объект VBA для метрик строки состояния

Question

Я пытаюсь вернуть количество отфильтрованных строк, которое отображается в строке состояния Excel в нижней части окна Excel.«76 из 4008», который появляется внизу экрана, когда я фильтрую диапазон.

Как мне позвонить по этим номерам?

Я думаю: «Зачем пересчитывать, когда Excel уже сделал?»

В конце я хочу отфильтровать макрос, сохраниввидимое количество строк в переменной, отфильтруйте по-другому, сохраните видимое количество строк в переменной, а затем отобразите окно сообщения, возвращающее оба числа строк.Я написал все остальное, но не могу найти объект, в котором хранятся показатели строки состояния Excel (счетчик, сумма, среднее и т. Д.).

Спасибо за помощь.

Answer 1

Вы должны считать от следующей строки после вашего заголовка, поэтому, если ваш заголовок находится в A1 и все ячейки в столбце A заполнены, вы можете сделать это:

Sub VisibleRows()

    Dim RowsStore As Long

    With ThisWorkbook.Sheets(1)
         RowsStore = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeVisible).Rows.Count
    End With

End Sub