Ինչպե՞ս ստեղծել թերթիկ, եթե աշխատանքային գրքում գոյություն չունի:
Ենթադրելով, որ դուք ունեք աշխատանքային գրքույկ, որը պարունակում է բազմաթիվ աշխատաթերթեր, այժմ անհրաժեշտ է պարզել, թե գոյություն ունի՞ հատուկ աշխատանքային թերթի անուն: Եթե աշխատաթերթի անունը գոյություն չունի, խնդրում ենք ստեղծել այն: Եթե դա գոյություն ունի, խնդրում ենք արագ հաղորդագրություն տալ ՝ տեղեկացնելով, որ թերթիկը գոյություն ունի: Ինչպե՞ս կարող եք լուծել այս խնդիրը Excel- ում:
Ստեղծեք թերթ, եթե գոյություն չունի աշխատանքային գրքում VBA կոդով
Ստեղծեք թերթ, եթե գոյություն չունի աշխատանքային գրքում VBA կոդով
Հաջորդ VBA կոդը կարող է օգնել ստուգել աշխատանքային թերթի որոշակի անվանումը, եթե առկա է աշխատանքային գրքում, եթե ոչ, կոդը կարող է ստեղծել թերթիկ ՝ ըստ ձեզ:
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Ստեղծեք թերթիկ, եթե աշխատանքային գրքում գոյություն չունի.
Sub TestSheetCreate()
'Updateby Extendoffice
Dim newSheetName As String
Dim checkSheetName As String
newSheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
"sheet4", , , , , 2)
On Error Resume Next
checkSheetName = Worksheets(newSheetName).Name
If checkSheetName = "" Then
Worksheets.Add.Name = newSheetName
MsgBox "The sheet named ''" & newSheetName & _
"'' does not exist in this workbook but it has been created now.", _
vbInformation, "Kutools for Excel"
Else
MsgBox "The sheet named ''" & newSheetName & _
"''exist in this workbook.", vbInformation, "Kutools for Excel"
End If
End Sub
3, Եվ հետո սեղմեք F5 Այս կոդն աշխատեցնելու բանալին դուրս է գալիս հուշման տուփ ՝ հիշեցնելու համար, որ մուտքագրեք թերթիկի անունը, որը ցանկանում եք ստուգել, տես նկարի նկարը.
4. Այնուհետեւ կտտացրեք OK կոճակը:
(1.) Եթե թերթը գոյություն ունի, կհայտնվի հուշման տուփ ՝ հիշեցնելու համար, ինչպես ցույց է տրված հետևյալ նկարը.
(2.) Եթե թերթը գոյություն չունի, այն կստեղծվի միանգամից, տես նկարի նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: