Det finns tillfällen när vi måste skapa eller lägga till blad och senare fann vi att det inte användes av det arket, därför behöver vi snabbt ta bort arket från arbetsboken. Den här artikeln fokuserar på att spara tid och tillhandahålla kod för att ta bort ark utan någon snabbmeddelandebox med hjälp av vba -makro / kod. Det kan vara ett eller flera ark. Och excel ger en popup -varning för att bekräfta borttagningen av arket. Om det är ett ark är det hanterbart. Men om du måste radera flera ark får du en popup per ark.
Du skapar ofta flera ark med VBA. Men i slutändan behöver du dem faktiskt inte. Du vill ta bort dem när ditt arbete är klart. Det kommer att hålla din fil lättare, snabbare och vettigare.
VBA -kod för att ta bort ett blad är enkelt
Kalkylark ("Arknamn"). Radera
Låt oss säga att du har den här koden för att lägga till ett blad och sedan ta bort den när arbetet är gjort.
Sub AddAndDeleteSheet () Sheets.Add 'Lägger till ett nytt blad i den aktiva arbetsboken' ---- '----' ---- 'en del arbete på arket gjort ActiveSheet.Delete' raderar det aktiva aktiva aktivitetsarkets slutsub
När du kör den här koden fungerar Sheets.Add utan någon prompt utan när kompilatorn kommer till ActiveSheet.Delete det kommer att uppmana ett meddelande så här.
Eftersom du raderar blad med VBA vet du vad du gör. Du vill berätta för Excel att inte visa den här varningen och ta bort det jävla arket.
För att göra detta kommer vi att stänga av displayvarningsknappen i Excel -applikationen.
Koden nedan kommer att kringgå detta varningsmeddelande och arket kommer att raderas utan någon antydan.
Sub AddAndDeleteSheet () Application.DisplayAlerts = Falskt "avstängning av varningsknappen Sheets.Add '----' ---- '----' lite arbete på arket gjort ActiveSheet.Delete Application.DisplayAlerts = True 'aktivering varningsknappen Avsluta sub
Här tar vi bort Activesheet med VBA. Du kan ta bort alla blad med VBA. Skriv bara Sheets ("Sheetname"). Ta bort. Gå vidare…
DisplayAlerts är en egenskap för Application -objekt i VBA. Här stänger vi av den i början av vår kod och slår på den i slutet av koden. Ovanstående kod kommer att bekräfta borttagning utan någon antydan.
Notera:Ovanstående kod kommer att ignorera alla varningar som skickas av excel. Om du bara vill tillåta radering av ark än använd den här raden.
Application.DisplayAlerts = Falskt att stänga av varningsknappen ActiveSheet.Delete Application.DisplayAlerts = True 'koppla på varningsknappen
Detta ignorerar endast varning för borttagning av ark.
Proffstips: Dessa kodrader gör din VBA -kod mer effektiv.Använd dem alltid i början av ditt makro och slå på dem igen var din kod förväntas avsluta rutinen.Varning: Om den inte är påslagen innan du avslutar subrutinen kanske du inte ser någon varning alls. Även om din kod inte körs. Detta kan orsaka många problem.
Om du har flera ark att radera och använder en loop, prova den här koden -
Alternativ 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) .Delete Next i Application.DisplayAlerts = True End Sub
Det är allt. Det är gjort. Det är lätt som att slå på och av fläkten. Är det inte?
Om du gillade våra bloggar, dela den med dina vänner på Facebook. Och du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra, komplettera eller förnya vårt arbete och göra det bättre för dig. Skriv till oss på e -postsajtNedladdning fil
Ta bort blad utan bekräftelsefrågor med VBA i Microsoft Excel
Dela Excel -ark i flera filer baserat på kolumn med VBA
Ändra standardskrivaren med VBA i Microsoft Excel 2016
Stäng av varningsmeddelanden med VBA i Microsoft Excel 2016
Visa ett meddelande i Excel VBA -statusfältet
Infoga bilder med VBA i Microsoft Excel 2016
Hur man går igenom ark i Excel med VBA
Populära artiklar:
50 Excel -genvägar för att öka din produktivitet
Så här använder du VLOOKUP -funktionen i Excel
Så här använder du funktionen COUNTIF i Excel
Hur man använder SUMIF -funktionen i Excel