Der er tidspunkter, hvor vi skal oprette eller tilføje ark, og senere fandt vi ud af, at det ikke var muligt at bruge dette ark, derfor har vi brug for at slette arket hurtigt fra projektmappen. Denne artikel fokuserer på at spare tid og give kode til fjernelse af ark uden nogen hurtig meddelelsesboks ved hjælp af vba -makro / kode. Det kan være et eller flere ark. Og excel giver en popup -advarsel for at bekræfte sletningen af arket. Hvis det er ét ark, er det overskueligt. Men hvis du skal slette flere ark, får du en popup pr. Ark.
Du opretter ofte flere ark ved hjælp af VBA. Men i sidste ende har du faktisk ikke brug for dem. Du vil gerne slette dem, når dit arbejde er udført. Det vil holde din fil lettere, hurtigere og fornuftig.
VBA -kode til at slette et ark er enkel
Ark ("Arknavn"). Slet
Lad os sige, at du har denne kode til at tilføje et ark og derefter slette det, når arbejdet er udført.
Sub AddAndDeleteSheet () Sheets.Add 'Føjer et nyt ark til den aktive projektmappe' ---- '----' ---- 'noget arbejde på arket udført ActiveSheet.Delete' sletter det aktive Activesheet End Sub
Når du udfører denne kode, fungerer Sheets.Add uden nogen prompt, men når compiler kommer til ActiveSheet.Delete det vil bede om en besked som denne.
Da du sletter ark ved hjælp af VBA, ved du, hvad du laver. Du vil gerne bede Excel om ikke at vise denne advarsel og slette det forbandede ark.
For at gøre dette slukker vi skærmvarselknappen i Excel -applikation.
Koden herunder vil omgå denne advarselsmeddelelse, og arket vil blive slettet uden nogen form for advarsel.
Sub AddAndDeleteSheet () Application.DisplayAlerts = Falsk 'deaktivering af alarmknappen Sheets.Add' ---- '----' ---- 'noget arbejde på arket udført ActiveSheet.Delete Application.DisplayAlerts = True' aktivering alarmknappen Afslut sub
Her sletter vi Activesheet ved hjælp af VBA. Du kan slette ethvert ark ved hjælp af VBA. Bare skriv Sheets ("Sheetname"). Slet. Komme videre…
DisplayAlerts er en egenskab for Application -objekt i VBA. Her slukker vi den i begyndelsen af vores kode og tænder den i slutningen af koden. Ovenstående kode bekræfter sletning uden nogen form for advarsel.
Bemærk:Ovenstående kode ignorerer alle advarsler fra excel. Hvis du kun vil tillade sletning af ark, skal du bruge denne linje.
Application.DisplayAlerts = Falsk 'slukning af alarmknappen ActiveSheet.Delete Application.DisplayAlerts = True' aktivering af alarmknappen
Dette ignorerer kun advarsel om sletning af ark.
Pro tip: Disse kodelinjer gør din VBA -kode mere effektiv.Brug dem altid i begyndelsen af din makro, og tænd dem igen, uanset hvor din kode forventes at afslutte rutinen.Advarsel: Hvis den ikke er tændt, før du forlader underprogrammet, kan du slet ikke se nogen advarsel. Selvom din kode ikke kører. Dette kan forårsage mange problemer.
Hvis du har flere ark til at slette og bruger en loop, kan du prøve denne kode -
Mulighed Eksplicit undermakro2 () Dim i så længe Application.DisplayAlerts = Falsk For i = 1 til Worksheets.Count If Worksheets (i) .Name Like "Test*" Then Worksheets (i). Slet Næste i Application.DisplayAlerts = True End Sub
Det er det. Det er gjort. Det er let som at tænde og slukke din blæser. Er det ikke?
Hvis du kunne lide vores blogs, kan du dele den med dine venner på Facebook. Og også du kan følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre, supplere eller innovere vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -webstedDownload fil
Slet ark uden bekræftelsesmeddelelser ved hjælp af VBA i Microsoft Excel
Opdel Excel -ark i flere filer baseret på kolonne ved hjælp af VBA
Skift standardprinteren ved hjælp af VBA i Microsoft Excel 2016
Slå advarselsmeddelelser fra ved hjælp af VBA i Microsoft Excel 2016
Vis en meddelelse på Excel VBA -statuslinjen
Indsæt billeder ved hjælp af VBA i Microsoft Excel 2016
Sådan går du gennem ark i Excel ved hjælp af VBA
Populære artikler:
50 Excel -genveje til at øge din produktivitet
Sådan bruges VLOOKUP -funktionen i Excel
Sådan bruges funktionen COUNTIF i Excel
Sådan bruges SUMIF -funktionen i Excel