状态栏指标的VBA对象

Question

我正在尝试返回Excel窗口底部Excel状态栏中显示的已过滤行数。当我过滤范围时，屏幕底部显示“4008的76”。

我该如何拨打这些号码？

我的想法是'为什么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