inserire i dati da analizzare

sintassi:
ActiveSheet.PivotTables("NOME TABELLA").PivotFields("NOME CAMPO")

• .Orientation =
• xlRowField righe
• xlColumnField colonne
• xlPageField intestazione
• xlHidden togliere



• .Position =
indicare con un numero la posizione (se non si mette sarà messo per ultimo)



esempio: tabella "Riepilogo" mettere il campo "Tipo" nella riga nella posizione 2
With ActiveSheet.PivotTables("Riepilogo").PivotFields("Tipo")

.Orientation = xlRowField
.Position = 2

End With



esempio: creo un array che mi inserisce nelle varie posizioni le righe che mi interessano
Dim righe(3)
righe(1) = "Nome"
righe(2) = "Cognome"
righe(3) = "Anno"

For x = 1 To 3

With ActiveSheet.PivotTables("PIVOT").PivotFields(righe(x))

.Orientation = xlRowField
.Position = x

End With


Next x

esempio: tolgo la riga Tipo
ActiveSheet.PivotTables("PIVOT").PivotFields("Tipo").Orientation = xlHidden




---




inserire i dati da calcolare

sintassi inserimento:
ActiveSheet.PivotTables("PIVOT").Adddata Field ActiveSheet.PivotTables("PIVOT").PivotFields("CAMPO"), "etichetta del campo", FUNZIONE


funzioni:
• xlSum somma

sintassi formato numero:
ActiveSheet.PivotTables("PIVOT").PivotFields("ETICHETTA CAMPO").NumberFormat = "...."
vedi comandi formato numero



---




filtrare i dati

sintassi:
ActiveSheet.PivotTables("PIVOT").PivotFields("CAMPO").PivotItems("valore da filtrare").Visible = True/False




esempio di filtro:
With ActiveSheet.PivotTables("PIVOT").PivotFields("CAMPO")

.PivotItems("").Visible = True
.PivotItems("(blank)").Visible = False

End With

esempio: creo un filtro automatco tramite un ciclo for e un controllo if
Dim filtro As PivotItem dichiaro la variabile come Item della pivot

For Each filtro In ActiveSheet.PivotTables("TABELLA").PivotFields("CAMPO").PivotItems



If filtro = "xxx" Or filtro = "yyy" Then

filtro.Visible = True

Else

filtro.Visible = False

End If



Next filtro



per togliere i filtri e ripristinare tutti i dati si usa: .ClearAllFilters

esempio
ActiveSheet.PivotTables("Riepilogo").PivotFields("Campo").ClearAllFilters




---




ordinare i dati

sintassi:
ActiveSheet.PivotTables("PIVOT").PivotFields("CAMPO").AutoSort TIPO, "CAMPO"


tipo:
• xlAscending ascendente (A → Z)
• xlDescending discendente (Z → A)

esempio:
ActiveSheet.PivotTables("Situazioni_aperte").PivotFields("Mediatore").AutoSort xlAscending, "Mediatore"




---




contare i dati

sintassi:
ActiveSheet.PivotTables().Count

esempio: memorizzo quante tabelle ci sono nel foglio
numero = ActiveSheet.PivotTables().Count




---




aggiornare i dati

sintassi:
ActiveSheet.PivotTables("NOME TABELLA").PivotCache.Refresh


con il comando For Each é possibile aggiornare tutte le tabelle del foglio anche senza sapere il loro nome

Dim PT As PivotTable
For Each PT In ActiveSheet.PivotTables

PT.PivotCache.Refresh

Next PT