Amazon VBA Manuel d'utilisateur télécharger pdf (Page 39)

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

12_0789736012_CH11.qxd 12/11/06 6:26 PM Page 269

1 2 ... 34 35 36 37 38 39 40 41 42 43 44 ... 59 60

Commentaires sur ces manuels

Pas de commentaire

Samsung LRS35LMGLM Uživatelský manuál (2 strany)

Značka: Samsung | Kategorie: No info | Velikost: 1.49 MB |

Tabulka s obsahem

1588-3366

알아두면 냉장고 척척박사!

Další produkty a příručky pro ne Samsung

Modely	Typ Dokumentu
ZDZ30	Uživatelský manuál Samsung ZDZ30 빠른 시작 가이드, 2 stránky
HMX-H205BP	Uživatelský manuál Samsung HMX-H200LP 사용자 매뉴얼, 141 stránky
ME83KRQS-3	Uživatelský manuál Samsung Микроволновая печь Соло ME83KRQS-3, 23 л Инструкция по использованию, 144 stránky
HMX-T10BN	Uživatelský manuál Samsung HMX-T10BN 사용자 매뉴얼, 123 stránky
UA70KU6000K	Uživatelský manuál Samsung 70'' UHD 4K Flat Smart TV KU6000 Series 6 คู่มือการใช้, 16 stránky
SPH-X1000W	Uživatelský manuál Samsung SPH-X1000W 사용자 매뉴얼, 152 stránky
DB10D	Uživatelský manuál Samsung DB10D 빠른 시작 가이드 [da] , 2 stránky
LT17E2B	Uživatelský manuál Samsung LT17E2B 사용자 매뉴얼, 32 stránky
WF80F5E5U2X/AH	Uživatelský manuál Samsung WF80F5E5U2X/AH Hızlı başlangıç Kılavuzu [ja] [zh] , 9 stránky
SAMSUNG ST500	Uživatelský manuál Samsung ST500 Používateľská príručka, 110 stránky
YP-Q2JAB	Uživatelský manuál Samsung YP-Q2JAB Bruksanvisning, 99 stránky
WF600U0BCWQ	Uživatelský manuál Samsung Стиральная машина BAIKAL2 с цифровым инверторным двигателем, 6 кг Инструкция по использованию [da] , 42 stránky
UN65NU7100F	Uživatelský manuál Samsung QLED TV QN65Q7FNAFXKR 163 cm 사용자 설명서, 152 stránky
SM-G925X	Uživatelský manuál Samsung SM-G925F دليل المستخدم (Lollipop), 152 stránky
OM46D-W	Uživatelský manuál Samsung OM55D-W الدليل السريع [ja] [zh] , 2 stránky
MA30	Uživatelský manuál Samsung MA30 빠른 시작 가이드, 4 stránky
SRT74HWSGM	Uživatelský manuál Samsung SRT74HWSGM 빠른 시작 가이드, 22 stránky
CPN22NF	Uživatelský manuál Samsung CPN22NF 사용자 매뉴얼 [ar] , 35 stránky
AR18KSFHBWKN	Uživatelský manuál Samsung AR18KSFHBWKN Benutzerhandbuch, 31 stránky
WT-36Z4HD	Uživatelský manuál Samsung WT-36Z4HD 사용자 매뉴얼, 41 stránky