VBA - Tworzenie tabeli przestawnej
Вставка
- Опубліковано 23 жов 2024
- Tworzenie tabeli przestawnej VBA
Link do fajnego artykułu odnośnie tworzenia tabeli przestawnej w VBA:
www.wallstreet...
--------------
Kod VBA
--------------
Sub Create_PT()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim wb As Workbook
Set wb = ActiveWorkbook
Dim PivotTableCache As PivotCache
Dim PivotTable As PivotTable
Worksheets("2020").Activate
'Definiujemy pamięć podręczną tabeli
Set PivotTableCache = wb.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=Range("Sales_2020[#All]"), Version:=xlPivotTableVersion15)
'Utwórz tabelę
Set PivotTable = ws.PivotTables.Add(PivotCache:=PivotTableCache, _
TableDestination:=Range("S1"), TableName:="Analiza Sprzedaży")
With PivotTable
.PivotFields("Segment").Orientation = xlRowField
.PivotFields("Country").Orientation = xlColumnField
.PivotFields("Sales").Orientation = xlDataField
.PivotFields("Suma z Sales").NumberFormat = "# ##0,00"
End With
End Sub