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

状态栏指标的VBA对象

1 个答案: