• 
  

  Ta bort en pivottabell i VBA

  
  

En pivottabell används för att summera data och används allmänt i kalkylprogram som Microsoft Excel . Visual Basic for Applications är ett programmeringsspråk som har utvecklats av Microsoft och används för att automatisera rutinuppgifter i Microsoft Office -program. Du kan behöva skriva VBA- kod för att ta bort pivottabeller om du har en arbetsbok med en massa kalkylblad och du måste manuellt ta bort dem . I några få steg kan du skriva VBA- kod för att ta bort en pivottabell
1. .
Starta Microsoft Office Excel och skriv " kolumner " i " A1 " , "Data " i " B1 " , "Fält " i " A2 " , " 12 " i " B2 " , " Fält2 "i " A3 " och " 13 " i " B3 " .



Klicka på " A1 " , tryck " Ctrl "och " A "klickar du på "Infoga " -menyn och välj " Pivottabell . " Klicka på " OK ".
2 .
Markera rutorna bredvid " kolumner " och "Data ".



Välj " Utvecklare "-fliken , klicka på "Visual Basic ". Klicka på " Infoga " -menyn och välj " Module ".
3 .
Kopiera och klistra in koden nedanför på din nya modul för att ta bort pivottabellen du just har skapat .



Private Sub deletePivotTable ( )

Dim Ptbl Som pivottabell

Dim wrkSheet Som kalkylblad

för varje wrkSheet I ActiveWorkbook. Worksheets

For Each Ptbl I wrkSheet. PivotTables

Range ( " A3 : B6 " ) . Välj

Selection. Delete Shift :=xlToLeft

Range ( " A1 " ) Välj

Exit Sub

Nästa Ptbl

Nästa wrkSheet

End Sub

Previous：nothing Next：Lägga till en skrivare med en kommandofil

Relaterade artiklar