How to create pivot table using vba code

Опубликовано: 20 Май 2020
на канале: 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

На этой странице сайта вы можете посмотреть видео онлайн How to create pivot table using vba code длительностью часов минут секунд в хорошем качестве, которое загрузил пользователь VBA Learning tutorials 20 Май 2020, поделитесь ссылкой с друзьями и знакомыми, на youtube это видео уже посмотрели 186 раз и оно понравилось 4 зрителям. Приятного просмотра!

550