Results 1 to 2 of 2

Thread: Excel, ...

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User manito's Avatar
    Join Date: Dec:2005
    Location:
    Posts: 16

    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
    , ...

  2. #2
    's Avatar
    Join Date: Mar:2005
    Location:
    Posts: 379
    Selection
    SourceData:= .......).reatePivotTable
    ,
    SourceData:= Selection).CreatePivotTable
    , , , ,

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |