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

Listing 11.8 Code Used to Create the Top 5 Markets Report

Sub Top5Markets()

‘ Listing 11.8

‘ Produce a report of the top 5 markets

Dim WSD As Worksheet

Dim WSR As Worksheet

Dim WBN As Workbook

Dim PTCache As PivotCache

Dim PT As PivotTable

Dim PRange As Range

Dim FinalRow As Long

Set WSD = Worksheets(“PivotTable”)

‘ Delete any prior pivot tables

For Each PT In WSD.PivotTables

PT.TableRange2.Clear

Next PT

WSD.Range(“R1:AZ1”).EntireColumn.Clear

‘ Define input area and set up a Pivot Cache

FinalRow = WSD.Cells(Rows.Count, 1).End(xlUp).Row

FinalCol = WSD.Cells(1, Columns.Count). _

End(xlToLeft).Column

Set PRange = WSD.Cells(1, 1).Resize(FinalRow, FinalCol)

Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:= _

xlDatabase, SourceData:=PRange.Address)

‘ Create the Pivot Table from the Pivot Cache

Set PT = PTCache.CreatePivotTable(TableDestination:=WSD. _

Cells(2, FinalCol + 2), TableName:=”PivotTable1”)

‘ Turn off updating while building the table

PT.ManualUpdate = True

‘ Set up the row fields

PT.AddFields RowFields:=”Market”, ColumnFields:=”Product”

‘ Set up the data fields

With PT.PivotFields(“Revenue”)

.Orientation = xlDataField

.Function = xlSum

Chapter 11 Using VBA to Create Pivot Tables

268

Figure 11.19

The Top 5 Markets report

contains two pivot

tables.

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

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

Commentaires sur ces manuels

Pas de commentaire

Modelle	Dokumententyp
HPS50	Bedienungsanleitung Velleman HPS50 User Manual, 72 Seiten
LAB2	Bedienungsanleitung Velleman LAB2 User Manual, 32 Seiten
PCS10	Bedienungsanleitung Velleman PCS10 User Manual, 7 Seiten
BPAPS230	Bedienungsanleitung Velleman BPAPS230 User Manual, 2 Seiten
LAB1	Bedienungsanleitung Velleman LAB1 User Manual, 64 Seiten
PCSU1000 RECORDER	Bedienungsanleitung Velleman PCSU1000 RECORDER User Manual, 7 Seiten
PCS100A pcs100 - pcs500 - k8031	Bedienungsanleitung Velleman PCS100A pcs100 - pcs500 - k8031 User Manual, 25 Seiten
PCGU1000	Bedienungsanleitung Velleman PCGU1000 User Manual, 13 Seiten
PCSGU250	Bedienungsanleitung Velleman PCSGU250 User Manual, 40 Seiten
VDP900HZ2	Bedienungsanleitung Velleman VDP900HZ2 User Manual, 28 Seiten
VDP1500SM	Bedienungsanleitung Velleman VDP1500SM User Manual, 19 Seiten
VDL800SMT2	Bedienungsanleitung Velleman VDL800SMT2 User Manual, 23 Seiten
PMLCD	Bedienungsanleitung Velleman PMLCD User Manual, 7 Seiten
VDL400SM	Bedienungsanleitung Velleman VDL400SM User Manual, 19 Seiten
VDP1000SWN	Bedienungsanleitung Velleman VDP1000SWN User Manual [en] , 16 Seiten

Amazon VBA Manuel d'utilisateur Page 38

Commentaires sur ces manuels

Velleman WEH200 Handbücher

Velleman WEH200 Bedienungsanleitung (16 Seiten)

Inhaltsverzeichnis

Weitere Produkte und Handbücher für Ausrüstung Velleman

Amazon VBA Manuel d'utilisateur Page 38

Commentaires sur ces manuels

Produits connexes et manuels pour Logiciel Amazon VBA

Velleman WEH200 Handbücher

Velleman WEH200 Bedienungsanleitung (16 Seiten)

Inhaltsverzeichnis

Weitere Produkte und Handbücher für Ausrüstung Velleman