Ako odstrániť kontingenčnej tabuľky vo VBA

kontingenčnej tabuľka slúži k sumarizáciu dát a je bežne používaný v tabuľkových programoch , ako je napríklad Microsoft Excel . Visual Basic for Applications je programovací jazyk vyvinutý spoločnosťou Microsoft a použiť na automatizáciu rutinných úloh v aplikáciách Microsoft Office . Možno budete musieť napísať kód VBA na odstránenie kontingenčnej tabuľky , ak máte zošit s mnohými listami a musíte ručne odstrániť . V niekoľkých krokoch môžete napísať kód VBA k odstráneniu kontingenčnej tabuľky . Pokyny dovolená 1

Spustite program Microsoft Office Excel a zadajte " Stĺpce " v " A1 " , "data " v " B1 " , " pole " v " A2 " , " 12 " , v " B2 " , " Field2 " v " A3 " a " 13 " na " B3 " .

kliknite na " A1 " , stlačte " Ctrl " a " , " kliknite na " " menu a vyberte" Vložiť kontingenčnej tabuľky . " Kliknite na tlačidlo " OK " .
2

Začiarknite políčka vedľa " Stĺpce " a " Data " .

Vyberte kartu " Vývojár " , potom kliknite na " Visual Basic " . Kliknite na menu " Vložiť " a vyberte " Module " .
3

Skopírujte a vložte nižšie uvedený kód do vášho nového modulu odstrániť kontingenčnej tabuľky , ktorú ste práve vytvorili .
< P > Private Sub deletePivotTable ( )

Dim Ptbl ako kontingenčné

Dim wrkSheet ako listu

pre každú wrkSheet v ActiveWorkbook.Worksheets

každý Ptbl v wrkSheet . kontingenčných tabuliek

rozsah . ( " A3 : B6 " ) Vyberte klipart

Selection.Delete Shift : . = xlToLeft

Range ( " A1 " ) Vyberte

Exit Sub

Ďalšie Ptbl

Ďalšie wrkSheet

End Sub

• Predchádzajúca strana: Ako čítať Prehliadač udalostí vo VB.NET 
• Ďalšia strana: Ako pridať tlačiareň pomocou dávkového skriptu