Microsoft Excel è un foglio di calcolo . Una caratteristica di questo programma è che è possibile utilizzare i fogli di lavoro per memorizzare i dati in modo simile a come si farebbe in un database e quindi fare riferimento a visualizzazioni grafiche dinamiche. Ci sono due tipi di display è possibile utilizzare: tabelle e grafici pivot . Tabelle pivot possono essere utilizzati per ordinare , filtrare e riepilogare i dati . L'unico modo per modificare l'origine dati utilizzata da una tabella pivot , una volta che è stato creato con la procedura guidata è di aggiornarlo dal codice VBA in background . Istruzioni
1
Creare un oggetto tabella pivot in VBA in modo da poter aggiornare la fonte. Copia il codice qui sotto e metterlo nella macro o funzione.
Dim ptMyPivotTable Come pivot
2
Collegate il vostro oggetto con la tabella pivot Tabella pivot effettivo . Copia il codice qui sotto .
PtMyPivotTable = ActiveSheet.PivotTables ( 1)
3
aggiornare la proprietà SourceData del vostro oggetto tabella pivot per i nuovi valori . È possibile farlo copiando il codice VBA in dotazione. Sostituire il campo dati desiderato al posto di " A1 " nell'esempio .
PtMyPivotTable.SourceData = Range (" A1" ) . CurrentRegion.Address ( vero, vero , xlR1C1 , True)
per fare riferimento a un intervallo su un foglio diverso, è possibile utilizzare il seguente codice .
ptMyPivotTable.SourceData = Sheets (" mySheetName " ) . [ A1 ] . CurrentRegion.Address ( vero, vero , xlR1C1 , True)
4
aggiornare i dati effettivamente visualizzati nella vostra tabella pivot utilizzando il comando VBA di seguito .
ptMyPivotTable.RefreshTable
5
rilasciare le risorse utilizzate in l'oggetto tabella pivot impostandolo uguale a Nothing .
ptMyPivotTable = Nothing