0

我有一个从 3 个字段创建的数据透视表，其中（例如）：

field1 值是："1", "3", "5"
field2 值是："A", "B", "C"
field3 值是："X", "Y", "Z"

因此，给定一个数据透视表 PT1，我想以类似的方式引用表中的一个单元格PT1["1"]["B"]["Y"]并返回一个 Range 项。这可能吗？谢谢。

编辑：代码：

Public Sub ColorIt2()
Dim rng As Range

For Each t_item In ActiveSheet.PivotTables("PivotTable1").PivotFields("F1").PivotItems
For Each r_item In ActiveSheet.PivotTables("PivotTable1").PivotFields("F2").PivotItems
    For Each h_item In ActiveSheet.PivotTables("PivotTable1").PivotFields("F3").PivotItems
        For Each b_item In ActiveSheet.PivotTables("PivotTable1").PivotFields("F4").PivotItems

            If t_item.RecordCount <> 0 Or _
                r_item.RecordCount <> 0 Or _
                h_item.RecordCount <> 0 Or _
                b_item.RecordCount <> 0 Then
                    Set rng = ActiveSheet.PivotTables("PivotTable1").GetPivotData(t_item, r_item, h_item, b_item)
                    rng.Select
                    Selection.Interior.ColorIndex = 40
                    Selection.Interior.Pattern = xlSolid
                End If
            End If
        Next b_item
    Next h_item
Next r_item
Next t_item

End Sub
4

1 回答 1

0

不确定，但也许您想要GetPivotData函数？

于 2010-08-31T19:17:04.467 回答