Results 1 to 2 of 2
Thread: Excel, ...
Hybrid View
-
16th March 2007 21:29 #1
Excel, ...
,
... , PivotTable , 2 n- . ,
, , Pivot-a SourceData .
, ...Sub form()
range("a1:B1").Select
range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Add(SourceTyp e:=xlDatabase, SourceData:= .......).reatePivotTable TableDestination:="", TableName:= _
"PivotTable2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(1, 1)
ActiveSheet.Cells(1, 1).Select
ActiveSheet.PivotTables("PivotTable2").A ddFields RowFields:="KatN"
ActiveSheet.PivotTables("PivotTable2").P ivotFields("Kol").Orientation = _
xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Vi sible = False
range("A1").Select
ActiveWorkbook.Save
Application.CommandBars("Stop Recording").Visible = False
End Sub
-
30th March 2007 12:42 #2
Selection
,SourceData:= .......).reatePivotTable
SourceData:= Selection).CreatePivotTable, , , ,




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in