Slik sletter du en Pivot tabell i VBA

En pivottabell brukes til å oppsummere data og er vanligvis brukes i regneark-programmer som Microsoft Excel. Visual Basic for Applications er et programmeringsspråk utviklet av Microsoft og brukes til å automatisere rutinemessige oppgaver i Microsoft Office-programmer. Du må kanskje skrive VBA-kode for å slette pivottabeller hvis du har en arbeidsbok med en rekke regneark, og du må slette dem manuelt. I noen få trinn kan du skrive VBA-kode for å slette en pivottabell.

Bruksanvisning

1 Start Microsoft Office Excel og type "Kolonner" i "A1", "Data" i "B1", "Field" i "A2", "12" i "B2", "Felt 2" i "A3" og "13" i "B3".

Klikk "A1", trykk "Ctrl" og "A", klikk på "Sett inn" -menyen og velg "pivottabell". Klikk på "OK".

2 Merk av i boksene ved siden av "Kolonner" og "Data".

Velg "Utvikler" fanen, klikk på "Visual Basic". Klikk på "Insert" -menyen og velg "Module".

3 Kopier og lim inn koden nedenfor i din nye modulen for å slette pivottabell du nettopp har laget.

Private Sub deletePivotTable ()

Dim Ptbl As PivotTable

Dim wrkSheet Som regneark

For hver wrkSheet I ActiveWorkbook.Worksheets

For hver Ptbl I wrkSheet.PivotTables

Range ( "A3: B6") Velg.

Selection.Delete Shift: = xlToLeft

Range ( "A1"). Velg

Exit Sub

Neste Ptbl

Neste wrkSheet

End Sub