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

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

Սովորաբար, դուք կարող եք կիրառել այն Տեղափոխեք կամ պատճենեք առանձնահատկություն ՝ աշխատանքային թերթը պատճենելու համար, և այնուհետև ձեռքով մուտքագրեք նոր անուն ՝ պատճենը, որքան ձեզ հարկավոր է: Բայց, երբևէ փորձե՞լ եք թերթը վերանվանել ՝ հիմնվելով բջջային արժեքի վրա, աշխատանքային թերթը պատճենելուց հետո: Այս հոդվածում ես կխոսեմ այն ​​մասին, թե ինչպես վերանվանել աշխատաթերթը ՝ հիմնվելով բջջային արժեքի վրա, ավտոմատ կերպով պատճենելիս:

Պատճենեք աշխատանքային թերթը և վերանվանեք բջջային արժեքի հիման վրա VBA կոդով

Մի քանի անգամ պատճենեք աշխատանքային թերթը և վերանվանեք բջիջների արժեքների հիման վրա Kutools- ի համար Excel- ի


Պատճենեք աշխատանքային թերթը և վերանվանեք բջջային արժեքի հիման վրա VBA կոդով

Հաջորդ VBA կոդը կարող է օգնել ձեզ պատճենել աշխատանքային թերթը և այն ավտոմատ կերպով վերանվանել որոշակի բջջային արժեքով, խնդրում ենք արեք հետևյալ կերպ.

1, Ակտիվացրեք աշխատանքային թերթը, որը ցանկանում եք պատճենել, և այնուհետև պահեք այն ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Պատճենել աշխատանքային թերթը և վերանվանել բջջային արժեքով.

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3, Եվ հետո սեղմեք F5 այս կոդը գործարկելու բանալին, և ձեր ընթացիկ աշխատանքային թերթը պատճենվել է ընթացիկ աշխատանքային գրքում `բոլոր աշխատանքային թերթերից հետո, և այն վերանվանվում է ձեր կողմից նշված բջջային արժեքի հետ, տես նկարի նկարը.

փաստաթղթի պատճենը `ըստ արժեքի 1-ի

ՆշումՎերոհիշյալ ծածկագրում `բջջային հղումը A1 բջջային արժեքն է, որը ցանկանում եք վերանվանել պատճենահանված նոր թերթիկի համար, այն կարող եք փոխել ըստ ձեր կարիքի:


Մի քանի անգամ պատճենեք աշխատանքային թերթը և վերանվանեք բջիջների արժեքների հիման վրա Kutools- ի համար Excel- ի

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

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. 

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

1: Սեղմեք Kutools Plus > Աշխատանքային թերթիկ > Ստեղծեք հաջորդականության աշխատանքային թերթեր, տես նկարի նկարը.

փաստաթղթի պատճենը `ըստ արժեքի 3-ի

2, Մեջ Ստեղծեք հաջորդականության աշխատանքային թերթ երկխոսության տուփ, կատարեք հետևյալ գործողությունները.

(1.) Ընտրեք աշխատաթերթի անունը, որը ցանկանում եք պատճենել այնտեղից Բազային թերթիկ բացվող ցուցակ;

(2.) Նշման տակ ընտրեք Տվյալները տիրույթի տարբերակում Թերթի անունները հիմնված են բաժինը և սեղմել փաստաթղթի պատճենը `ըստ արժեքի 5-ի կոճակը ՝ բջջային արժեքները ընտրելու համար, որոնց հիման վրա ցանկանում եք վերանվանել պատճենահանված աշխատաթերթերը:

Ներբեռնեք Kutools Excel- ի համար հիմա:

3. Այնուհետեւ կտտացրեք Ok կոճակը և հատուկ աշխատանքային թերթը բազմիցս պատճենվել և վերանվանվել են նոր աշխատանքային գրքում ընտրած բջջային արժեքների հետ, տես նկարի նկարը.

փաստաթղթի պատճենը `ըստ արժեքի 4-ի

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


Oուցադրություն. Մի քանի անգամ պատճենեք աշխատանքային թերթը և վերանվանեք բջիջների արժեքների հիման վրա Excel- ի համար Kutools

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (2)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ստորև բերված կոդը հիանալի է աշխատում: Հարցս հետևյալն է՝ հնարավո՞ր է ավտոմատ կերպով բացել նոր աշխատաթերթը (A1-ի հիման վրա) և ջնջել բովանդակությունը նախորդ թերթից, քանի որ այն օգտագործվում է որպես ձևանմուշ: SubCopyrenameworksheet() «Updateby Extendoffice 20160704 Dim ws As Worksheet Set wh = Worksheets(ActiveSheet.Name) ActiveSheet.Copy After:=Worksheets(Sheets.Count) If wh.Range("A1").Value "" then ActiveSheet.Name = wh.A1Range(" «).Արժեքի ավարտը, եթե wh.Ակտիվացնել End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ձեր կոդը այն է, ինչ ես փնտրում էի, սակայն բջիջի բովանդակությունը, որը ես ցանկանում եմ օգտագործել թերթը վերանվանելու համար, ամսաթիվ է: Օրինակ, առաջին թերթիկում A2 բջիջը ցույց է տալիս ամսաթիվը որպես երկուշաբթի 3 ապրիլի 2017: Այն, ինչ ես կցանկանայի տեղի ունենալ այն է, երբ հաջորդ թերթիկը ստեղծվի մակրոյով, կլինի ամսաթիվը վերցնել A2-ից, ավելացնել 7՝ ցուցադրելու համար, օրինակ՝ «Երկուշաբթի 10 հուլիսի, 2017», բայց նոր թերթը վերանվանել dd-mm-yy ձևաչափով, այնպես որ «10-07-17»: Սա հնարավո՞ր է: Ի դեպ, ես ունեմ Kutools Excel-ի համար, բայց այս աղյուսակը արյան ճնշման ռեկորդ կլինի իմ հայրիկի համար, ով չունի Kutools: Նախապես շնորհակալություն!
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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