Hvordan slettes et specifikt ark, hvis det findes i projektmappen?
Hvordan kunne du slette et specifikt regneark, hvis det findes i en projektmappe? Normalt skal du finde og kontrollere det, hvis det findes, og derefter slette det manuelt. Her vil jeg tale om en nem måde at slette det angivne regneark direkte, hvis det findes i Excel-filen.
Slet et specifikt regneark, hvis det findes i en projektmappe med VBA-kode
Slet et specifikt regneark, hvis det findes i en projektmappe med VBA-kode
Følgende VBA-kode kan hjælpe dig med at slette det angivne regneark, hvis det findes i projektmappen, gør som dette:
1. Hold nede i ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Slet et specifikt regneark, hvis det findes i projektmappen
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. Tryk derefter på F5 nøgle til at køre denne kode, vises et promptfelt for at minde dig om at skrive det arknavn, som du vil kontrollere, om der findes, se skærmbillede:
4. Og klik derefter på OK knap:
(1.) Hvis arket findes, slettes det med det samme, se skærmbillede:
(2.) Hvis arket ikke findes, vises en promptboks, der minder dig om som følgende skærmbillede vist:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!