Hoe de inhoud van het benoemde bereik in Excel te wissen?
Dit artikel toont u de methode om de inhoud van een opgegeven benoemd bereik te wissen en de inhoud van alle benoemde bereiken te wissen, maar de bereiknamen in een actief werkblad in Excel te behouden.
Wis de inhoud van het genoemde bereik met VBA-code
Wis de inhoud van het genoemde bereik met VBA-code
Ga als volgt te werk om de inhoud van een opgegeven benoemd bereik of alle benoemde bereiken in het huidige werkblad te wissen.
1. In het werkblad bevat het benoemde bereik waarvan u de inhoud wilt wissen, druk op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het codevenster.
Pas de onderstaande VBA-code toe om de inhoud van een opgegeven benoemd bereik in het werkblad te wissen.
VBA-code 1: wis de inhoud van een opgegeven benoemd bereik in 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. druk de F5 sleutel om de code uit te voeren.
4. Vervolgens een Kutools for Excel dialoogvenster verschijnt. Voer de naam in van het benoemde bereik waarvan u de inhoud wilt wissen en klik vervolgens op het OK knop. Zie screenshot:
Vervolgens wordt alle inhoud in cellen van het opgegeven benoemde bereik onmiddellijk gewist.
Pas de onderstaande VBA-code toe om de inhoud van alle benoemde bereiken in een actief werkblad te wissen.
VBA-code 2: wis de inhoud van alle benoemde bereiken in het actieve blad in 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. druk de F5 toets om de code uit te voeren, en klik vervolgens op de OK knop in de Kutools for Excel dialoogvenster zoals hieronder afgebeeld.
Vervolgens wordt de inhoud van alle benoemde bereiken gewist van het actieve blad.
Gerelateerde artikelen:
- Hoe de inhoud van de keuzelijst met invoervak met VBA-code in Excel te wissen?
- Hoe inhoud en opmaak tegelijkertijd in cellen in Excel wissen?
- Hoe beperkte waarden in cellen in Excel te wissen?
- Hoe de gespecificeerde celinhoud wissen als de waarde van een andere cel in Excel verandert?
- Hoe de gespecificeerde celinhoud wissen bij openen en afsluiten in Excel-werkmap?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!