Conas ábhar an raon ainmnithe a ghlanadh in Excel?

Taispeánfaidh an t-alt seo modh duit chun ábhar de raon ainmnithe sonraithe a ghlanadh chomh maith le hinneachar na raonta ainmnithe go léir a ghlanadh ach na hainmneacha raon a choinneáil i mbileog oibre gníomhach in Excel.

Ábhar soiléir den raon ainmnithe le cód VBA

---

Ábhar soiléir den raon ainmnithe le cód VBA

Déan mar a leanas le do thoil chun ábhar raon ainmnithe sonraithe nó gach raon ainmnithe a ghlanadh sa bhileog oibre reatha.

1. Sa bhileog oibre tá an raon ainmnithe a ghlanfaidh tú ábhar uaidh, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil thíos cód VBA isteach i bhfuinneog an Chóid.

Chun ábhar raon ainmnithe sonraithe a ghlanadh sa bhileog oibre, cuir an cód VBA thíos i bhfeidhm.

Cód VBA 1: Ábhar soiléir raon ainmnithe sonraithe 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. Brúigh an F5 eochair chun an cód a rith.

4. Ansin a Kutools le haghaidh Excel tagann bosca dialóige suas. Iontráil ainm an raoin ainmnithe le do thoil glanfaidh tú an t-ábhar, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

Ansin glantar an t-ábhar go léir i gcealla den raon ainmnithe sonraithe láithreach.

Chun ábhar na raonta ainmnithe go léir a ghlanadh sa bhileog oibre gníomhach, cuir an cód VBA thíos i bhfeidhm.

Cód VBA 2: Ábhar soiléir na raonta ainmnithe uile ar an mbileog ghníomhach 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. Brúigh an F5 eochair chun an cód a rith, ansin cliceáil ar an OK cnaipe sa Kutools le haghaidh Excel bosca dialóige mar a thaispeántar thíos an pictiúr.

Ansin glantar ábhar na raonta ainmnithe uile ón mbileog ghníomhach.

---

Earraí gaolmhara:

• Conas ábhar an bhosca teaglama a ghlanadh le cód VBA in Excel?
• Conas ábhar agus formáidiú a ghlanadh ag an am céanna i gcealla in Excel?
• Conas luachanna srianta i gcealla in Excel a ghlanadh?
• Conas ábhar cille sonraithe a ghlanadh má athraíonn luach cille eile in Excel?
• Conas ábhar cille sonraithe a ghlanadh ar oscailt agus amach i leabhar oibre Excel?