Come riferire le celle in una tabella pivot utilizzando i valori di field?

Ho una tabella pivot creata da 3 campi where (ad esempio):

I valori field1 sono: "1", "3", "5"
I valori field2 sono: "A", "B", "C"
I valori field3 sono: "X", "Y", "Z"

Quindi, date una tabella pivot PT1 voglio fare riferimento a una cella all'interno della tabella in modo analogo a PT1["1"]["B"]["Y"] e get un elemento Range restituito. È ansible? Grazie.

EDIT: codici:

 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 

Solutions Collecting From Web of "Come riferire le celle in una tabella pivot utilizzando i valori di field?"