迭代列表对象的行，如何访问整行？

Question

我来找你是因为在线 VBA 文献在处理表格和列表对象时没有显示很多结果。

使用以下代码，我将列表对象项添加到用户表单中的列表框中。 我遍历列表对象的行。 但我需要验证该行是否隐藏，因为有时电子表格中的表格上会有过滤器：

With Main
    .Clear
    Dim i As Long
    For i = 1 To tblDataMaster.ListRows.Count
        If tblDataMaster.Row(i).Hidden = False Then
            .AddItem
            Dim j As Integer
            For j = 0 To 9
                .List(.ListCount - 1, j) = tblDataMaster.DataBodyRange(i, (j + 5))
            Next j
        End If
    Next i
    End With

当然，由于 .Row 不是列表对象的属性，因此代码将不起作用。 但只是为了说明，If 语句需要验证该行是否隐藏。 如果不是，那么它将用它填充列表框。

.DataBodyRange(i,1)类的东西也.DataBodyRange(i,1) 。

任何帮助，不胜感激。

Answer 1

关键是使用ListRow.Range 。

Dim tblRow As ListRow
For Each tblRow In tblDataMaster.ListRows
    If Not tblRow.Range.EntireRow.Hidden Then
        ...
    End If
Next

或者如果按索引迭代：

For i = 1 To tblDataMaster.ListRows.Count
    If Not tblDataMaster.ListRows(i).Range.EntireRow.Hidden Then
        ...
    End If
Next