• L'uso di On Error Resume Next insieme all'attivazione/disattivazione di DisplayAlerts e .Delete rappresenta un modello sicuro per "eliminare se esiste": eliminare un foglio che non esiste normalmente genererebbe un errore e fermerebbe la macro, ma On Error Resume Next indica a VBA di continuare tranquillamente oltre quell'errore specifico; DisplayAlerts = False sopprime il popup di conferma di Excel "sei sicuro di voler eliminare questo foglio?";
• L'istruzione Error GoTo 0 subito dopo riattiva la normale segnalazione degli errori — lasciare attivo On Error Resume Next per il resto della Sub farebbe sì che anche errori successivi e non correlati vengano ignorati silenziosamente, una trappola da evitare;
• ThisWorkbook.PivotCaches.Create crea un'istantanea dei dati della Tabella — il PivotCache, non la PivotTable stessa — che è l'oggetto da cui ogni PivotTable viene effettivamente costruita in background;
• pc.CreatePivotTable trasforma quell'istantanea in una PivotTable visibile, posizionata a partire dalla cella A3 sul nuovo foglio Pivot e denominata ptProfitByRegion, così che il codice successivo (ad esempio RefreshTable) possa ritrovarla tramite il nome;
• PivotFields("Region").Orientation = xlRowField e la riga Month immediatamente sotto sono l'equivalente diretto in codice del trascinare Region nella casella Righe e Month nella casella Colonne nell'elenco dei campi;
• AddDataField popola l'area Valori — il secondo argomento ("Sum of Profit") è solo l'etichetta che Excel mostra come intestazione di colonna, e xlSum indica di sommare i valori invece di calcolarli come media o conteggio.

Ecco il codice per aggiungere una sesta regione come nuova riga di marzo in tblReports, utilizzando ListRows.Add invece di inserirla manualmente:

Sub AddSixthRegion()
    Dim tbl As ListObject
    Dim newRow As ListRow

    Set tbl = ThisWorkbook.Worksheets("Reports").ListObjects("tblReports")
    Set newRow = tbl.ListRows.Add

    newRow.Range(1, 1).Value = "March"        ' Month
    newRow.Range(1, 2).Value = "Southwest"    ' Region
    newRow.Range(1, 3).Value = 41500          ' Sales
    newRow.Range(1, 4).Value = 28200          ' Expenses
    newRow.Range(1, 5).Value = 13300          ' Profit
    newRow.Range(1, 6).Value = 39000          ' Target
End Sub

Esegui questo una volta, poi esegui la Sub RefreshProfitPivot vista in precedenza — la tabella Pivot ora dovrebbe mostrare "Southwest" come una nuova riga insieme a North, South, East, West e Central, senza che tu abbia modificato affatto la macro di creazione della Pivot.

1. Esecuzione di BuildProfitPivot così com'è

• Copia la Sub esattamente come scritta nel capitolo nel tuo modulo ed eseguila una volta.
• Controlla l'Esplora progetti o le schede del foglio — dovrebbe apparire un nuovo foglio chiamato letteralmente "Pivot", con Region elencato sulle righe e Month distribuito sulle colonne, sommando Profit.

2. Aggiunta di una sesta regione e solo aggiornamento

• Inserisci la nuova riga direttamente nel foglio di lavoro (non tramite codice) — vai in fondo a tblReports e aggiungi una riga di marzo per una regione inventata, ad esempio "Southwest."
• Non rieseguire BuildProfitPivot — questo eliminerebbe e ricostruirebbe l'intero foglio Pivot da zero, il che vanifica lo scopo di questo esercizio.
• Invece, esegui solo l'istruzione RefreshTable di una riga dal capitolo — dovrai fare riferimento alla PivotTable esistente per nome, nello stesso modo in cui l'esempio di aggiornamento del capitolo ha fatto.

3. Scambio dei campi e modifica del valore riepilogato

• Tre righe all'interno del blocco With pt devono essere modificate: quale campo è xlRowField, quale è xlColumnField e a quale campo punta AddDataField.
• Dai a questa versione modificata un nome Sub diverso e un nome TableName diverso — riutilizzare gli stessi nomi dell'originale causerebbe un errore o sovrascriverebbe silenziosamente la prima tabella Pivot.
• L'etichetta passata a AddDataField (il secondo argomento, come "Sum of Profit") è solo testo di visualizzazione — aggiornala per riflettere ciò che stai effettivamente riepilogando ora.

Punto 2 — dopo aver aggiunto manualmente la riga della sesta regione, esegui solo questo:

Sub RefreshProfitPivot()
    ThisWorkbook.Worksheets("Pivot").PivotTables("ptProfitByRegion").RefreshTable
End Sub

Punto 3 — una versione separata e modificata:

Sub BuildSalesPivotByMonth()
    Dim wsData As Worksheet, wsPivot As Worksheet
    Dim tbl As ListObject
    Dim pc As PivotCache
    Dim pt As PivotTable

    Set wsData = ThisWorkbook.Worksheets("Reports")
    Set tbl = wsData.ListObjects("tblReports")

    On Error Resume Next
    Application.DisplayAlerts = False
    ThisWorkbook.Worksheets("SalesPivot").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0

    Set wsPivot = ThisWorkbook.Worksheets.Add
    wsPivot.Name = "SalesPivot"

    Set pc = ThisWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase, SourceData:=tbl.Range)

    Set pt = pc.CreatePivotTable( _
        TableDestination:=wsPivot.Range("A3"), _
        TableName:="ptSalesByMonth")

    With pt
        .PivotFields("Month").Orientation = xlRowField
        .PivotFields("Region").Orientation = xlColumnField
        .AddDataField .PivotFields("Sales"), "Sum of Sales", xlSum
    End With
End Sub

Esegui BuildSalesPivotByMonth e dovresti ottenere un nuovo foglio "SalesPivot" con Month sulle righe, Region sulle colonne e i totali Sales nel corpo — l'immagine speculare del layout originale.