Սովորաբար Excel- ում աշխատաթերթերը վերանվանելու համար մենք կարող ենք արագ երկու անգամ կտտացնել թերթիկի ներդիրին կամ աջ սեղմել թերթիկի ներդիրի վրա ՝ ընտրելու համար Անուններ վերանվանելու հրամանը ընտրելու համար Դա բավականին հարմար է Excel- ում մեկ կամ երկու աշխատանքային թերթ վերանվանելու համար, բայց եթե մենք ուզում ենք մեկ գործողության ընթացքում վերանվանել բազմաթիվ աշխատանքային թերթեր, ինչպե՞ս կարող ենք դա անել:

Օգտագործելով Վերանվանել հրամանը `աշխատանքային թերթերը վերանվանելու համար

Օգտագործելով հարմար գործիք բազմաթիվ աշխատանքային թերթեր հարմարավետորեն վերանվանելու համար

Բազմաթիվ աշխատանքային թերթեր վերանվանելու համար օգտագործելով VBA կոդ

Օգտագործելով Վերանվանել հրամանը `աշխատանքային թերթերը վերանվանելու համար

Զարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel-ում, ինչպիսիք են Chrome-ը, Edge-ը, Firefox-ը և Safari-ն:
Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

Մենք կարող ենք արագ վերանվանել Excel- ում աշխատաթերթերը հետևյալով Վերանվանել հրաման ՝ համաձայն հետևյալ ընթացակարգերի.

Աջ կտտացրեք այն թերթիկի ներդիրին, որը ցանկանում եք վերանվանել, և ընտրեք Վերանվանել հրամանը աջ կտտոցի ընտրացանկից: Կամ կրկնակի կտտացրեք թերթիկի ներդիրին ՝ աշխատանքային թերթը վերանվանելու համար: Դրանից հետո մուտքագրեք նոր անուն, ապա սեղմեք Մտնել այն վերանվանելու բանալին, տես նկարի նկարը.

Այս Վերանվանել հրաման, միանգամից կարող եք վերանվանել միայն մեկ աշխատանքային թերթ, բազմաթիվ աշխատանքային թերթեր վերանվանելու համար, խնդրում ենք կրկնել վերը նշված գործողությունները:

Օգտագործելով հարմար գործիք բազմաթիվ աշխատանքային թերթեր հարմարավետորեն վերանվանելու համար

Բազմաթիվ աշխատանքային թերթեր վերանվանելու համար օգտագործելով VBA կոդ

Այստեղ ես կներկայացնեմ ձեզ երկու VBA կոդ `բազմաթիվ աշխատանքային թերթեր վերանվանելու համար:

Կոդ 1. VBA կոդ՝ մի քանի աշխատաթերթերը միանգամից վերանվանելու ձեր ուզած անունով

Օգտագործելով հետևյալ VBA կոդը, դուք կարող եք արագ վերանվանել ընթացիկ աշխատանքային գրքի բոլոր աշխատանքային թերթերը նույն նախածանցով `իրենց աշխատանքային թերթերի անվանումներում, ինչպիսիք են` KTE-order1, KTE-order 2 և KTE-order 3…

1. Սեղմիր Երեվակիչ > Visual Basicեւ սեղմեք Տեղադրել > Մոդուլներ է Microsoft Visual Basic դիմում Windows.

2. Խնդրում ենք պատճենել և տեղադրեք հետևյալ կոդը ՝ Մոդուլներ.

VBA. Վերանվանեք բոլոր թերթերը `մուտքագրելով որոշակի անուն

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3.  Սեղմել  կոդն իրականացնելու կոճակը և ելնող երկխոսության մեջ մուտքագրեք ձեր ուզած անունը: տեսեք սքրինշոթեր.

4. Սեղմել OK, Դրանից հետո կտեսնեք, որ բոլոր թերթերը վերանվանվում են:

2. VBA կոդ ՝ ակտիվ աշխատանքային գրքի յուրաքանչյուր աշխատանքային թերթում բազմաթիվ աշխատանքային թերթեր վերանվանելու համար ՝ բջիջների հատուկ արժեքով

Օգտագործելով հետևյալ VBA կոդը ՝ այն վերանվանելու է ընթացիկ աշխատանքային գրքի բոլոր աշխատանքային թերթերը ՝ օգտագործելով հատուկ բջիջի պարունակությունը: Օրինակ, ամբողջ աշխատանքային գրքի A1 բջիջում կարող եք մուտքագրել աշխատաթերթի անունը, այնուհետև աշխատաթերթը կվերանվանվի որպես A1 բջջային արժեք:

1.  Խնդրում ենք նշել յուրաքանչյուր բջիջ `յուրաքանչյուր թերթում աշխատաթերթի անունը պարունակելու համար և այնտեղ մուտքագրեք աշխատաթերթի անունը: Այս օրինակում ես մուտքագրեմ աշխատաթերթի անունը A1 բջիջում յուրաքանչյուր աշխատանքային թերթում:

2.  Սեղմել Երեվակիչ > Visual Basicեւ սեղմեք Տեղադրել > Մոդուլներ է Microsoft Visual Basic հավելված Windows.

3.  Խնդրում ենք պատճենել և տեղադրեք հետևյալ կոդը Մոդուլի մեջ:

VBA. Վերանվանել աշխատանքային թերթերը ըստ բջջի որոշակի բովանդակության

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4.  Սեղմել  ծածկագիրը կատարելու համար: Բոլոր աղյուսակները վերանվանվում են ՝ հիմնվելով A1 բջիջների պարունակության վրա:

Դեմո. Վերանվանեք բազմաթիվ աշխատաթերթեր Kutools- ի հետ Excel- ի համար

Առնչվող հոդվածներ