Det er tider når vi må lage eller legge til ark, og senere har vi ikke funnet bruk av det arket, derfor må vi slette arket raskt fra arbeidsboken. Denne artikkelen fokuserer på å spare tid og gi kode for fjerning av ark uten noen meldingstavle ved hjelp av vba makro / kode. Det kan være ett eller flere ark. Og excel gir et popup -varsel for å bekrefte slettingen av arket. Hvis det er ett ark, er det håndterbart. Men hvis du må slette flere ark, får du en popup per ark.
Du lager ofte flere ark ved hjelp av VBA. Men til slutt trenger du dem faktisk ikke. Du vil slette dem etter at arbeidet ditt er gjort. Det vil holde filen lettere, raskere og fornuftig.
VBA -kode for å slette et ark er enkelt
Ark ("Arknavn"). Slett
La oss si at du har denne koden for å legge til et ark og deretter slette den når arbeidet er utført.
Sub AddAndDeleteSheet () Sheets.Add 'Legger til et nytt ark i den aktive arbeidsboken' ---- '----' ---- 'noe arbeid på arket gjort ActiveSheet.Delete' sletter det aktive Activesheet End Sub
Når du kjører denne koden, fungerer Sheets.Add uten spørsmål, men når kompilatoren kommer til ActiveSheet.Delete det vil be om en melding som denne.
Siden du sletter ark med VBA, vet du hva du gjør. Du vil fortelle Excel om ikke å vise denne advarselen og slette det jævla arket.
For å gjøre dette vil vi slå av displayvarselknappen i Excel -applikasjonen.
Koden nedenfor vil omgå denne varselmeldingen, og arket blir slettet uten noen form for advarsel.
Sub AddAndDeleteSheet () Application.DisplayAlerts = False 'slå av varslingsknappen Sheets.Add' ---- '----' ---- 'litt arbeid på arket gjort ActiveSheet.Delete Application.DisplayAlerts = True' slå på varslingsknappen Avslutt sub
Her sletter vi Activesheet ved hjelp av VBA. Du kan slette alle ark ved hjelp av VBA. Bare skriv Ark ("Arknavn"). Slett. Går videre…
DisplayAlerts er en egenskap for Application -objekt i VBA. Her slår vi den av i begynnelsen av koden vår og slår den på på slutten av koden. Koden ovenfor vil bekrefte sletting uten noen form for advarsel.
Merk:Koden ovenfor ignorerer alle advarslene fra excel. Hvis du bare vil tillate sletting av ark, kan du bruke denne linjen.
Application.DisplayAlerts = Falsk 'slå av varslingsknappen ActiveSheet.Delete Application.DisplayAlerts = True' slå på varselknappen
Dette ignorerer bare advarsel om sletting av ark.
Pro tips: Disse kodelinjene gjør din VBA -kode mer effektiv.Bruk dem alltid i begynnelsen av makroen, og slå dem på igjen der koden forventes å gå ut av rutinen.Advarsel: Hvis den ikke er slått på før du avslutter subrutinen, kan det hende du ikke ser noen advarsel i det hele tatt. Selv om koden din ikke kjører. Dette kan forårsake mange problemer.
Hvis du har flere ark du vil slette og bruker en loop, kan du prøve denne koden -
Option Explicit Sub macro2 () Dim i As Long Application.DisplayAlerts = False For i = 1 to Worksheets.Count If Worksheets (i) .Name Like "Test*" Then Worksheets (i). Slett Neste i Application.DisplayAlerts = True End Under
Det er det. Det er gjort. Det er enkelt som å slå viften av og på. Er det ikke det?
Hvis du likte bloggene våre, del den med vennene dine på Facebook. Og du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre, utfylle eller innovere arbeidet vårt og gjøre det bedre for deg. Skriv oss på e -post nettstedLast ned fil
Slett ark uten bekreftelsesforespørsler ved hjelp av VBA i Microsoft Excel
Del Excel -ark i flere filer basert på kolonne ved hjelp av VBA
Endre standardskriveren ved hjelp av VBA i Microsoft Excel 2016
Slå av advarselsmeldinger ved hjelp av VBA i Microsoft Excel 2016
Vis en melding på Excel VBA -statuslinjen
Sett inn bilder ved hjelp av VBA i Microsoft Excel 2016
Slik går du gjennom ark i Excel ved hjelp av VBA
Populære artikler:
50 Excel -snarveier for å øke produktiviteten
Slik bruker du VLOOKUP -funksjonen i Excel
Slik bruker du COUNTIF -funksjonen i Excel
Slik bruker du SUMIF -funksjonen i Excel