Hoe een specifiek blad te verwijderen als dit in de werkmap bestaat?
Hoe kunt u een specifiek werkblad verwijderen als het in een werkmap bestaat? Normaal gesproken moet u het zoeken en controleren als het bestaat, en het vervolgens handmatig verwijderen. Hier zal ik het hebben over een eenvoudige manier om het opgegeven werkblad rechtstreeks te verwijderen als het in het Excel-bestand bestaat.
Verwijder een specifiek werkblad als dit bestaat in een werkmap met VBA-code
Verwijder een specifiek werkblad als dit bestaat in een werkmap met VBA-code
De volgende VBA-code kan u helpen om het opgegeven werkblad te verwijderen als het in de werkmap bestaat, doe dit als volgt:
1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: verwijder een specifiek werkblad indien aanwezig in de werkmap
Sub Test()
'Updateby Extendoffice
Dim xWs As Worksheet
Dim sheetName As String
sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
"sheet1", , , , , 2)
Application.DisplayAlerts = False
Err.Clear
On Error Resume Next
Set xWs = Sheets(sheetName)
If Err <> 0 Then
MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
Exit Sub
Else
xWs.Delete
MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
End If
Application.DisplayAlerts = True
End Sub
3. Druk vervolgens op F5 sleutel om deze code uit te voeren, wordt een promptvenster weergegeven om u eraan te herinneren de bladnaam in te typen die u wilt controleren of deze bestaat, zie screenshot:
4. En klik vervolgens op OK knop:
(1.) Als het blad bestaat, wordt het in één keer verwijderd, zie screenshot:
(2.) Als het blad niet bestaat, verschijnt er een promptvenster om u eraan te herinneren dat het volgende screenshot wordt getoond:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!