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

 Ինչպե՞ս պատճենել թերթը և վերանվանել 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 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. 
Անցեք Ներբեռնում
30 օրվա անվճար փորձարկումՁեռք բերել
PayPal / MyCommerce

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

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

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

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

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

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

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

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

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

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

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

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

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

🤖 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 (2)
No ratings yet. Be the first to rate!
Phil
Phil
This comment was minimized by the moderator on the site
Your code is what I have been looking for, however the cell contents that I wish to use to rename the sheet is a date. For example, on the first sheet, cell A2 displays a date as Monday 3 April 2017. What I would like to happen is when the next sheet is created by the macro would be to take the date from A2, add 7 to display, for example, "Monday 10 July, 2017" but rename the new sheet in the dd-mm-yy format, so "10-07-17". Is this possible? By the way, I have Kutools for Excel, but this spreasheet will be a blood pressure record for my dad who doesnt have Kutools. Thanks in advance!
Reply
0
0
joe
joe
This comment was minimized by the moderator on the site
The code below works great. My question is, is it possible to automatically open the new worksheet (based on A1) and delete the content from the previous sheet as it is being used as the template. Sub Copyrenameworksheet() '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.Range("A1").Value End If wh.Activate End Sub
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