Slik sletter regneark ved hjelp av VBA

I Microsoft Excel, kan du fjerne et regneark ved å høyreklikke på fanen sin og velge "Slett" fra kontekstmenyen. Et lite vindu vil be deg om å bekrefte handlingen. Dette bidrar til å forhindre utilsiktet sletting. Går gjennom bekreftelsesmeldingen kan være plagsom, men hvis du prøver å fjerne mange ark. Heldigvis, kan du også slette regneark ved hjelp av VBA. Excel VBA kommer med en "Sheets" funksjon som du kan bruke til å opprette, endre navn, flytte og slette regneark. Med noen flere linjer med kode, kan du omgå bekreftelsesvinduet og fjerne regneark raskere.

Bruksanvisning

1 Start Microsoft Excel. Trykk "Ctrl" pluss "O", velg arbeidsboken fra listen og klikk "Åpne".

2 Trykk "Alt" plugg "F8" for å åpne "Makroer" -vinduet. Skriv "RemoveSheets" i "Makronavn" boksen og klikk "Opprett". Dette åpner Visual Basic Editor (VBE).

3 Skriv inn følgende kode i VBE.

Sub RemoveSheets ()

wSheets = Array ( "SHEET1", "SHEET2", "Sheet3")

Application.DisplayAlerts = False

For n = 0 til UBound (wSheets)

On Error Resume Next

Sheets (wSheets (n)). Slett

Neste n

Application.DisplayAlerts = True

End Sub

4 Erstatt "Ark1", "Ark2" og "Sheet3" med navnene på regnearkene som du ønsker å slette. For å legge til et annet navn på listen, skriv inn et komma og sette inn navnet på arket før den avsluttende parentesen av Array funksjon. Sørg for å legge den i anførselstegn.

5 Trykk "Alt" pluss "Q" for å lukke VBE.

6 Trykk "Alt" pluss "F8" for å åpne "Makroer" vinduet igjen. Velg "RemoveSheets" fra listen, og klikk "Run."

Hint

  • Hvis du raskt vil kjøre makroen, kan du binde en tastatursnarvei til det. Trykk "Alt" pluss "F8" for å åpne "Makroer" vinduet, velg "RemoveSheets" og klikk "Alternativer". Klikk den tomme boksen under "Shortcut Key" og skriv ditt foretrukne brev snarvei.
  • For å holde makro, lagre filen som en makroaktivert arbeidsbok. Trykk "F12," skriver du inn ønsket filnavn og velg "Excel Makroaktivert Workbook" fra rullegardinmenyen ved siden av "Lagre som type." Klikk på "Lagre".
  • Makroer deaktivert som standard i Microsoft Excel. For å aktivere dem, klikker du Microsoft Office-knappen og velg "Alternativer for Excel." Under "Popular", må du kontrollere at "Vis Utvikler Tab på båndet" er merket. Gå til "Trust Center" og klikk "Innstillinger for klareringssenter." Gå til "Makroinnstillinger" og velg "Aktiver alle makroer." Klikk "OK" for å lagre endringene og starte Microsoft Excel.