• On Error Resume Next sammen med DisplayAlerts-skiftet og .Delete er et sikkert "slet hvis det findes"-mønster: at slette et ark, der ikke eksisterer, ville normalt udløse en fejl og stoppe makroen, men On Error Resume Next fortæller VBA at fortsætte stille og roligt forbi netop den fejl; DisplayAlerts = False undertrykker Excels egen "er du sikker på, at du vil slette dette ark?"-bekræftelses-popup;
• On Error GoTo 0 umiddelbart bagefter slår normal fejlrapportering til igen — hvis On Error Resume Next forblev aktiv resten af Sub'en, ville det også skjule andre, ikke-relaterede fejl, hvilket er en fælde, man bør undgå;
• ThisWorkbook.PivotCaches.Create tager et øjebliksbillede af tabellens data — PivotCache, ikke selve PivotTabellen — som er det objekt, alle PivotTabeller faktisk bygges ud fra i baggrunden;
• pc.CreatePivotTable omdanner dette øjebliksbillede til en synlig PivotTable, placeret fra celle A3 på det nye Pivot-ark og får navnet ptProfitByRegion, så senere kode (f.eks. RefreshTable) kan finde den igen via navnet;
• PivotFields("Region").Orientation = xlRowField og linjen med Month lige nedenunder er den direkte kodeækvivalent til at trække Region ind i Rækker-boksen og Month ind i Kolonner-boksen i feltlisten;
• AddDataField udfylder Værdier-området — det andet argument ("Sum of Profit") er blot den etiket, Excel viser som kolonneoverskrift, og xlSum angiver, at værdierne skal summeres i stedet for at blive gennemsnitligt eller talt.

Her er koden til at tilføje en sjette region som en ny marts-række i tblReports, ved at bruge ListRows.Add i stedet for at indtaste den manuelt:

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

Kør dette én gang, og kør derefter RefreshProfitPivot Sub fra før — Pivot-tabellen bør nu vise "Southwest" som en ny række sammen med North, South, East, West og Central, uden at du har ændret Pivot-makroen overhovedet.

1. Kørsel af BuildProfitPivot som den er

• Kopiér Sub-proceduren nøjagtigt som skrevet i kapitlet ind i dit modul og kør den én gang.
• Tjek Project Explorer eller dine arkfaner — et nyt ark med navnet "Pivot" bør dukke op, med Region listet ned ad rækkerne og Month fordelt over kolonnerne, hvor Profit summeres.

2. Tilføjelse af en sjette region og kun opdatering

• Indtast den nye række direkte i regnearket (ikke via kode) — gå til bunden af tblReports og tilføj en marts-række for en fiktiv region, f.eks. "Southwest."
• Kør ikke BuildProfitPivot igen — det ville slette og genskabe hele Pivot-arket fra bunden, hvilket ikke er meningen med denne øvelse.
• Kør i stedet kun den énlinede RefreshTable-sætning fra kapitlet — du skal referere til den eksisterende PivotTable ved navn, på samme måde som kapitlets eget opdateringseksempel gjorde.

3. Ombytning af felter og ændring af det summerede felt

• Tre linjer inde i With pt-blokken skal ændres: hvilket felt er xlRowField, hvilket er xlColumnField, og hvilket felt AddDataField peger på.
• Giv denne ændrede version et andet Sub-navn og et andet TableName — genbrug af de samme navne som originalen vil enten give fejl eller lydløst overskrive den første Pivot-tabel.
• Mærkaten, der sendes til AddDataField (det andet argument, som "Sum of Profit"), er kun visningstekst — opdater den, så den matcher det, du faktisk opsummerer nu.

Punkt 2 — efter manuelt at have tilføjet rækken for den sjette region, kør blot dette:

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

Punkt 3 — en separat, ændret version:

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

Kør BuildSalesPivotByMonth, og du bør få et nyt "SalesPivot"-ark med Month ned ad rækkerne, Region hen over kolonnerne og Sales-totaler i kroppen — det spejlvendte layout af den oprindelige opstilling.