Ինչպե՞ս մաքրել անվանումների տիրույթի պարունակությունը 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 Sub3. Սեղմեք 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 Sub3. Սեղմեք F5 ծածկագիրը գործարկելու համար, ապա կտտացրեք OK կոճակը Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, ինչպես ցույց է տրված նկարում
Դրանից հետո բոլոր անվանված միջակայքերի բովանդակությունը մաքրվում է ակտիվ թերթից:
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս մաքրել VBA կոդով համակցված տուփի պարունակությունը Excel- ում:
- Ինչպե՞ս մաքրել բովանդակությունը և ձևաչափումը միաժամանակ Excel- ի բջիջներում:
- Ինչպե՞ս մաքրել սահմանափակ արժեքները բջիջներում Excel- ում:
- Ինչպե՞ս մաքրել նշված բջիջի պարունակությունը, եթե Excel- ում մեկ այլ բջջի արժեքը փոխվում է:
- Ինչպե՞ս մաքրել նշված բջջային պարունակությունը Excel- ի աշխատանքային գրքում բաց և ելքի վրա:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
