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

Ինչպե՞ս մի քանի անգամ պատճենել բազմաթիվ թերթեր Excel- ում:

Երբեմն կարող է անհրաժեշտ լինել, որ աշխատանքային գրքում պատրաստենք պատճեն կամ նշված աշխատաթերթերի բազմակի պատճեններ: Ահա մի քանի արագ եղանակներ, որոնք կօգնեն ձեզ Excel- ում մի քանի անգամ հեշտությամբ պատճենել մեկ աշխատանքային թերթ կամ բազմաթիվ աշխատաթերթեր:


Տեղափոխել կամ Պատճենել հրամանի միջոցով մի քանի անգամ կատարեք մի քանի աշխատանքային թերթերի մեկ օրինակ ակտիվ աշխատանքային գրքում կամ մեկ այլ աշխատանքային գրքում

Հետ Տեղափոխեք կամ պատճենեք հրամանը Excel- ում, միաժամանակ կարող եք կատարել աշխատանքային թերթի մեկ օրինակ, բազմաթիվ հատուկ աշխատանքային թերթեր կամ բոլոր աշխատանքային թերթերը ակտիվ աշխատանքային գրքի կամ այլ աշխատանքային գրքի:

1, Որոշակի աշխատանքային գրքում, որտեղ դուք կպատճենեք աշխատանքային թերթերը, ընտրեք մի քանի աշխատանքային թերթ թերթիկի ներդիրի տողում:
ՆշումՀոլդինգ Ctrl ստեղնը, դուք կարող եք ընտրել բազմաթիվ ոչ հարակից թերթիկների ներդիրներ ՝ դրանք մեկ առ մեկ կտտացնելով Թերթի ներդիրի բարում; անցկացնելը Պահե q Shift ստեղնը, դուք կարող եք ընտրել բազմաթիվ հարակից թերթիկների ներդիրներ ՝ կտտացնելով առաջին թերթիկի ներդիրին և վերջինին ՝ Թերթի ներդիրի տողի վրա:

2, Աջ կտտացրեք ընտրված թերթիկի ներդիրին Թերթի ներդիրի տողի վրա և ընտրեք Տեղափոխեք կամ պատճենեք համատեքստային ընտրացանկից: Տեսեք,
փաստաթուղթ պատճենել բազմաթիվ թերթեր 01

3, Մեջ Տեղափոխեք կամ պատճենեք երկխոսության տուփ, խնդրում ենք նշել հետևյալ կարգավորումները.
(1) Խնդրում ենք նշեք նպատակակետի աշխատանքային գիրքը, որը դուք պատճենելու եք աշխատանքային թերթերը Պատվիրել բացվող ցուցակ: Անհրաժեշտության դեպքում կարող եք ընտրել ակտիվ աշխատանքային գիրք, մեկ այլ բաց աշխատանքային գրքույկ կամ նոր աշխատանքային տետր:
(2) Նշեք պատճենված թերթերի դիրքը Թերթի ներդիրի գծի վրա, դուք կարող եք ընտրել առկա բոլոր թերթերից հետո:
(3) Ստուգեք Ստեղծեք կրկնօրինակ տարբերակը, եթե չեք ստուգում այս տարբերակը, ընտրված աշխատանքային թերթերը կտեղափոխվեն նպատակակետի աշխատանքային գրքույկ:
(4) Կտտացրեք այն կոճակին OK կոճակը:

Այժմ այն ​​կդարձնի միայն մեկ օրինակ ընտրված աշխատաթերթերը նշված աշխատանքային գրքում: Այս աշխատաթերթերի բազմակի պատճեններ ստեղծելու համար կարող եք բազմիցս կրկնել գործողությունը:

