Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս վերանվանել թերթերը՝ հիմնված բջիջների արժեքների վրա (ցանկից) Excel-ում:

Excel-ում մեկ աշխատաթերթի վերանվանումը սովորաբար կատարվում է թերթի ներդիրի վրա աջ սեղմելով և համատեքստի ընտրացանկից ընտրելով «Վերանվանել»: Այնուամենայնիվ, եթե Ձեզ անհրաժեշտ է վերանվանել մի քանի աշխատաթերթեր՝ օգտագործելով նշված բջիջների արժեքները, կամ ցանկանում եք դինամիկ կերպով անվանել աշխատաթերթը՝ հիմնված կոնկրետ բջջի արժեքի վրա, կան մի քանի մեթոդներ, որոնք կարող եք օգտագործել: Այս հոդվածը ձեզ կառաջնորդի այս տեխնիկայի միջոցով՝ գործընթացը դարձնելով պարզ և արդյունավետ:

Դինամիկ կերպով վերանվանեք թերթիկը բջջային արժեքից VBA-ով

Excel-ում VBA-ի միջոցով մենք կարող ենք դինամիկ կերպով վերանվանել աշխատաթերթը որոշակի բջջի արժեքից, և դուք կարող եք անել հետևյալը.

Քայլ 1: Աջ սեղմեք աշխատաթերթի թերթիկի անվան վրա, որը դինամիկ կերպով կանվանեք այն բջջային արժեքով և ընտրեք Դիտել կոդը աջ կտտացնելու ցանկից:

Քայլ 2: Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանում, տեղադրեք հետևյալ VBA կոդը մոդուլի պատուհանում:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

Ձեր պատասխանը ուղարկված չէ: Այս VBA-ն դինամիկ կերպով վերանվանում է աշխատաթերթը՝ հիմնվելով A1 բջիջի արժեքի վրա, դուք կարող եք փոխել «A1»-ը այլ բջիջների՝ ելնելով ձեր կարիքներից:

Քայլ 3: Պահպանեք VBA կոդը և փակեք Microsoft Visual Basic կիրառման համար պատուհան.

Դրանից հետո կտեսնեք, որ թերթի անունը դինամիկորեն փոխվում է ՝ ելնելով նշված բջջային արժեքից:

Նշումներ:

  • Եթե ​​նշված բջիջը դատարկ է, աշխատաթերթը չի վերանվանվի:
  • Աշխատանքային թերթիկը կվերանվանվի յուրաքանչյուր անգամ, երբ դուք փոխեք արժեքը նշված բջիջում:
  • Եթե ​​նշված բջիջում մուտքագրեք հատուկ նիշեր, օրինակ՝ *, սխալի նախազգուշացում կհայտնվի:

Վերանվանել մի քանի թերթեր՝ հիմնված համապատասխան թերթերի բջիջների արժեքների վրա

Վերը նկարագրված մեթոդը թույլ է տալիս վերանվանել մեկ թերթիկը միաժամանակ: Այնուամենայնիվ, օգտագործելով Վերանվանել մի քանի աշխատանքային թերթեր առանձնահատկությունը Excel- ի համար նախատեսված գործիքներ, դուք կարող եք արագ վերանվանել բոլոր կամ մի քանի թերթերը՝ յուրաքանչյուր համապատասխան թերթում նշված բջիջի արժեքի հիման վրա: Օրինակ, դուք կարող եք վերանվանել յուրաքանչյուր թերթ, որպեսզի համապատասխանի տվյալ թերթի A1 բջիջի արժեքին:

Excel- ի համար նախատեսված գործիքներ - Փաթեթավորված ավելի քան 300 հիմնական գործիքներով Excel-ի համար: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Ներբեռնել հիմա!

  1. Սեղմել Kutools Plus > Աշխատանքային թերթիկ > Վերանվանել աշխատանքային թերթերը, Տեսեք,
  2. Բացման մեջ Վերանվանել մի քանի աշխատանքային թերթեր երկխոսության տուփ, խնդրում ենք անել հետևյալը.
    1. Է Worksheets ցուցակը, ստուգեք աշխատաթերթերը, որոնք կվերանվանեք:
    2. Է Վերանվանել ընտրանքները բաժին, ստուգեք Փոխարինեք թերթի բնօրինակը տարբերակ.
    3. Է Նոր աշխատաթերթի անուն բաժինը, խնդրում ենք ստուգել Վերանվանել աշխատանքային թերթերը հատուկ բջիջով տարբերակը և նշեք այն բջիջը, որի բովանդակությամբ կվերանվանեք համապատասխան թերթիկը:
    4. Սեղմեք է Ok կոճակը:

Եվ այժմ բոլոր ստուգված թերթերը վերանվանվում են յուրաքանչյուր թերթի նշված բջիջի հիման վրա: Տես սքրինշոթը.

