Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս դարձնել թերթիկի ներդիրի անունը Excel- ում բջջային արժեքին հավասար:

Որոշ դեպքերում կարող է անհրաժեշտ լինել վերանվանել աշխատանքային թերթը `ելնելով նշված բջջային արժեքից: Այս հոդվածում մենք ձեզ ցույց կտանք Excel- ում թերթիկի ներդիրի անունը հավասարեցնելու բջջային արժեքին հավասարեցնելու մեթոդները:

Թերթի ներդիրի անունը հավասարեցրեք VBA կոդով բջջային արժեքին
Excel- ի համար Kutools- ի հետ թերթիկի ներդիրի անունը հավասարեցրեք բջջային արժեքին


Թերթի ներդիրի անունը հավասարեցրեք VBA կոդով բջջային արժեքին

Հետևյալ VBA կոդով դուք կարող եք ավտոմատ կերպով դարձնել թերթիկի ներդիրի անունը հավասար բջիջի արժեքին:

1. Աջ կտտացրեք թերթիկի ներդիրին, որը ցանկանում եք թերթիկի անունը հավասարեցնել բջջային արժեքին, ապա կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից: Տեսեք,

2. Պատճենեք և կպցրեք ծածկագիրը ներքևում «Code» պատուհանում, ապա սեղմեք ալտ + Q միաժամանակ ստեղներ ՝ Microsoft Visual Basic հավելվածների համար պատուհանը փակելու համար:

VBA կոդ. Թերթի ներդիրը հավասարեցրու բջջային արժեքին

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub

ՆշումԿոդում `A1- ը այն բջիջն է, որը պարունակում է այն արժեքը, որը դուք պետք է օգտագործեք որպես թերթի անուն: Դուք կարող եք փոխել այն, ինչ ձեզ հարկավոր է:

Այսուհետ, երբ A1 բջիջի արժեքը փոխվեց, թերթիկի ներդիրի անունը նույնպես հավասարապես կփոխվի:


Excel- ի համար Kutools- ի հետ թերթիկի ներդիրի անունը հավասարեցրեք բջջային արժեքին

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

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

1: սեղմեք Kutools Plus > Աշխատանքային թերթիկ > Վերանվանել մի քանի աշխատանքային թերթեր, Տեսեք,

2. Մեջ Վերանվանել մի քանի աշխատանքային թերթեր երկխոսության տուփ, դուք պետք է անեք հետևյալը.

1) Ստուգեք աշխատաթերթի անունները, որոնք ցանկանում եք վերանվանել այստեղում Worksheets տուփ (կարող եք ընտրել մեկ թերթ կամ մի քանի թերթ):
2) Ընտրեք Փոխարինեք թերթի բնօրինակը տուփի մեջ Վերանվանել ընտրանքները բաժնում:
3) Եթե ​​ցանկանում եք վերանվանել նշված թերթի կամ մի քանի աշխատանքային թերթեր `նշված բջիջի արժեքով, ընտրեք Հատուկ տիրույթից տարբերակը և ընտրեք այն բջիջների շարքը, որի հիման վրա ցանկանում եք վերանվանել թերթերը:
4) Սեղմիր OK կոճակ Տեսեք,

Դուք կարող եք տեսնել, որ ընտրված աշխատանքային թերթերը վերանվանվում են նշված տիրույթի արժեքով անմիջապես, ինչպես ցույց է տրված նկարում:

Notes:

1. Կարող եք օգտագործել այն ֆիլտր գործառույթը ՝ հեշտությամբ զտելու համար անհրաժեշտ աշխատաթերթը, եթե գոյություն ունեն բազմաթիվ աշխատաթերթեր:
2. Եթե ցանկանում եք վերանվանել բազմաթիվ թերթեր յուրաքանչյուր թերթում որոշակի բջջային արժեքով: Օրինակ, թերթ 1-ը հավասար կլինի նրա բջիջի A1- ի արժեքին, իսկ թերթիկը 2-ը նույնպես հավասար կլինի իր բջիջի A1- ի արժեքին: Խնդրում ենք, ընտրեք աշխատաթերթերը Worksheets տուփը, ապա ընտրեք Վերանվանել աշխատանքային թերթերը հատուկ բջիջով տարբերակը և վանդակում նշեք A1 բջիջը:

3. Թերթի անունը ավտոմատ կերպով չի փոխվի բջիջների արժեքի փոփոխությունների հետ միասին:

  Եթե ​​ցանկանում եք ունենալ անվճար փորձաշրջան (30-օր) այս կոմունալ, խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


Excel- ի համար Kutools- ի հետ թերթիկի ներդիրի անունը հավասարեցրեք բջջային արժեքին


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (28)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես սա տեղադրեցի հրահանգների համաձայն, բայց այն չհայտնվեց իմ հասանելի մակրոների ցանկում: Ես փորձեցի ձեռքով գործարկել այն՝ մուտքագրելով Մակրո անունը: Երբ այն փորձեց գործարկել Մակրոն, սխալ հաղորդագրություն եկավ «Փաստարկը ոչ պարտադիր չէ»:

Private Sub Worksheet_Change (ByVal Target as Range)
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («A1»)) Այն ժամանակ ոչինչ չէ
ActiveSheet.Name = ActiveSheet.Range («A1»)
Վերջ: Եթե
Վերջ Sub

Մեկ ուրիշն աշխատե՞լ է այս կոդը և ունեցել է նույն խնդիրը:

Որպես թեստ, ես գործարկեցի ավելի հիմնական կոդ, և այն լավ էր աշխատում, այնպես որ «A1» արժեքը չի առաջացնում խնդիր: Երբ ես գործարկում եմ ներքևի կոդը, ես կարող եմ տեսնել մակրո անունը «myTabName» մակրո ցուցակում: Վերևի ծածկագիրը չի երևում, և ես ենթադրում եմ, որ սա վրիպակի/բացակայող փաստարկի պատճառով է:

MyTabName () ենթակետ
ActiveSheet.Name = ActiveSheet.Range («A1»)
Վերջ Sub

Շնորհակալություն ձեր օգնության համար, քանի որ ես շատ կցանկանայի օգտագործել կոդը, որը նախատեսված է ներդիրի անվան փոփոխության ավտոմատացման համար՝ հիմնված բջջի արժեքի վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Ջեյսոն,
Կոդն իմ դեպքում լավ է աշխատում։ Խնդրում եմ, կներկայացնե՞ք ձեր Office տարբերակը: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Կրիստալ,

Դա ինձ մոտ նույնպես չաշխատեց, կարո՞ղ է այն պատճառով, որ իմ ակնարկած բջիջը բանաձև է:

Շնորհակալություն պատասխանելու համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Մեյ,

Շնորհակալություն արձագանքի համար: Խնդիրն առաջացել է բանաձեւով. Կոդը փոփոխվել է։ Խնդրում եմ, փորձեք:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ստանում եմ այս կոդը գործարկելու, բայց այն ավտոմատ կերպով չի թարմացնում ներդիրի անունը, երբ այն բջիջը, որտեղից հանում է անունը, եթե հղում է կատարում մեկ այլ բջիջի (և այդ բջիջը փոխվում է):


Այսինքն, ես փոխում եմ հիմնական ցանկի բջիջը, որը փոխում է բջիջի տեքստը յուրաքանչյուր ներդիրի կոնկրետ բջիջում, որը կոդը հղում է անում որպես ներդիրի անուն, ԲԱՅՑ ներդիրը համապատասխանաբար չի թարմացնում իր անունը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Հետևյալ VBA կոդը կարող է լուծել ձեր խնդիրը: Շնորհակալություն մեկնաբանության համար1

Private Sub Worksheet_Change (ByVal Target as Range)
Dim xRg որպես միջակայք, xCell որպես միջակայք
Ս.թ. սխալի Ռեզյումե Next
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («A1»)) Այն ժամանակ ոչինչ չէ
ActiveSheet.Name = ActiveSheet.Range («A1»)
Վերջ: Եթե
Application.EnableEvents = False
Սահմանել xRg = ActiveSheet.Range("A1").Նախադեպեր
Եթե ​​ոչ xRg-ը ոչինչ է, ապա
Յուրաքանչյուր xCell-ի համար xRg-ում
ActiveSheet.Name = ActiveSheet.Range («A1»)
հաջորդ
Վերջ: Եթե
Application.EnableEvents = Ճիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դեռ չի աշխատում: Ես նույն խնդիրն ունեմ, ինչ jJJ-ն: բյուրեղյա. Ձեր պատասխանում ամբողջ կոդը երևացվա՞ծ է:
Ձեր մեկնաբանության մեջ ցուցադրված վերջին տողը «Set xRg = ActiveSheet.Range(«A1»). Precedents» է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի JAS,
Խնդրում ենք սեղմել «Կարդալ ավելին» կոճակը մեկնաբանության աջ կողմում՝ ամբողջական մեկնաբանությունը ցուցադրելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դեռևս նույն խնդիրը կա.

Ես ունեմ նոր թերթիկի A1-ը, որը ցույց է տալիս մեկ այլ ներդիրի մեկ այլ բջիջ: Այն թարմացվում է առաջին անգամ (երբ կատարում եք), բայց հետո հիմնական բջիջը խմբագրելիս ոչ մի փոփոխություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մասնավոր ենթաթերթ_SelectionChange (ByVal Target As Excel.Range)
Սահմանել թիրախ = միջակայք («A1»)
Եթե ​​Target = "" Ապա Ելք Ենթ
Սխալի դեպքում GoTo Badname
ActiveSheet.Name = Ձախ (Թիրախ, 31)
Ելք ենթ
Վատ անուն:
MsgBox «Խնդրում ենք վերանայել մուտքը A1-ում»: & Chr(13) _
& «Թվում է, թե այն պարունակում է մեկ կամ ավելի» & Chr(13) _
& «անօրինական կերպարներ»: & Chr(13)
Range ("A1"): Ակտիվացնել
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դեռ հարցը նույնն է, առաջին անգամ է փոխվում: երբ ես կապում եմ այդ բջիջը մեկ այլ թերթիկի հետ և փոխում այն, այն ինքնաբերաբար չի փոխվում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես պետք է օգտագործեմ այս կոդը, բայց ես նախկինում երբեք չեմ մուտքագրել vba կոդը: Ցանկացած ուղեցույց կգնահատվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փոխում եմ հիմնական ցանկի բջիջը, որը փոխում է բջիջի տեքստը յուրաքանչյուր ներդիրի կոնկրետ բջիջում, որը կոդը հղում է անում որպես ներդիրի անուն, ԲԱՅՑ ներդիրը համապատասխանաբար չի թարմացնում իր անունը:

---- դա չի աշխատում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ստացա ամբողջ կոդը, և այն աշխատեց: Շատ շնորհակալ եմ ձեր օգնության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի JAS,
Ես ուրախ եմ, որ կարողացա օգնել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք կարող եք ավելի շուտ օգտագործել պարզ մակրո



Ենթամակրո3()
Dim ինդեքսը որպես ամբողջ թիվ
Ցուցանիշի համար = 1-ից 18

Sheets(index).Name = Sheets(index).Range("A2").Value

Հաջորդ ցուցանիշը



Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Շնորհակալություն կիսվելու համար.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հենց այն է, ինչ ինձ պետք է, բայց ինձ անհրաժեշտ է ներդիրը ամսաթիվը վերստեղծելու համար, և այն չի աշխատում... Ենթադրում եմ, որ սա կապված է այն բանի հետ, թե ինչպես է excel-ը մշակում ամսաթիվը և ժամը, կարո՞ղ է որևէ մեկը առաջարկել լուծում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Նիք
Excel-ը չի աջակցում հատուկ նիշ պարունակող թերթի անվանումը մուտքագրելու համար: Եթե ​​ձեր մուտքագրած ամսաթիվը պարունակում է / նիշը, այն ձեզ թույլ չի տա ստեղծել թերթի անունը այդ ամսաթվով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես կարող եմ հղում կատարել երկու բջիջների: օրինակ անունն ու id համարը?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործում եմ ձեր ճշգրիտ կոդը վերը նշվածից VBA կոդի համար, որը հիանալի աշխատում է ինձ անհրաժեշտի համար: Այնուամենայնիվ, ես ունեմ մի փունջ մակրո թերթի վրա, որը կոչվում է Job Template, որը պատճենվում և նորից օգտագործվում է յուրաքանչյուր նոր աշխատանքի համար: Ես նախագծել եմ իմ բոլոր մակրոները՝ հիմնված նոր պատճենված տարբերակի վրա, որը կոչվում է Job Template (2): Երբ թերթի անունը փոխվում է նոր աշխատանքի անունով, մակրոներն այլևս չեն աշխատում և պետք է դա կատարեն ձեռքով: Ես կցանկանայի, որ ցանկացած պահի կարողանայի օգտագործել իմ մակրո կոճակներից որևէ մեկը, այլ ոչ միայն օգտագործել դրանք նախքան թերթի անունը փոխելը:

Կա՞ տարբերակ, որ VBA կոդը միշտ վերաբերի թերթի անվանը նախքան կոդի մնացած գործառույթները գործարկելը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ո՞րն է աշխատաթերթերի ամենաբարձր թիվը, որոնց անունները կարելի է փոխել Kutools Plus-ի միջոցով: քանի որ excel-ը թույլ է տալիս ինձ փոխել ընդամենը 17 անուն, և վերջ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հիանալի աշխատեց իմ առաջին աշխատաթերթի համար, բայց ոչ երկրորդ կամ երրորդ և այլնի համար (ես ունեմ մոտ 20 աշխատաթերթ, որոնք բոլորն էլ ունեն այս ֆունկցիայի կարիքը): Ինչ-որ բան կարոտում եմ?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ա Օուեն,
Այս կոդը աշխատում է միայն մեկ աշխատանքային թերթիկի համար: Ներողություն անհանգստության համար.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Կրիստալ,

Երբ ես տեղադրում եմ ձեր կոդը, այն հայտնվում է «օգտագործողի կողմից սահմանված տեսակը սահմանված չէ» սխալով:

Thanks.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Թոմ Ջ,
Համոզվեք, որ այս երեք տարբերակները նշված են References - VBAProject երկխոսության վանդակում:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/error.png
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
գեղեցիկ աշխատեց!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
bonjour,
que voulez-vous dire par appuyer autre autre+q dans le code vba après avoir collé.
J'ai simplement fermé la page après avoir collé et ça ne marche pas
merci
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից