Sut i glirio cynnwys yr ystod a enwir yn Excel?
Bydd yr erthygl hon yn dangos dull i chi o glirio cynnwys ystod benodol a enwir yn ogystal â chlirio cynnwys yr holl ystodau a enwir ond cadw'r enwau amrediad mewn taflen waith weithredol yn Excel.
Cynnwys clir yr ystod a enwir gyda chod VBA
Cynnwys clir yr ystod a enwir gyda chod VBA
Gwnewch fel a ganlyn i glirio cynnwys ystod benodol a enwir neu'r holl ystod a enwir yn y daflen waith gyfredol.
1. Yn y daflen waith mae'n cynnwys yr ystod a enwir y byddwch yn clirio cynnwys ohoni, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch isod god VBA i mewn i'r ffenestr Cod.
I glirio cynnwys ystod benodol a enwir yn y daflen waith, cymhwyswch y cod VBA isod.
Cod VBA 1: Cynnwys clir ystod benodol a enwir yn 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 Sub3. Gwasgwch y F5 allwedd i redeg y cod.
4. Yna a Kutools for Excel blwch deialog yn ymddangos. Rhowch enw'r ystod a enwir y byddwch yn clirio cynnwys ohoni, ac yna cliciwch ar y OK botwm. Gweler y screenshot:
Yna mae'r holl gynnwys mewn celloedd o'r ystod benodol a enwir yn cael ei glirio ar unwaith.
I glirio cynnwys yr holl ystodau a enwir yn y daflen waith weithredol, defnyddiwch y cod VBA isod.
Cod VBA 2: Cynnwys clir yr holl ystodau a enwir ar y ddalen weithredol yn 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 Sub3. Gwasgwch y F5 allwedd i redeg y cod, yna cliciwch ar y OK botwm yn y Kutools for Excel blwch deialog fel y dangosir isod screenshot.
Yna mae cynnwys yr holl ystodau a enwir yn cael eu clirio o ddalen weithredol.
Erthyglau cysylltiedig:
- Sut i glirio cynnwys blwch combo gyda chod VBA yn Excel?
- Sut i glirio cynnwys a fformatio ar yr un pryd mewn celloedd yn Excel?
- Sut i glirio gwerthoedd cyfyngedig mewn celloedd yn Excel?
- Sut i glirio cynnwys celloedd penodedig os yw gwerth cell arall yn newid yn Excel?
- Sut i glirio cynnwys celloedd penodedig ar agor ac allanfa yn llyfr gwaith Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