Նշում: Ցանկանում եք մուտք գործել Վերանվանել մի քանի աշխատանքային թերթեր հատկանիշը? Բեռնել Excel- ի համար նախատեսված գործիքներ հիմա! Դրանից բացի, Kutools-ը պարծենում է 300+ այլ առանձնահատկություններով և առաջարկում է 30-օրյա անվճար փորձարկում: Մի սպասեք, փորձեք այն այսօր:

Վերանվանեք մի քանի թերթ նշված ցանկից

Excel- ի համար նախատեսված գործիքներ Վերանվանել մի քանի աշխատանքային թերթեր հատկությունը նաև աջակցում է վերանվանել բազմաթիվ թերթեր՝ հիմնված նշված ցանկի բջիջների արժեքների վրա:

Excel- ի համար նախատեսված գործիքներ - Փաթեթավորված ավելի քան 300 հիմնական գործիքներով Excel-ի համար: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Ներբեռնել հիմա!

  1. Սեղմել Kutools Plus > Աշխատանքային թերթիկ > Վերանվանել աշխատանքային թերթերը.
  2. Բացման մեջ Վերանվանել մի քանի աշխատանքային թերթեր երկխոսության տուփ, կազմաձևեք հետևյալ կերպ.
    1. Է Worksheets ցուցակ, ընտրեք աշխատաթերթերը, որոնք կվերանվանեք:
    2. Է Վերանվանել ընտրանքները բաժին, ստուգեք Փոխարինեք թերթի բնօրինակը տարբերակ.
    3. Է Նոր աշխատաթերթի անուն բաժին, ստուգեք Հատուկ տիրույթից տարբերակը եւ սեղմեք  կոճակ երկրորդը բացելու համար Վերանվանել մի քանի աշխատանքային թերթեր երկխոսության տուփ (տես աջ սքրինշոթը): Այնուհետև ընտրեք բջիջների ցանկը, որոնք կվերանվանեք ըստ իրենց արժեքների և սեղմեք կոճակը OK կոճակը:
    4. Սեղմեք է Ok վերանվանումը կիրառելու կոճակը:
    5.

Այնուհետև կտեսնեք, որ բոլոր ստուգված աշխատաթերթերի անունները փոխարինված են նշված ցանկի բջիջների արժեքներով: Տես ստորև սքրինշոթը.

Նշում: Ցանկանում եք մուտք գործել Վերանվանել մի քանի աշխատանքային թերթեր հատկանիշը? Բեռնել Excel- ի համար նախատեսված գործիքներ հիմա! Դրանից բացի, Kutools-ը պարծենում է 300+ այլ առանձնահատկություններով և առաջարկում է 30-օրյա անվճար փորձարկում: Մի սպասեք, փորձեք այն այսօր:

Դեմո. Excel- ում հիմնված բջիջների արժեքների (ցուցակից) անվանման թերթիկներ


Excel- ի համար նախատեսված գործիքներ300-ից ավելի հարմար գործիքներ ձեր մատների տակ: Այսօր սկսեք ձեր 30-օրյա անվճար փորձաշրջանը՝ առանց գործառույթների սահմանափակումների: Download Now!

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

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (7)
No ratings yet. Be the first to rate!
Lorenzo
Lorenzo
This comment was minimized by the moderator on the site
Hi there, one question if i want to use the value of 2 cells (A1 & B1) what i have to change?
Reply
0
0
Amanda Lee
Amanda Lee     Lorenzo
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sheetName As String
    
    If Not Intersect(Target, Me.Range("A1:B1")) Is Nothing Then
        sheetName = VBA.Left(Me.Range("A1").Value & Me.Range("B1").Value, 31)
        
        If sheetName <> "" Then
            Application.ActiveSheet.Name = sheetName
        End If
    End If
End Sub

Once you done pasting the code to the View Code window, please select the cell A1 or B1 to make the code run.

Amanda
Reply
Report
0
0
Олег
Олег
This comment was minimized by the moderator on the site
Здравствуйте! Подскажите, пожалуйста, а как в Excel создать левую панель, в которой разместить названия листов? То есть перенести ярлыки листов влево (сейчас то они снизу)
Reply
0
0
Amanda Lee
Amanda Lee     Олег
This comment was minimized by the moderator on the site
Hi there,

Hope this tutorial would help you: https://www.extendoffice.com/documents/excel/3117-excel-worksheet-tabs-in-a-vertical-arrangement-on-left-side.html

Amanda
Reply
Report
0
0
sriggins
sriggins
This comment was minimized by the moderator on the site
I used the dynamic sheet name coding and functionally it works well, but I get the Runtime Error 1004 whenever I click inside a cell. Anyone have any info on how to correct this?


Thanks
Reply
Report
0
0
HHani
HHani
This comment was minimized by the moderator on the site
This is awesome, thank you so much....
Reply
0
0
Mel
Mel
This comment was minimized by the moderator on the site
so I am trying to do this, but nothing is happening - my sheet names aren't changing, everything is the exact same. Do you know what I am doing wrong??
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations