Hoe een werkblad te verwijderen op basis van de celwaarde in Excel?
Stel dat ik meerdere werkbladen in een werkmap heb, nu wil ik de bladen verwijderen op basis van de celwaarde. Als de specifieke cel A1 bijvoorbeeld de tekst "KTE" bevat, moeten alle bladen met deze tekst in cel A1 in één keer worden verwijderd. Dit artikel kan u helpen om deze taak in Excel uit te voeren.
Verwijder werkblad op basis van celwaarde met VBA-code
Verwijder werkblad op basis van celwaarde met VBA-code
Hier zal ik een code voor u introduceren om alle bladen te verwijderen waarvan de specifieke cel een bepaalde waarde heeft, 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: werkblad verwijderen op basis van celwaarde:
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
Note: In de bovenstaande code, A1 is de specifieke cel die bepaalde tekst bevat waarvan u de bladen wilt verwijderen op basis van.
3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren de specifieke waarde in te voeren waarop u de bladen wilt verwijderen, zie screenshot:
4. En klik vervolgens op OK knop, zijn alle bladen waarvan cel A1 de tekst KTE heeft, in één keer verwijderd. Zie screenshot:
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!
