Avviare lo script VBA digitando il seguente :
Create_Pivot_Table_From_Cache ( ) economici 2
Specificare i metodi del perno seguendo con il ripercorrono tre righe di codice VBA :
Dim OPC come PivotCache
Dim optare Come pivot
Dim OWS come manuale
3
Specificare le funzioni di OPC opt e OWS aggiungendo le seguenti righe di codice:
OWS = ActiveSheet
oPC = ActiveWorkbook.PivotCaches.Create ( xlDatabase , oWS.UsedRange ) per
opt = oPC.CreatvePivotTable ( oWS. [ D20 ] , " Pivot da cache ", True ) economici 4
Specificare come i campi dovrebbero pivot, o calcolare i dati , utilizzando le seguenti righe di codice . Si noti che in questo esempio, i nomi dei campi delle colonne di dati possono essere diversi dai vostri.
OPT.AddFields ( oPT.PivotFields ( "Prezzo") . Denominazione,
oPT.PivotFields ( "Prodotto" ) . Nome ) per
oPT.AddDataField ( oPT.PivotFields ( "Tipo" ) , " Tipo di prodotto " , xlSum ) economici 5
eseguire lo script VBA all'interno di un programma compatibile come Excel e visualizzare la tabella generata imperniati .
Programmazione © www.354353.com