vba - 检查列表对象中可见行的数量？

Question

我知道我可以使用以下方法检查列表对象中的行数:

loSättOmdömen.listRows.Count

但是有什么方法可以检查可见列表对象行数吗？

Answer 1

我能想到的对隐藏列也很稳健的唯一方法(对列进行分组和折叠是相当常见的，因此必须处理这个问题)，就是使用循环:

'mode = 0 for Cells, >0 for Rows, <0 for Columns
Function getListObjectVisibleCount(lo As ListObject, Optional mode As Integer = 0) As Long
    Dim visCnt As Long, area As Range

    On Error Resume Next 'special cells raises an error if nothing is found
    For Each area In lo.DataBodyRange.SpecialCells(xlCellTypeVisible).Areas
        If mode = 0 Then
            visCnt = visCnt + area.Columns.Count * area.Rows.Count
        ElseIf mode > 0 Then
            visCnt = visCnt + area.Rows.Count
        Else
            visCnt = visCnt + area.Columns.Count
        End If
    Next
    On Error Goto 0

   getListObjectVisibleCount = visCnt

End Sub

编辑:从演示子更改为函数。返回单元格计数、行计数或列计数。