Jak odstranit konkrétní list, pokud existuje v sešitu?
Jak byste mohli odstranit konkrétní list, pokud existuje v sešitu? Normálně jej musíte najít a zkontrolovat, zda existuje, a poté jej ručně odstranit. Zde budu hovořit o snadném způsobu, jak přímo odstranit určený list, pokud existuje v souboru Excel.
Odstraňte konkrétní list, pokud existuje v sešitu s kódem VBA
Odstraňte konkrétní list, pokud existuje v sešitu s kódem VBA
Následující kód VBA vám pomůže odstranit zadaný list, pokud v sešitu existuje, postupujte takto:
1. Podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Odstraňte konkrétní list, pokud v sešitu existuje
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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, zobrazí se výzva k připomenutí, abyste zadali název listu, který chcete zkontrolovat, pokud existuje, viz screenshot:
4. A pak klikněte na tlačítko OK Tlačítko:
(1.) Pokud list existuje, bude odstraněn najednou, viz screenshot:
(2.) Pokud list neexistuje, zobrazí se okno s výzvou, které vám připomene následující obrázek obrazovky:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!