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?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!