Jak odstranit list na základě hodnoty buňky v aplikaci Excel?
Předpokládejme, že mám v sešitu více listů, teď chci odstranit listy na základě hodnoty buňky. Pokud například konkrétní buňka A1 obsahuje text „KTE“, je třeba odstranit všechny listy, které má buňka A1 tento text najednou. Tento článek vám může pomoci při řešení tohoto úkolu v aplikaci Excel.
Odstraňte list na základě hodnoty buňky pomocí kódu VBA
Odstraňte list na základě hodnoty buňky pomocí kódu VBA
Zde vám představím kód pro odstranění všech listů, které má konkrétní buňka určitou hodnotu, 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: Smazání listu na základě hodnoty buňky:
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
Poznámka: Ve výše uvedeném kódu, A1 je konkrétní buňka, která obsahuje určitý text, podle kterého chcete odstranit listy.
3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene, abyste zadali konkrétní hodnotu, na základě které chcete odstranit listy, viz screenshot:
4. A pak klikněte na tlačítko OK tlačítko, všechny listy, jejichž buňka A1 má text KTE, byly odstraněny najednou. Viz snímek 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!