Come faccio a creare la tabella pivot con VBA ?

Creazione di tabelle pivot in Excel utilizzando Visual Basic, Applications Edition (VBA ), è possibile risparmiare tempo a causa di tuo non dover creare manualmente le tabelle . VBA è un linguaggio di programmazione utilizzato in applicazioni di Microsoft Office per automatizzare le attività di routine, come la creazione di una tabella pivot . Non spendere il vostro tempo a creare tabelle pivot manualmente se si dispone di molti fogli della cartella di lavoro , invece di creare una routine Sub per creare in modo dinamico . Cose che ti serviranno
Microsoft Office Excel
Mostra più istruzioni
1

lancio di Microsoft Office Excel e digitare "Cliente" in " A1 ", " voce " a " B1 , "e" quantità "in" C1 " . Tipo " Jon " a " A2 ", " Jon " a " A3 ", " Clara " in " A4 ", " Clara " in " A5 " e " Clara " in " A6 ". Tipo "soda " in " B2 ", "birra" a " B3 ", "soda " in " B4 ", " acqua " in " B5 " e "birra" in " A6 " . Digitare " 2 " in " C2 ", " 5 " in " C3 ", " 10 " in " C4 ", "12" in " C5 " e "15" in " C6 ".
2

Fare clic sulla scheda "Sviluppatore " e cliccare su " Visual Basic " per lanciare il VB Editor. Digitare il seguente codice per creare una nuova sotto procedura VBA :

createPivotTable Private Sub ( )
3

Creare le variabili che si intende utilizzare per creare la tabella pivot con l'aggiunta del seguente codice:

Dim pt Come pivot

Dim wrkSht come manuale

Dim pvtSht come manuale

Dim PTCache Come PivotCache

Dim Prange come gamma

Dim finalRow As Long Dim

finalCol As Long
4

Definire i fogli di lavoro che si intende utilizzare :

wrkSht = fogli di lavoro ( " Foglio1 " ) per

pvtSht = Worksheets ( " Foglio2 " ) economici 5

determinare la riga e numero di colonna con i dati :

finalRow = wrkSht.Cells ( Application.Rows.Count , 1) . End ( xlUp ) . Row

finalCol wrkSht.Cells = ( 1 , Application.Columns.Count ) . End ( xlToLeft ) . Colonna
6

Definire l'intervallo per i dati :

Prange wrkSht.Cells = ( 1 , 1) Resize ( finalRow , finalCol ) per

PTCache = ActiveWorkbook.PivotCaches.Add ( SourceType . : = xlDatabase , SourceData : = Prange ) economici 7

Creare la tabella pivot in " Foglio2 : "

pt = PTCache.createPivotTable ( TableDestination : pvtSht.Cells = ( 1 , 1 ) , _

NomeTabella : = " SamplePivot " ) per

pt.ManualUpdate = True
8

Definire i dati di origine per la tabella pivot :

pt.AddFields RowFields : . . = Array ( " Item" ) per

pt.PivotFields ( " quantità " ) per

Orientamento = xlDataField

Funzione = xlSum

. Posizione = 1

End With

pt.ManualUpdate = False
9

finire il tuo sub digitando "End Sub " nel fine della vostra procedura . Premere il tasto " F5 " per eseguire la procedura e creare la tabella pivot utilizzando VBA .

• Come utilizzare un CheckBox e un controllo ComboBox in un DataGridView 
• Come utilizzare API di Windows per cambiare lo sfondo desktop utilizzando VB6