Hur tar jag bort ett specifikt ark om det finns i arbetsboken?
Hur kan du radera ett specifikt kalkylblad om det finns i en arbetsbok? Normalt måste du hitta och kontrollera om det finns och sedan radera det manuellt. Här kommer jag att prata om ett enkelt sätt att ta bort det angivna kalkylbladet direkt om det finns i Excel-filen.
Ta bort ett specifikt kalkylblad om det finns i en arbetsbok med VBA-kod
Ta bort ett specifikt kalkylblad om det finns i en arbetsbok med VBA-kod
Följande VBA-kod kan hjälpa dig att ta bort det angivna kalkylbladet om det finns i arbetsboken, gör så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Ta bort ett specifikt kalkylblad om det finns i arbetsboken
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. Tryck sedan på F5 nyckel för att köra den här koden visas en snabbruta för att påminna dig om att du skriver in det arknamn du vill kontrollera om det finns, se skärmdump:
4. Och klicka sedan på OK knapp:
(1.) Om arket finns kommer det att tas bort på en gång, se skärmdump:
(2.) Om arket inte finns kommer en snabbruta att dyka upp för att påminna dig om följande skärmdump visas:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!