How to create pivot table using vba code

Publié le: 20 mai 2020
sur la chaîne: VBA Learning tutorials

186

How to create pivot table using vba code

Sub CreatePivotTable()

Dim pc As PivotCache
Dim pt As PivotTable
Dim pf As PivotField

Set pc = ThisWorkbook.PivotCaches.Create(xlDatabase, SourceData:=Sheet1.Name & "!" & Sheet1.Range("A1").CurrentRegion.Address, Version:=xlPivotTableVersion15)

Worksheets.Add

Range("A1").Select

Set pt = pc.CreatePivotTable(TableDestination:=ActiveCell, TableName:="Emp Report")

Set pf = pt.PivotFields("Product")
pf.Orientation = xlRowField

Set pf = pt.PivotFields("Region")
pf.Orientation = xlColumnField

Set pf = pt.PivotFields("Name")
pf.Orientation = xlDataField

ActiveSheet.PivotTables("Emp Report").NullString = 0

End Sub

Sur cette page du site, vous pouvez voir la vidéo en ligne How to create pivot table using vba code durée heure minute seconde en bonne qualité , qui a été Téléchargé par l'utilisateur VBA Learning tutorials 20 mai 2020, Partagez le lien avec vos amis et connaissances, sur youtube cette vidéo a déjà été regardée 186 fois et il a aimé 4 téléspectateurs. Bon visionnage!

550