Ինչպե՞ս ստուգել Excel- ում տիրույթի որոշակի անուն գոյություն ունի՞:
Նախքան որոշ VBA գրություններ գործարկելը, ձեզ հարկավոր է ստուգել, թե արդյո՞ք գոյություն ունեցող անվանումն առկա է աշխատանքային գրքում: Այս հոդվածում ներկայացված VBA կոդը կարող է օգնել արագորեն ստուգել, թե արդյոք առկա է որոշակի տիրույթի անուն Excel- ում:
Ստուգեք, արդյոք առկա է որոշակի տիրույթի անուն VBA կոդի հետ
Ստուգեք, արդյոք առկա է որոշակի տիրույթի անուն VBA կոդի հետ
Կարող եք գործարկել ստորև ներկայացված VBA կոդը `ընթացիկ աշխատանքային գրքում արագ ստուգելու համար, արդյոք առկա է որոշակի տիրույթի անուն:
1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը պատուհանում:
VBA կոդ. Ստուգեք, արդյոք Excel- ում կա որոշակի տիրույթ
Sub CheckRanges()
Dim chkRange As Range
Dim areasName(2) As String
Dim chkCnt As Long
Dim i As Integer
areasName(0) = "new"
areasName(1) = "MyRange"
areasName(2) = "Range2"
Application.ScreenUpdating = False
For i = 0 To 2
On Error Resume Next
chkCnt = Len(ThisWorkbook.Names(areasName(i)).Name)
On Error GoTo 0
If chkCnt <> 0 Then
Set chkRange = Range(areasName(i))
MsgBox "This Range: '" & areasName(i) & "' DOES exist!", vbInformation, "Kutools for Excel"
chkCnt = 0
Else
MsgBox "This Range: '" & areasName(i) & "' does NOT exist!", vbInformation, "Kutools for Excel"
End If
Next i
Application.ScreenUpdating = True
End Sub
Notes:
3. Սեղմեք F5 ծածկագիրը գործելու համար: Հետո ան Excel- ի համար նախատեսված գործիքներ երկխոսության տուփերը հայտնվում են ՝ ձեզ ասելու համար ՝ նշված տիրույթի անունը գոյություն ունի, թե ոչ, խնդրում ենք կտտացնել այստեղին OK կոճակները հաջորդաբար `երկխոսության տուփերը փակելու համար: Տեսեք,
Առնչվող հոդվածներ:
- Ինչպե՞ս ստուգել, արդյոք բջջի առաջին նիշը Excel- ում տառ կամ թիվ է:
- Ինչպե՞ս ստուգել, արդյոք բջջային արժեքը Excel- ում երկու արժեքի միջև է:
- Ինչպե՞ս ստուգել, արդյոք բջիջը սկսվում կամ ավարտվում է Excel- ում հատուկ նիշով:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: