Hogyan törölhető a megnevezett tartomány tartalma az Excelben?
Ez a cikk bemutatja a megadott megnevezett tartomány tartalmának, valamint az összes megnevezett tartomány tartalmának törlésének módszerét, de a tartományneveket az Excel aktív munkalapján tartja.
A megnevezett tartomány tartalmának törlése VBA kóddal
A megnevezett tartomány tartalmának törlése VBA kóddal
Kérjük, tegye a következőket, hogy törölje az aktuális munkalap megadott vagy megnevezett tartományának tartalmát.
1. A munkalap tartalmazza a megnevezett tartományt, amelyből törli a tartalmat, nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja a VBA kód alatt a Kód ablakba.
A munkalapon megadott megnevezett tartomány tartalmának törléséhez kérjük, alkalmazza az alábbi VBA kódot.
1. VBA-kód: Egy megadott megnevezett tartomány tartalmának törlése az Excelben
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. megnyomni a F5 gombot a kód futtatásához.
4. Ezután a Kutools az Excel számára megjelenik a párbeszédpanel. Kérjük, írja be annak a megnevezett tartománynak a nevét, amelyből törli a tartalmat, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
Ezután a megadott nevű tartomány celláinak összes tartalma azonnal törlődik.
Az aktív munkalap összes megnevezett tartományának tartalmának törléséhez kérjük, alkalmazza az alábbi VBA kódot.
2. VBA-kód: Az összes megnevezett tartomány tartalmának törlése az Excel aktív lapjában
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. megnyomni a F5 gombot a kód futtatásához, majd kattintson a gombra OK gombot a Kutools az Excel számára párbeszédpanel az alábbi képernyőképen látható.
Ezután az összes megnevezett tartomány tartalma törlődik az aktív munkalapról.
Kapcsolódó cikkek:
- Hogyan törölhető a VBA kóddal ellátott kombinációs doboz tartalma az Excelben?
- Hogyan törölhető egyszerre a tartalom és a formázás az Excel celláiban?
- Hogyan lehet törölni a korlátozott értékeket az Excel celláiban?
- Hogyan lehet törölni a megadott cellatartalmat, ha egy másik cella értéke megváltozik az Excelben?
- Hogyan lehet törölni a megadott cellatartalmat az Excel munkafüzet megnyitása és kilépéskor?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!