Excel VBA识别excel界面中可见的pivotItems

Question

我的数据透视表包含一个过滤器，用于过滤带有"Days_Outstnading_Category"=">180 days" 的项目。

过滤后，我的行字段"Operating Units"只有2个项目显示在excel界面中，“美国”和“印度”，虽然“运营单位”中的所有项目都有Visible=True，但实际上只有2个项目可见在excel界面中。

我想知道如何识别这两个项目，因为 If pivotItem.Visible=True 现在无法使用。

最终我想迭代并选择出现在 excel 界面中的每个项目的 LabelRange（A5:A12、A14:A27、B5、B6:B9 等）并对每个范围进行一些格式更改。我下面的代码带来了一个找不到labelrange的错误。

> For Each ptRowField In pt.RowFields
>      For Each ptRowFieldItem In ptRowField.PivotItems
>          If ptRowFieldItem.Visible = True Then
>              Call SetOusideBorder(ptRowFieldItem.LabelRange)
>          End If
>      Next ptRowFieldItem 
> Next ptRowField

Answer 1

我用过的最简单的方法是抓取数据透视表中包含行标签的列。

在我的示例数据集中，我有七种颜色：红色、橙色、黄色、绿色、蓝色、靛蓝和紫色。我已经设置了数据并创建了一个数据透视表，然后对其进行了过滤，因此只显示了三种颜色：

因此，您可以使用 .RowRange 属性访问数据透视表中的行标签列。一旦你有了它，你就可以降级单元格：

Option Explicit

Public Sub ListVisibleItems()
    Dim thisPivot As PivotTable
    Set thisPivot = ActiveSheet.PivotTables(1)

    Dim rowField As PivotField
    Set rowField = thisPivot.RowFields("Color")

    Dim theseRows As Range
    Set theseRows = thisPivot.RowRange

    Dim i As Long
    '--- start at 2 to skip the "Row Labels" and end at Count-1
    '    to skip the "Grand Total" 
    For i = 2 To theseRows.Count - 1
        Debug.Print theseRows.Cells(i, 1) & " is visible"
    Next i
End Sub

编辑：更新示例代码以解析 OP 的示例数据

Option Explicit

Public Sub ListVisibleItems()
    Dim thisPivot As PivotTable
    Set thisPivot = ActiveSheet.PivotTables(1)

    Dim rowField As PivotField
    Set rowField = thisPivot.RowFields("Color")

    Dim theseRows As Range
    Set theseRows = thisPivot.RowRange

    Dim i As Long
    '--- start at 2 to skip the "Operating Units" and end at Count-1
    '    to skip the "Grand Total" 
    For i = 2 To theseRows.Count - 1
        '--- check to make sure the row is not empty and that
        '    the value does NOT have the word "Total"
        If Len(theseRows.Cells(i, 1)) > 0 Then
            If Not theseRows.Cells(i, 1) Like "*Total" Then
                Debug.Print theseRows.Cells(i, 1) & " is visible"
                '--- you can use this result as the field name
                '    to select and format the data area
            End If
        End If
    Next i
End Sub