«

»

már 29

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


Vélemény, hozzászólás?

Az email címet nem tesszük közzé. A kötelező mezőket * karakterrel jelöljük.

Az alábbi HTML kódok használhatóak: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

css.php