Come creare un pivot in VBA

January 11

di Microsoft Visual Basic (VBA) è una ridotta all'osso e il linguaggio di programmazione in anticipo sviluppati per aiutare a creare applicazioni desktop, facilitare l'ordinamento dei dati e consentire la generazione di report basati sui dati. È possibile utilizzare questa utilizzare anche VBA per creare una tabella pivot per riepilogare i dati in combinazione con un foglio di calcolo come Microsoft Excel. Usando un piccolo frammento di codice VBA, è possibile creare un perno da una tabella di dati esistente in modo relativamente semplice.

istruzione

1 Avviare lo script VBA digitando la seguente:

Create_Pivot_Table_From_Cache ()

2 Specificare i metodi del perno, seguendo con le ripercorrono tre righe di codice VBA:

Dim OPC come PivotCache

Dim opt come pivot

OWS fiochi come foglio di lavoro

3 Specificare le funzioni OPC, Opt, e OWS aggiungendo le seguenti righe di codice:

OWS = ActiveSheet

oPC = ActiveWorkbook.PivotCaches.Create (xlDatabase, oWS.UsedRange)

Opt = oPC.CreatvePivotTable (OWS. [D20], "pivot da Cache", True)

4 Specificare come i campi devono ruotare, 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 dal vostro.

oPT.AddFields (oPT.PivotFields ( "Prezzo") .Name,

oPT.PivotFields ( "Prodotto") .Name)

oPT.AddDataField (oPT.PivotFields ( "Tipo"), "Tipo di prodotto", xlSum)

5 Eseguire lo script VBA all'interno di un programma compatibile come Excel e visualizzare la tabella imperniato generato.