Միայն մի քանի կտտոց `ակտիվ աշխատանքային գրքում բազմաթիվ աշխատաթերթերի բազմակի պատճեններ կատարելու համար

Ընդհանուր առմամբ, մենք կարող ենք պատճենել բազմաթիվ աշխատանքային թերթեր հետ Տեղափոխեք կամ պատճենեք առանձնահատկություն Excel- ում: Այնուամենայնիվ, այս հատկությունը կարող է միաժամանակ կատարել միայն մեկ օրինակ: Այստեղ, Excel- ի համար Kutools- ի հետ Պատճենել թերթերը օգտակար, դուք կարող եք հեշտությամբ կատարել բազմաթիվ աշխատաթերթերի այնքան պատճեն, որքան ձեզ հարկավոր է ակտիվ աշխատանքային գրքում ՝ միայն մի քանի կտտոցով:


գովազդը պատճենում է բազմաթիվ աշխատաթերթեր 01

Excel- ի համար նախատեսված գործիքներ - Ներառում է ավելի քան 300 հարմար գործիքներ Excel-ի համար: Ամբողջական հնարավորությունների անվճար փորձարկում 30- օր, վարկային քարտ չի պահանջվում: Get It Now

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

Եթե ​​ցանկանում եք կատարել նշված աշխատաթերթի 10 օրինակ, ապա Տեղափոխեք կամ պատճենեք հրամանը կլինի ժամանակատար միջոց, և դուք պետք է բազմիցս կրկնեք գործողությունը: Բայց հետևյալ VBA կոդով դուք կարող եք արագ պատճենել աշխատանքային թերթը միանգամից 10 անգամ:

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

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

VBA. Կազմեք որոշակի աշխատանքային թերթերի բազմաթիվ օրինակներ ակտիվ աշխատանքային գրքում

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

ՆշումՎերոհիշյալ ծածկագրում փոխարինեք »Sheet1«պատճենվող թերթիկի անվան հետ:

3, Դրանից հետո սեղմեք F5 Կոդը գործարկելու համար բանալին հայտնվում է հուշման տուփ, որը հարցնում է ձեզ համար ցանկալի թերթերի պատճենները:

4. Այնուհետեւ կտտացրեք OK, նշված աշխատանքային թերթը պատճենվել է 100 անգամ ակտիվ աշխատանքային գրքում:


Excel- ի համար Kutools- ի հետ մի քանի աշխատանքային թերթերի բազմակի պատճենեք ակտիվ աշխատանքային գրքում

Չնայած Excel- ում բազմակի աշխատաթերթերի պատճեն պատրաստելը պարզ է, եթե ընթացիկ աշխատանքային գրքում ցանկանում եք կատարել բազմաթիվ աշխատաթերթերի բազմակի պատճեններ, գուցե հարկ լինի օգտագործել Տեղափոխեք կամ պատճենեք հրամանի կետ կրկին ու կրկին: Likeանկանու՞մ եք գործն ավարտել մեկ կտտոցով: Հետ Պատճենել թերթերը երրորդ կողմի հավելվածի օգտակարություն Excel- ի համար նախատեսված գործիքներ, դուք կարող եք կատարել Excel- ում մի կտտոցով բազմաթիվ աշխատաթերթերի բազմակի պատճեններ:

Excel- ի համար նախատեսված գործիքներ - Ներառում է ավելի քան 300 հարմար գործիքներ Excel-ի համար: Ամբողջական հնարավորությունների անվճար փորձարկում 30- օր, վարկային քարտ չի պահանջվում: Get It Now

1: Սեղմեք Kutools Plus > Պատճենել թերթերը, Տեսեք,

Նշում՝ կտտացնելով Kutools Plus > Աշխատանքային թերթիկ > Պատճենել թերթերը կստանա նաև այս հատկությունը:

2, Կիրառել պարամետրերը Պատճենել բազմաթիվ աշխատանքային թերթեր երկխոսության տուփ:
(1) Ստուգեք այն աշխատաթերթերը, որոնցից ցանկանում եք պատճենել Պատճենեք ընտրված աշխատանքային թերթերը բաժնում:
(2) Նշեք Պատճենների քանակը.
(3) Որոշեք պատճենված թերթերի դիրքը, օրինակ, բոլոր աշխատանքային թերթիկներից առաջ կամ հետո, ընթացիկ աշխատանքային թերթից առաջ կամ հետո:
(4) Կտտացրեք այն կոճակին Ok կոճակը:

3, Հայտնվում է արագ տուփ ՝ հիշեցնելու համար, որ ստուգված աշխատաթերթերը պատճենվել են մի քանի անգամ, որքան ձեզ հարկավոր է, խնդրում ենք սեղմել OK դրանից դուրս գալու կոճակը: Տեսեք,

այս Պատճենել բազմաթիվ աշխատանքային թերթեր առանձնահատկությունը Excel- ի համար նախատեսված գործիքներ միայն մի քանի կտտոցով կստիպի ակտիվ աշխատանքային գրքում մի քանի նշված աշխատանքային թերթերի բազմակի պատճեններ: Անցկացրեք անվճար փորձություն:


Բազմաթիվ աշխատանքային գրքերից մի քանի աշխատանքային թերթերի մեկական օրինակ պատրաստեք նորի

Եթե ​​Excel- ի համար տեղադրել եք Kutools, կարող եք նաև կիրառել այն Միավորել աշխատանքային թերթերը առանձնահատկությունը `բազմաթիվ աշխատանքային թերթերի մեկ պատճենը բազմաթիվ փակ աշխատանքային գրքերից միայն Excel- ում մի քանի կտտոցով նոր աշխատանքային գրքի վերածելու համար:

Excel- ի համար նախատեսված գործիքներ - Ներառում է ավելի քան 300 հարմար գործիքներ Excel-ի համար: Ամբողջական հնարավորությունների անվճար փորձարկում 30- օր, վարկային քարտ չի պահանջվում: Get It Now

1: Սեղմեք Kutools Plus > Միավորել համատեղել Worksheets հատկությունը:

2, Միավորել աշխատաթերթերում - 1-րդ կախարդի քայլ 3-ը, խնդրում ենք ստուգել Միացրեք աշխատանքային գրքերից բազմաթիվ աշխատանքային թերթեր մեկ աշխատանքային թերթի մեջ տարբերակը եւ սեղմեք հաջորդ կոճակ Տեսեք,

3, Միավորել աշխատաթերթերում - 2-րդ կախարդի քայլ 3-ը, խնդրում ենք արեք, ինչպես ցույց է տրված հետևյալ նկարը.
(1) Սեղմեք Ավելացնել > Ֆայլ or Թղթապանակ աշխատանքային գրքեր ավելացնելու համար, որոնցից դուք պատճենելու եք աշխատանքային թերթերը:
(2) Իսկ Աշխատանքային տետրերի ցուցակ բաժնում, ստուգեք այն աշխատանքային գիրքը, որի աշխատանքային թերթերը կպատճենեք.
(3) Իսկ Աշխատաթերթի ցուցակ բաժնում, ստուգեք ձեր աշխատած պատճենները.
(4) Կրկնեք վերևում (2) և (3) այլ աշխատանքային գրքերից աշխատանքային էջեր ընտրելու համար, որոնք դուք պատճենելու եք:
(5) Կտտացրեք այն կոճակին հաջորդ կոճակը:

4, Միավորել աշխատաթերթերում - 3-րդ հրաշագործի քայլ 3-ը, խնդրում ենք կազմաձևել պատճենման պարամետրերը, ինչպես ձեզ հարկավոր է, և կտտացրեք Ավարտել կոճակը:

5, Այժմ նոր երկխոսության մեջ նշեք նպատակակետի պանակը ՝ նոր աշխատանքային գիրքը պահելու համար, և անվանեք նոր աշխատանքային գրքում ՝ Ֆայլի անուն տուփը և սեղմել Փրկել կոճակ Տեսեք,

Այժմ դուրս կգան ևս երկու երկխոսության տուփեր և կխնդրեն ձեզ բացել նոր աշխատանքային գրքույկը և պահպանել համադրման սցենարը: Մինչ այժմ այն ​​միաժամանակ պատճենել է բոլոր նշված աշխատանքային թերթերը բազմաթիվ աշխատանքային գրքերից:

