Er zijn momenten waarop we een blad moeten maken of toevoegen en later ontdekten we dat dat blad niet werd gebruikt, daarom moeten we het blad snel uit de werkmap verwijderen. Dit artikel is gericht op het besparen van tijd en biedt code voor het verwijderen van bladen zonder een promptberichtvenster met behulp van vba-macro / code. Het kan een blad zijn of meerdere. En Excel geeft een pop-upwaarschuwing om het verwijderen van het blad te bevestigen. Als het één blad is, is het beheersbaar. Maar als u meerdere bladen moet verwijderen, krijgt u één pop-up per blad.
U maakt vaak meerdere bladen met VBA. Maar uiteindelijk heb je ze eigenlijk niet nodig. U zou ze willen verwijderen nadat uw werk is gedaan. Het houdt uw dossier lichter, sneller en verstandiger.
VBA-code om een blad te verwijderen is eenvoudig
Spreadsheets ("Bladnaam").Verwijderen
Laten we zeggen dat je deze code hebt om een blad toe te voegen en het vervolgens te verwijderen wanneer het werk klaar is.
Sub AddAndDeleteSheet() Sheets.Add 'Voegt een nieuw blad toe aan de actieve werkmap '---- '---- '---- 'wat werk aan het blad gedaan ActiveSheet.Delete 'verwijdert het actieve Activesheet End Sub
Wanneer u deze code uitvoert, werkt Spreadsheets.Add zonder enige prompt, maar wanneer de compiler komt: ActiveSheet.Verwijderen het zal een bericht als dit oproepen.
Aangezien u bladen verwijdert met VBA, weet u wat u doet. U wilt Excel vertellen deze waarschuwing niet te tonen en dat verdomde blad te verwijderen.
Om dit te doen, schakelen we de weergavewaarschuwingsknop van de Excel-toepassing uit.
De onderstaande code omzeilt dit waarschuwingsbericht en het blad wordt zonder enige waarschuwing verwijderd.
Sub AddAndDeleteSheet() Application.DisplayAlerts = False 'uitschakelen van de waarschuwingsknop Sheets.Add '---- '---- '---- 'wat werk aan blad gedaan ActiveSheet.Delete Application.DisplayAlerts = True 'inschakelen de waarschuwingsknop Sub beëindigen
Hier verwijderen we Activesheet met VBA. U kunt elk blad verwijderen met VBA. Schrijf gewoon Spreadsheets ("Bladnaam").verwijder. Verder gaan…
DisplayAlerts is een eigenschap van Application-object in VBA. Hier schakelen we het uit aan het begin van onze code en inschakelen aan het einde van de code. De bovenstaande code bevestigt de verwijdering zonder enige aanwijzing.
Opmerking:De bovenstaande code negeert alle waarschuwingen van Excel. Als u alleen bladverwijdering wilt toestaan, gebruik dan deze regel.
Application.DisplayAlerts = False 'de waarschuwingsknop uitschakelen ActiveSheet.Delete Application.DisplayAlerts = True 'de waarschuwingsknop inschakelen
Hierdoor wordt alleen de waarschuwing voor het verwijderen van een blad genegeerd.
Pro-tip: Deze coderegels maken uw VBA-code efficiënter.Gebruik ze altijd aan het begin van uw macro en schakel ze weer in waar uw code naar verwachting de routine verlaat.Waarschuwing: Als het niet is ingeschakeld voordat u de subroutine verlaat, ziet u mogelijk helemaal geen waarschuwing. Ook als uw code niet actief is. Dit kan veel problemen veroorzaken.
Als je meerdere bladen moet verwijderen en een lus gebruikt, probeer dan deze code -
Optie 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
Dat is het. Het is klaar. Het is zo eenvoudig als het aan- en uitzetten van je ventilator. Is het niet?
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op e-mailsiteDownload bestand
Bladen verwijderen zonder bevestigingsvragen met VBA in Microsoft Excel
Excel-blad splitsen in meerdere bestanden op basis van kolom met VBA
Wijzig de standaardprinter met VBA in Microsoft Excel 2016
Schakel waarschuwingsberichten uit met VBA in Microsoft Excel 2016
Geef een bericht weer op de Excel VBA-statusbalk
Afbeeldingen invoegen met VBA in Microsoft Excel 2016
Hoe u door bladen in Excel kunt bladeren met VBA
Populaire artikels:
50 Excel-snelkoppelingen om uw productiviteit te verhogen
Hoe de VERT.ZOEKEN-functie in Excel te gebruiken?
Hoe de AANTAL.ALS-functie in Excel te gebruiken?
Hoe de SUMIF-functie in Excel te gebruiken?