Найти адрес конкретного PivotItem

Question

У меня есть значение для RowField.Name и значение для PivotItem.Name в RowFields, я хочу выделить конкретную ячейку. Но я не могу найти способ, который позволяет мне перебирать все видимые RowField.

В идеале я хочу что-то вроде этого:

Sub LoopThroughPivotAndFindValue() 
dim pt as PivotTable, pi as PivotItem, pf as PivotField 

Set pt = wb.PivotTables("PivotTableNo1") 

For each pf in pt.PivotFields 
    For each pi in pf.PivotItems 
    If pf.Name = "Test" And pi.Name = "Value" Then 
     'Ideally here would be the output of the address within the sheet 
    End If 
    Next pi 
next pf 
End Sub 

В конце концов, я хочу, чтобы цвет конкретных ячеек в сводной таблице, но я не могу найти способ сделать это правильно. Я не знаю об индексе.

У кого-нибудь есть идея?

Answer 1

Не зная точно, как выглядит сводная таблица, я точно не могу ответить, но могу вам сказать, что то, что вы собираетесь использовать, - это метод GetPivotData, где вы можете назвать поле и элемент, который вы ищете get и он вернет диапазон.

Надеюсь, что это трюк!

Answer 2

UDF может быть полезно также, это может быть хорошим началом для вас:

Sub test_Spurious() 
    MsgBox LoopThroughPivotAndFindValue("Test", "Value") 
End Sub 

А вот функция:

Function LoopThroughPivotAndFindValue(ByVal PivotFieldName As String, ByVal PivotItemName As String) As String 
Dim pT As PivotTable, _ 
    pI As PivotItem, _ 
    pF As PivotField, _ 
    FoundIt As Boolean 

FoundIt = False 
Set pT = ActiveSheet.PivotTables(1) 

For Each pF In pT.PivotFields 
    For Each pI In pF.PivotItems 
     If pF.Name = PivotFieldName And pI.Name = PivotItemName Then 
      'Ideally here would be the output of the address within the sheet 
      On Error GoTo ErrHandler 
      FoundIt = True 
      LoopThroughPivotAndFindValue = pI.LabelRange.Address 
      Exit For 
      On Error GoTo 0 
     End If 
    Next pI 
Next pF 

If FoundIt Then GoTo FreeObjects 
ErrHandler: 
    LoopThroughPivotAndFindValue = "Nothing" 

FreeObjects: 
    Set pT = Nothing 
End Function 

Так что, я бы сказал, что лучший способ чтобы сохранить результат в переменной temp и проверить, является ли оно Nothing (в обычном тексте, а не в параллельном объекте), а затем используйте адрес, чтобы его покрасить!