Amazon VBA Bedienungsanleitung Seite 39

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 60
  • Inhaltsverzeichnis
  • LESEZEICHEN
  • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 38
269
Using Advanced Pivot Table Techniques
.Position = 1
.NumberFormat = “#,##0”
.Name = “Total Revenue”
End With
‘ Ensure that we get zeros instead of blanks in the data area
PT.NullString = “0”
‘ Sort markets descending by sum of revenue
PT.PivotFields(“Market”).AutoSort Order:=xlDescending, _
Field:=”Total Revenue”
‘ Show only the top 5 markets
PT.PivotFields(“Market”).AutoShow Type:=xlAutomatic, Range:=xlTop, _
Count:=5, Field:=”Total Revenue”
‘ Calc the pivot table to allow the date label to be drawn
PT.ManualUpdate = False
PT.ManualUpdate = True
‘ Create a new blank workbook with one worksheet
Set WBN = Workbooks.Add(xlWBATWorksheet)
Set WSR = WBN.Worksheets(1)
WSR.Name = “Report”
‘ Set up title for report
With WSR.[A1]
.Value = “Top 5 Markets”
.Font.Size = 14
End With
‘ Copy the pivot table data to row 3 of the report sheet
‘ Use offset to eliminate the title row of the pivot table
PT.TableRange2.Offset(1, 0).Copy
WSR.[A3].PasteSpecial Paste:=xlPasteValuesAndNumberFormats
LastRow = WSR.Cells(65536, 1).End(xlUp).Row
WSR.Cells(LastRow, 1).Value = “Top 5 Total”
‘ Go back to the pivot table to get totals without the AutoShow
PT.PivotFields(“Market”).Orientation = xlHidden
PT.ManualUpdate = False
PT.ManualUpdate = True
PT.TableRange2.Offset(2, 0).Copy
WSR.Cells(LastRow + 2, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
WSR.Cells(LastRow + 2, 1).Value = “Total Company”
‘ Clear the pivot table
PT.TableRange2.Clear
Set PTCache = Nothing
‘ Do some basic formatting
‘ Autofit columns, bold the headings, right-align
WSR.Range(WSR.Range(“A3”), WSR.Cells(LastRow + 2, 10)).Columns.AutoFit
Range(“A3”).EntireRow.Font.Bold = True
Range(“A3”).EntireRow.HorizontalAlignment = xlRight
Range(“A3”).HorizontalAlignment = xlLeft
Range(“A2”).Select
MsgBox “CEO Report has been Created”
End Sub
11
12_0789736012_CH11.qxd 12/11/06 6:26 PM Page 269
Seitenansicht 38
1 2 ... 34 35 36 37 38 39 40 41 42 43 44 ... 59 60

Kommentare zu diesen Handbüchern

Keine Kommentare

Electrolux GK56P PL.3 CN manuals

Owner’s manuals and user’s guides for Unknown Electrolux GK56P PL.3 CN.
We providing 2 pdf manuals Electrolux GK56P PL.3 CN for download free by document types: User Manual






More products and manuals for Unknown Electrolux

Models Document Type
EBSL6GTC.4CN User Manual   Electrolux EBSL6TC.4SW Manuale utente, 40 pages
GK56PCN User Manual   Electrolux GK56PCN Manuel utilisateur [fr] , 16 pages
EVE677SA Recipe Book   Electrolux EVE676BA Recipe Book, 16 pages
FR63X User Manual   Electrolux FR63X User Manual [de] [en] [fr] [it] , 24 pages
GK78CRO User Manual Electrolux GK78CRO Brugermanual, 20 pages
EBL40SW User Manual   Electrolux EBL40WE Manuale utente [fr] , 36 pages
EOC6697X User Manual   Electrolux EOC6697X Ohjekirja, 60 pages
ZB 250 User Manual     Electrolux SPIRIT3000 Brugermanual [en] , 15 pages
ESF4510LOX User Manual Electrolux ESF4510LOX User Manual, 20 pages
EWF1297HDW User Manual    Electrolux EWF1297HDW Használati utasítás, 56 pages
EWF10679W User Manual     Electrolux EWF10679W Korisnički priručnik, 88 pages
EBGL7GSP User Manual   Electrolux EBGL7GWE Manuale utente, 32 pages
GK78TSIPCN User Manual   Electrolux GK78TSIPCN Manuale utente [fr] , 28 pages
EBGL70CN User Manual   Electrolux EBGL70WE Manuel utilisateur [da] [sv] , 32 pages
ESF4600ROX User Manual   Electrolux ESF4600ROX Manuali i perdoruesit [en] , 20 pages
EEC5750AOX User Manual   Electrolux EEC5750AOX Manuali i perdoruesit [de] [en] , 40 pages
EOB3637WELUXSPAIN User Manual    Electrolux EOB3637XELUXSPAIN Manual de usuario, 48 pages
EBSL7WE User Manual   Electrolux EBSL7WE Manuel utilisateur, 40 pages
GK80VarioPlusCN User Manual   Electrolux GK80VarioPlusCN Manuel utilisateur [it] , 19 pages
EFT604X User Manual   Electrolux EFT604X Benutzerhandbuch [de] , 11 pages