Как ссылаться на ячейки в сводной таблице, используя значения полей?

Question

У меня есть сводная таблица, созданная из 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

Answer 1

Не уверен, но, возможно, вам нужна функция GetPivotData ?