Ako odstrániť Listy pomocou VBA

V programe Microsoft Excel , môžete odstrániť listu pravým tlačidlom myši na jej kartu a výberom z kontextového menu " Delete " . Malé okno vás vyzve na potvrdenie akcie . To pomáha zabrániť náhodnému vymazaniu . Chystáte sa cez výzvy na potvrdenie môže byť problematické , ale ak sa snažíte odstrániť veľa listov . Našťastie , môžete tiež odstrániť listy pomocou jazyka VBA . Excel VBA prichádza s " listami " funkcie , ktoré môžete použiť na vytvorenie , premenovanie , presunutie a odstránenie listov . S niekoľkých ďalších riadkov kódu , môžete obísť okno pre potvrdenie a odstránenie listov rýchlejšie . Pokyny dovolená 1

Spustite program Microsoft Excel . Stlačte tlačidlo " Ctrl " a " O " , vyberte zošit zo zoznamu a kliknite na tlačidlo " Otvoriť " .
2

Stlačte tlačidlo " Alt " plug " F8 " sa otvorí okno " makrá " . Typ " RemoveSheets " v " makro názov " poľa a kliknite na " Vytvoriť " . Tým sa otvorí editor jazyka Visual Basic ( VBE ) .
3

Zadajte nasledujúci kód v VBE .

Sub RemoveSheets ( )

wSheets = Array ( " Hárok1 " , " Hárok2 " , " Hárok3 " )

Application.DisplayAlerts = False

Pre n = 0 až UBound ( wSheets )

On Error Resume Next

listy ( wSheets (n ) ) . Zmazať

Ďalšie n

Application.DisplayAlerts = true

End Sub
4

Nahradiť " Hárok1 " , " Hárok2 " a " Hárok3 " s menami listov , ktoré by ste chceli vymazať . Ak chcete pridať ďalšie mená do zoznamu , zadajte čiarku a vložte názov hárka pred uzatváracia zátvorka funkcie Array . Uistite sa , uzavrite ho do úvodzoviek.
5

Stlačte tlačidlo " Alt " a " Q " pre zatvorenie VBE .
6

Stlačte tlačidlo " Alt " a " F8 " na otvorte okno " Makrá " znova . Vyberte " RemoveSheets " zo zoznamu , kliknite na tlačidlo " Spustiť " .

• Predchádzajúca strana: Ako volať metódu vo VB.NET 
• Ďalšia strana: Ako tlačiť na konkrétnu tlačiareň v VB.NET