PowerPivot kimutatás értékmezők berakása Szeletelőből

Az előző bejegyzésben megmutattam, hogyan lehet egy segéd kimutatás és néhány sor VBA kód segítségével szeletelőből berakni érték mezőket (value fields) a kimutatásba.

PowerPivotra is alkalmazható a megoldás, csak a VBA kódban kell egy kicsit változtatni: itt CubeFields-t használunk és más string-el rakjuk be a choice elnevezésből kiolvasott mezőnevet.

Az alábbi kódot tudjátok bemásolni a megfelelő munkalap kód moduljába – minden előző lépés és magyarázat azonos az előző bejegyzésben a hagyományos kimutatásnál leírtakkal.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    
    Dim ptMain As PivotTable
    Dim pfMeasure As CubeField
    Dim i As Long
    
    On Error GoTo Errorhandler

    Set ptMain = ThisWorkbook.Worksheets("Pivot").PivotTables("PivotTable1")

    For Each pfMeasure In ptMain.CubeFields
        If pfMeasure.Orientation = xlDataField Then
            pfMeasure.Orientation = xlHidden
        End If
    Next
    
    i = 0
    Do While [choice].Offset(i, 0).Value <> ""
        ptMain.AddDataField ptMain.CubeFields("[Measures].[" & [choice].Offset(i, 0).Value & "]")
        i = i + 1
    Loop
    
    Exit Sub
    
Errorhandler:
Debug.Print Now(), Err.Description
    
End Sub