Ինչպե՞ս մաքրել անվանումների տիրույթի պարունակությունը Excel- ում:

Այս հոդվածը ձեզ ցույց կտա նշված անվանված տիրույթի բովանդակությունը մաքրելու եղանակը, ինչպես նաև բոլոր անվանված տիրույթների բովանդակությունը մաքրելու, բայց տիրույթի անունները Excel- ում ակտիվ աշխատանքային թերթում պահելու եղանակը:

Անվանված միջակայքի հստակ բովանդակությունը VBA կոդով

---

Անվանված միջակայքի հստակ բովանդակությունը VBA կոդով

Ընթացիկ աշխատանքային թերթում նշված անվանված տիրույթի կամ բոլոր անվանված տիրույթի բովանդակությունը մաքրելու համար արեք հետևյալը.

1. Աշխատաթերթում պարունակում է այն անվանումները, որոնցից դուք մաքրելու եք բովանդակությունը, սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք ներքևում գտնվող VBA կոդն օրենսգրքի պատուհանում:

Աշխատաթերթում նշված անվանված տիրույթի բովանդակությունը մաքրելու համար խնդրում ենք կիրառել ստորև նշված VBA կոդը:

VBA կոդ 1. Մաքրել 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. Սեղմեք F5 ծածկագիրը գործելու համար:

4. Հետո ա Excel- ի համար նախատեսված գործիքներ բացվում է երկխոսության տուփ: Խնդրում ենք մուտքագրել այն անվանված տիրույթի անունը, որից դուք կջնջեք բովանդակությունը և կտտացրեք այն OK կոճակ Տեսեք,

Դրանից հետո նշված անվանված տիրույթի բջիջներում բոլոր բովանդակությունն անմիջապես մաքրվում է:

Ակտիվ աշխատանքային թերթում բոլոր անվանված տիրույթների բովանդակությունը մաքրելու համար խնդրում ենք կիրառել ստորև նշված VBA կոդը:

VBA կոդ 2. 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. Սեղմեք F5 ծածկագիրը գործարկելու համար, ապա կտտացրեք OK կոճակը Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, ինչպես ցույց է տրված նկարում

Դրանից հետո բոլոր անվանված միջակայքերի բովանդակությունը մաքրվում է ակտիվ թերթից:

---

Առնչվող հոդվածներ քանակը:

• Ինչպե՞ս մաքրել VBA կոդով համակցված տուփի պարունակությունը Excel- ում:
• Ինչպե՞ս մաքրել բովանդակությունը և ձևաչափումը միաժամանակ Excel- ի բջիջներում:
• Ինչպե՞ս մաքրել սահմանափակ արժեքները բջիջներում Excel- ում:
• Ինչպե՞ս մաքրել նշված բջիջի պարունակությունը, եթե Excel- ում մեկ այլ բջջի արժեքը փոխվում է:
• Ինչպե՞ս մաքրել նշված բջջային պարունակությունը Excel- ի աշխատանքային գրքում բաց և ելքի վրա: