Een draaitabel wordt gebruikt om gegevens samen te vatten en wordt vaak gebruikt in spreadsheet programma's zoals Microsoft Excel . Visual Basic for Applications is een programmeertaal ontwikkeld door Microsoft en wordt gebruikt om routinematige taken in Microsoft Office-toepassingen te automatiseren . Mogelijk moet u VBA-code schrijven om draaitabellen verwijderen als u een werkmap met veel werkbladen en je moet ze handmatig verwijdert . In een paar stappen kunt u VBA- code schrijven om een draaitabel te verwijderen . Instructies
1 Start Microsoft Office Excel en typ " Kolommen " in " A1 " , "Data " in " B1 " , " Field" in " A2 " , " 12 " in " B2 " , " veld2 " in " A3 " , en " 13 " in " B3 " .
Klik op " A1 ", druk " Ctrl " en " A ", klik op de" " menu en selecteer" Insert draaitabel . " Klik op "OK . " Kopen van 2 Vink de vakjes aan naast " Columns " en "Data ".
Selecteer het tabblad " Developer " en klik op ' Visual Basic . " Klik op het menu "Invoegen " en selecteer " Module . "
Kopieer 3 en plak onderstaande code in uw nieuwe module op de draaitabel u zojuist hebt gemaakt .
Private Sub deletePivotTable ( ) Dim PTBL
als draaitabellen Dim wrkSheet
als Aantekenvel
voor Elke wrkSheet In ActiveWorkbook.Worksheets
voor Elke PTBL In wrkSheet . draaitabellen Range
( " A3 : B6 " ) . Selecteer Selection.Delete Shift
: . = xlToLeft Range
( " A1 " ) Selecteer
Exit Sub
Volgende PTBL
Volgende wrkSheet
End Sub
|