Այս Միավորել (աշխատանքային թերթեր) օգտակար, դուք կարող եք հեշտությամբ պատճենել և միավորել աշխատանքային թերթերը և աշխատանքային գրքերը, ինչպես ցույց է տրված հետևյալ ցուցակը: Անցկացրեք անվճար փորձություն:
(1) արագորեն համատեղել բազմաթիվ աշխատանքային թերթեր / աշխատանքային տետրերից մեկ աշխատանքային թերթի մեջ.
(2) Արագ միաձուլեք / միացրեք աշխատանքային գրքերի համանուն բոլոր աշխատանքային թերթերը մեկ աշխատանքային թերթի մեջ.
(3) Արագ միաձուլեք / միացրեք աշխատանքային թերթերը կամ աշխատանքային գրքերը մեկ աշխատանքային գրքի մեջ.
(4) Արագ ամփոփեք / հաշվարկեք բազմաթիվ աշխատանքային թերթերից ստացված տվյալները մեկ աշխատանքային թերթի մեջ:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (25)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Օգտագործելով VBA կոդը, կրկնօրինակված աշխատաթերթերի անվանումները հակառակ հերթականությամբ են: Ասենք, ես Sheet10-ի 1 օրինակ եմ պատրաստում, վերջանում եմ Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......հնարավո՞ր է նորմալ հերթականությամբ ունենալ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձեցի VBA կոդը և ստացա բաժանորդագրման տիրույթից դուրս սխալ (9): Ես թերթի անունը փոխարինեցի այն ամենով, ինչի մասին կարող էի մտածել, որն արդեն եղել է աշխատանքային գրքում: Կա՞ պատկերացում, թե ինչ եմ սխալ արել: Բացի այդ, կա՞ տարբերակ, որպեսզի այն անվանի յուրաքանչյուր թերթիկ աստիճանաբար: Վստահ եմ, որ սա կկապեր Մայքլի հարցի հետ: Ես ենթադրում եմ, որ նրա հարցի պատասխանը կլինի այն, որ դուք պետք է ինչ-որ կերպ սահմանեք After target-ը «sheet»+x-ի, և դա իր հերթին կկիրառվեր իմ հարցի վրա, եթե կա միջոց՝ նշելու, թե ինչ անվանել նոր թերթիկը: Ես միշտ կարող էի փոխել իմ ղեկավարի «վարպետը» «Օգոստոսի 0»-ի կամ ցանկացած ամիս, բայց նրա համար ավելի հեշտ կլիներ հասկանալ, եթե սցենարն ինքնաբերաբար անվանակոչեր:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն, vba կոդը հսկայական էր
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վայ, շնորհակալություն VBA կոդի համար: Դա իսկապես շատ է օգնում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Օգտագործելով VBA կոդը՝ կրկնօրինակված աշխատաթերթերի անվանումները հակառակ հերթականությամբ են: Ասենք, ես Sheet10-ի 1 օրինակ եմ պատրաստում, վերջանում եմ Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......հնարավո՞ր է նորմալ հերթականությամբ ունենալ:Մայքլ Թադաշիի կողմից[/quote] Որևէ մեկը կարողացավ պատասխանել այս հարցին: Ես պետք է ստեղծեմ 72 օրինակ, բայց անհրաժեշտ կլինի դրանք կարգի բերել (1-ից 72, 72-ից 1-ի փոխարեն): Շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote][quote]Օգտագործելով VBA կոդը՝ կրկնօրինակված աշխատաթերթերի անվանումները հակառակ հերթականությամբ են: Ասենք, ես Sheet10-ի 1 օրինակ եմ պատրաստում, վերջանում եմ Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......հնարավո՞ր է նորմալ հերթականությամբ ունենալ:Խուանի կողմից[/quote] Որևէ մեկը կարողացավ պատասխանել այս հարցին: Ես պետք է ստեղծեմ 72 օրինակ, բայց անհրաժեշտ կլինի դրանք կարգի բերել (1-ից 72, 72-ից 1-ի փոխարեն): Շնորհակալություն:Մայքլ Թադաշիի կողմից[/quote]e] Եթե ցանկանում եք, որ թերթի պատճենները հետընթացի փոխարեն լինեն հաջորդական կարգով, փոխեք հետևյալ տողը... Հետո:=ActiveWorkbook.Sheets(«Թերթ 1») սրա... Հետո:=ActiveWorkbook.Sheets(Աշխատանքային թերթիկներ. Count) Իմ ավարտված կոդը նման էր հետևյալին, որն օգտագործում է 2 InputBox հուշումներ՝ թույլ տալու համար դինամիկ պատճենների քանակը և աշխատաթերթի անունը: Sub Copier() Dim s As String Dim numtimes As Integer Dim NumCopies As Integer NumCopies = InputBox («Քանի՞ օրինակ է ձեզ հարկավոր»:) s = InputBox («Մուտքագրեք աշխատաթերթի անունը, որը ցանկանում եք պատճենել») Numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Հաջորդ վերջ Ենթ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս ստանալ կրկնօրինակների շարունակական համարակալում: Եթե ​​թերթիկը, որը ես ուզում եմ պատճենել, կոչվում է I002, իսկ ես ուզում եմ, որ հաջորդը լինի I003,I004,I005 և այլն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Որոնեք «Հետո» բառը և փոխեք այն «Առաջ»: Սա կստեղծի պատճեններ «Նախքան» Sheet1-ը ճիշտ հերթականությամբ: Միակ բանը, որ պետք է հիշել, այն է, որ համարակալումը միշտ կսկսվի (2)-ից, քանի որ բնօրինակ թերթիկը միշտ կհաշվվի որպես 1-ին պատճեն: Նաև կարող եք «Seet1»-ը փոխարինել այն ներդիրի անունով, որը փորձում եք պատճենել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
այո, այն աշխատում է, շնորհակալություն, ես հաջողությամբ պատրաստել եմ մեկ աշխատաթերթի մի քանի օրինակ նույն աշխատանքային գրքում՝ շատ օգտագործելով vba կոդը thnx:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպես պատճենել նույն սյունակի լայնությամբ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սյունակների լայնությունը նույնն է, ինչ սկզբնական աշխատանքային թերթիկը, թե՞ ցանկանում եք, որ սյունակների բոլոր լայնությունները նույնն են:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ստացա նույն սխալը, ինչ Theou-ն, և թվում է, թե ոչ ոք դրան չի անդրադարձել: Իմ ներդիրներն արդեն կոչվում են PO 51, PO 52 և այլն, և ես փոխարինեցի Sheet1-ը PO 51-ով, որպեսզի պատճենեմ այն ​​և ստացա բաժանորդագրության սխալը տիրույթից դուրս (9) Ես հետևեցի Շույլերի կոդը՝ ճիշտ կարգը ստանալու համար, բայց ես դեռ ստանում եմ սխալը: և դա միշտ պայմանավորված է այս երկու տողով. ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Ես ստացա նույն սխալը, ինչ Theou-ն, և թվում է, թե ոչ ոք դրան չի անդրադարձել: Իմ ներդիրներն արդեն կոչվում են PO 51, PO 52 և այլն, և ես փոխարինեցի Sheet1-ը PO 51-ով՝ պատճենելու համար, և ստացա բաժանորդագրության սխալը միջակայքից դուրս (9) Ես հետևեցի Շույլերի կոդը՝ ճիշտ կարգը ստանալու համար, բայց ես դեռ ստանում եմ սխալը։ և դա միշտ պայմանավորված է այս երկու տողով. ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)Դեբիի կողմից[/quote] Կարո՞ղ եք ներառել ձեր ամբողջական կոդը՝ վրիպազերծումը հեշտացնելու համար: «Բաժանորդագրության սխալը տիրույթից դուրս» սովորաբար նշանակում է, որ կոդը հղում է անում մի բանի, որը գոյություն չունի: Ես սա գտնում եմ իմ սեփական ծածկագրում, երբ տառասխալ կամ նման բան եմ ունենում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես սխալ եմ ստանում, որ «numtimes»-ը սահմանված չէ...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
որտեղ տեղադրեմ վերը նշված կոդը vba-ում, պետք է ընդհանուր կոճակ ստեղծեմ, հետո ներսում: հարգանքներով։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հետևեք հետևյալ քայլերին.
1. Պատճենեք վերը նշված կոդը
2. Սեղմած պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների պատուհանը:
2. Սեղմեք Տեղադրել > Մոդուլ և տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:
4. Այնուհետև սեղմեք F5 ստեղնը՝ կոդը գործարկելու համար
5. Հայտնվում է հուշման տուփ, որը ձեզ հարցնում է ձեր ուզած թերթիկի պատճենների քանակը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբ ես առաջին անգամ փորձեցի այն, ես ստացա սխալի հաղորդագրություն, քանի որ ես չեմ փոխել Sheet1 անունը: Այն բանից հետո, երբ ես հասկացա, թե ինչն է առաջացրել սխալը, ես մի փոքր ուսումնասիրեցի, քանի որ չէի ցանկանում ձեռքով թերթի անունը մուտքագրել մակրո: Եվ երբ ինձ անհրաժեշտ է այս հատկությունը, այն գրեթե միշտ ընթացիկ թերթիկի համար է: Ես ավելացրի a = activesheet.name տողը և վերանայեցի տողը:=activeworkbook.sheets("sheet1") հետո activeworkbook.sheets(a).copy _ Դա շատ լավ աշխատեց, բայց ես նկատեցի, որ համարակալումը հակադարձված էր... դա ինձ չէր անհանգստացնում, քանի որ, այնուամենայնիվ, պատրաստվում էի ձեռքով վերանվանել նոր թերթերը: Երբ ես տեսա Schuyler-ի գրառումը, ես հետագայում վերանայեցի activeworkbook.sheets(a).copy _ տողը after:=activeworkbook.sheets(worksheets.count) Ես այժմ գոհ եմ արդյունքից: Իմ ավարտված մակրո. Subcopies() Dim x Որպես ամբողջ թիվ x = InputBox («Մուտքագրեք Թիվը1 պատճենելու համար») Numtimes համար = 1 To x ActiveWorkbook.Sheets («Sheet1»). Պատճենել _ Հետո:=ActiveWorkbook.Sheets( Worksheets.Count) Next End Sub --- Ամենայն բարիք, Բարի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ Բարրի: Ձեր պատրաստի մակրոն միակ բանն է, որն աշխատել է ինձ համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ստացա շարահյուսական սխալ «After:=ActiveWorkbook.Sheets(Worksheets.Count)-ում:


