Jak vymazat obsah pojmenovaného rozsahu v aplikaci Excel?
Tento článek vám ukáže způsob vymazání obsahu zadaného pojmenovaného rozsahu a také vymazání obsahu všech pojmenovaných rozsahů, ale ponechání názvů rozsahů v aktivním listu v aplikaci Excel.
Vymažte obsah pojmenovaného rozsahu pomocí kódu VBA
Vymažte obsah pojmenovaného rozsahu pomocí kódu VBA
Chcete-li vymazat obsah zadaného pojmenovaného rozsahu nebo celého pojmenovaného rozsahu v aktuálním listu, postupujte následovně.
1. V listu obsahuje pojmenovaný rozsah, ze kterého vymažete obsah, stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna Kód.
Pro vymazání obsahu zadaného pojmenovaného rozsahu v listu použijte níže uvedený kód VBA.
Kód VBA 1: Vymazání obsahu zadaného pojmenovaného rozsahu v aplikaci Excel
Sub Clear_ActiveSheet_Name_Ranges()
Dim xName As Name
Dim xInput As String
Dim xRg As Range
On Error Resume Next
xInput = Application.InputBox("Enter the name of the named range you will clear contents from:", "KuTools For Excel", , , , , , 2)
If xInput = "False" Then Exit Sub
Application.ScreenUpdating = False
Set xName = ActiveWorkbook.Names(xInput)
If Not xName Is Nothing Then
xName.RefersToRange.Clear
End If
Application.ScreenUpdating = True
End Sub
3. zmáčkni F5 klíč ke spuštění kódu.
4. Pak a Kutools pro Excel objeví se dialogové okno. Zadejte název pojmenovaného rozsahu, ze kterého vymažete obsah, a poté klikněte na OK knoflík. Viz screenshot:
Poté se okamžitě vymaže veškerý obsah v buňkách zadaného pojmenovaného rozsahu.
Pro vymazání obsahu všech pojmenovaných rozsahů v aktivním listu použijte níže uvedený kód VBA.
Kód VBA 2: Vymazání obsahu všech pojmenovaných rozsahů v aktivním listu v aplikaci Excel
Sub Clear_All_ActiveSheet_Name_Ranges()
Dim xRange As Range
Dim xName As Name
Dim xReSponse As Long
On Error Resume Next
xReSponse = MsgBox("For clearing contents of all named ranges of active sheet in " & ActiveWorkbook.Name _
& Chr(10) & "('OK' to Delete, 'Cancel' to Quit.)", vbOKCancel, "KuTools For Excel")
If xReSponse = 2 Then
MsgBox "User chose to cancel.", vbOKOnly, "KuTools For Excel"
Exit Sub
End If
For Each xName In ActiveWorkbook.Names
Set xRange = Nothing
Set xRange = Intersect(ActiveSheet.UsedRange, xName.RefersToRange)
If Not xRange Is Nothing Then xRange.Clear
Next xName
Application.ScreenUpdating = True
End Sub
3. zmáčkni F5 spusťte kód a poté klikněte na OK tlačítko v Kutools pro Excel zobrazeno dialogové okno níže.
Poté se obsah všech pojmenovaných rozsahů vymaže z aktivního listu.
Související články:
- Jak vymazat obsah rozbalovacího seznamu s kódem VBA v aplikaci Excel?
- Jak vymazat obsah a formátování současně v buňkách v aplikaci Excel?
- Jak vymazat omezené hodnoty v buňkách v aplikaci Excel?
- Jak vymazat zadaný obsah buňky, pokud se hodnota jiné buňky změní v aplikaci Excel?
- Jak vymazat zadaný obsah buňky při otevření a ukončení v sešitu aplikace Excel?
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!