Sub CreatePivotTable ()
'
Pasmo ("A1"). Wybiórka
Selection.CurrentRegion.Select
ActiveSheet.PivotTableWizard SourceType: =xlDatabase, SourceData: = _
""Surowy Faktyczny Dane! R1C1: R3286C6", TableDestination: = "", TableName: = _
"PivotTable2"
ActiveSheet.PivotTables ("PivotTable2") .SmallGrid = Fałszywy
ActiveSheet.PivotTables ("PivotTable2") .AddFields RowFields: =Array ("Zgłębiać", _
"Naturalny Klasowy B "" (GDE) """, "Dept2")
Z ActiveSheet.PivotTables ("PivotTable2") .PivotFields ("Actuals")
. Orientacja = xlDataField
. Imię = "Suma Actuals"
. Funkcja = xlSum
Końcówka Z
ActiveSheet.Name = "Actuals Pivot Stół"
Końcówka Okręt podwodny
|