բայց ես չգիտեմ, թե ինչն է սխալ... Խնդրում եմ, կարո՞ղ եք օգնել ինձ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ֆանտաստիկ VBA կոդ - իսկապես օգնեց
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նոր եմ դրանում, ես պարզապես փորձում եմ պատճենել նույն թերթիկը, սա այն կոդը է, որը ես օգտագործում եմ: Sub Copier() Dim s As String Dim numtimes As Integer Dim NumCopies As Integer NumCopies = InputBox («Քանի՞ օրինակ է ձեզ հարկավոր»:) s = InputBox («Մուտքագրեք աշխատաթերթի անունը, որը ցանկանում եք պատճենել») Numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) Next End Sub, երբ ես օգտագործում եմ կոդը, այն ինձ տալիս է «Syntax Error» սխալը, այնուհետև այս տեքստը դառնում է կարմիր ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) and the is text դառնում դեղին Sub Copier() ինչ կարող եմ անել այն շտկելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Ես նոր եմ դրանում, ես պարզապես փորձում եմ պատճենել նույն թերթիկը, սա այն կոդը է, որը ես օգտագործում եմ: Sub Copier() Dim s As String Dim numtimes As Integer Dim NumCopies As Integer NumCopies = InputBox («Քանի՞ օրինակ է ձեզ հարկավոր»:) s = InputBox («Մուտքագրեք աշխատաթերթի անունը, որը ցանկանում եք պատճենել») Numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) Next End Sub, երբ ես օգտագործում եմ կոդը, այն ինձ տալիս է «Syntax Error» սխալը, այնուհետև այս տեքստը դառնում է կարմիր ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) and the is text դառնում դեղին Sub Copier() ինչ կարող եմ անել այն շտկելու համար:Թայլեր Դեմփսիի կողմից[/quote] Կրկնակի ստուգեք ձեր կոդը և համոզվեք, որ ActiveWorkbook-ում տեղ չունեք: Թերթեր (ներ). Պատճենել _ կամ Sheets-ում (Worksheets. Cou nt)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Ես նոր եմ դրանում, ես պարզապես փորձում եմ պատճենել նույն թերթիկը, սա այն կոդը է, որը ես օգտագործում եմ: Sub Copier() Dim s As String Dim numtimes As Integer Dim NumCopies As Integer NumCopies = InputBox («Քանի՞ օրինակ է ձեզ հարկավոր»:) s = InputBox («Մուտքագրեք աշխատաթերթի անունը, որը ցանկանում եք պատճենել») Numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) Next End Sub, երբ ես օգտագործում եմ կոդը, այն ինձ տալիս է «Syntax Error» սխալը, այնուհետև այս տեքստը դառնում է կարմիր ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) and the is text դառնում դեղին Sub Copier() ինչ կարող եմ անել այն շտկելու համար:Թայլեր Դեմփսիի կողմից[/quote] Ահա ստույգ կոդը, որը ցանկանում եք օգտագործել. Sub Copier() Dim s Որպես տող Մթություն numtimes As Integer Dim NumCopies As Integer NumCopies = InputBox(«Քանի՞ օրինակ է ձեզ հարկավոր»:) s = InputBox («Մուտքագրեք աշխատաթերթի անունը, որը ցանկանում եք պատճենել») Numtimes-ի համար = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Հաջորդ վերջ Ենթ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, վերջինը փրկեց իմ կյանքը :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Աշխատանքային օրենսգիրք

Ենթապատճենահանող սարք ()
Դեմ s As String
Dim numtimes Որպես ամբողջ թիվ
Dim num Պատճենում է որպես ամբողջ թիվ
numCopies = InputBox («Քանի՞ օրինակ է ձեզ հարկավոր»)
s = InputBox («Մուտքագրեք աշխատաթերթի անունը, որը ցանկանում եք պատճենել»)
Numtimes-ի համար = 1 To numCopies
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
հաջորդ
Վերջ Sub

պատճենեք ամբողջ տողը ActiveWorkbook.Sheets-ից...... դա էր խնդիրը և որոշ բացատներ

Լավ օր է
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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