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

Ինչպե՞ս ստեղծել հաջորդականության աշխատանքային թերթեր Excel- ի մի շարք բջիջներից:

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

doc- ստեղծել-թերթիկներ-ցուցակից 1

VBA կոդով բջիջների ցանկից ստեղծեք հաջորդականության աշխատանքային թերթեր

Kutools- ի հետ Excel- ի համար ստեղծեք հաջորդականության աշխատանքային թերթեր բջիջների ցանկից


նետ կապույտ աջ պղպջակ VBA կոդով բջիջների ցանկից ստեղծեք հաջորդականության աշխատանքային թերթեր

Հաջորդ VBA կոդը կարող է օգնել ձեզ ավելացնել որոշ աշխատանքային թերթեր, որոնք անվանվում են `ելնելով առկա աշխատանքային թերթերից, բջիջների պարունակությունից: Խնդրում եմ արեք այսպես.

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

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

VBA կոդ. Բջիջների ցուցակի հիման վրա ավելացնել հաջորդականության աշխատանքային թերթերը

Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
        Ws.Name = arr(i, j)
    Next
Next
Application.ScreenUpdating = True
End Sub

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

doc- ստեղծել-թերթիկներ-ցուցակից 2

4. Եվ այնուհետեւ կտտացրեք OK, աշխատանքային թերթերը, որոնք անվանվում են բջիջների արժեքներով, ավելացվել են գոյություն ունեցող աշխատանքային թերթից հետո: Տեսեք,

doc- ստեղծել-թերթիկներ-ցուցակից 3

Նշումներ:

1. Նոր աշխատանքային թերթերը կտեղադրվեն ընթացիկ աշխատանքային թերթից հետո:

2. Եթե ընտրված միջակայքը պարունակում էր դատարկ բջիջներ, ապա աշխատաթերթերն անվանում են ՝ ելնելով լռելյայնից: Տեսեք սքրինշոթերը.

doc- ստեղծել-թերթիկներ-ցուցակից 4
-1
doc- ստեղծել-թերթիկներ-ցուցակից 5

նետ կապույտ աջ պղպջակ Kutools- ի հետ Excel- ի համար ստեղծեք հաջորդականության աշխատանքային թերթեր բջիջների ցանկից

Այստեղ ես ներկայացնում եմ մի հարմար գործիք-Excel- ի համար նախատեսված գործիքներԻր Ստեղծեք հաջորդականության աշխատանքային թերթեր, Դուք կարող եք արագ ստեղծել աշխատանքային թերթեր ամսվա անունով, օրվա անունով, հարմարեցված ցուցակով և այլն:

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

Excel- ի համար Kutools- ը տեղադրելուց հետո կատարեք հետևյալ քայլերը.

1, Ընտրեք այն ընդգրկույթը, որի հիման վրա ցանկանում եք ստեղծել աշխատանքային թերթեր:

2. Սեղմել ձեռնարկություն > Աշխատաթերթի գործիքներ > Ստեղծեք հաջորդականության աշխատանքային թերթեր, տես նկարի նկարը.

doc- ստեղծել-թերթիկներ-ցուցակից 6

3, Մեջ Ստեղծեք հաջորդականության աշխատանքային թերթեր երկխոսության տուփ, ընտրեք աշխատանքային թերթի տեսակը, որը ցանկանում եք ստեղծել նոր հաջորդականության աշխատանքային թերթեր, ապա ստուգել Տվյալները միջակայքում տարբերակը, տես նկարի նկարը.

doc- ստեղծել-թերթիկներ-ցուցակից 7

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

doc- ստեղծել-թերթիկներ-ցուցակից 8

Նշումներ:

1. Եթե ընտրեք Թերթ 1-ը կամ Թերթ 2-ը, ստեղծվում են նոր աշխատաթերթերը նույն ձևաչափումը, ինչ Թերթը 1-ը կամ Թերթը 2-ը:

2. Նոր աշխատանքային թերթերը ստեղծվում են նոր աշխատանքային գրքում:

3. Եթե ընտրված միջակայքը պարունակում էր դատարկ բջիջներ, ապա աշխատաթերթերն անվանում են ՝ ելնելով լռելյայնից: Տեսեք սքրինշոթերը.

doc- ստեղծել-թերթիկներ-ցուցակից 9
-1
doc- ստեղծել-թերթիկներ-ցուցակից 10

Կտտացրեք ՝ Ստեղծեք հաջորդականության աշխատաթերթեր այս հնարավորության մասին ավելին իմանալու համար:


Առնչվող հոդված:

Ինչպե՞ս ավելացնել Excel- ում հարմարեցված անուններով նոր աշխատանքային թերթեր:

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

🤖 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 (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to add bydefault table with row name and column name on sheets after creating sheets using command button. Please help.
This comment was minimized by the moderator on the site
How can the code be modified to copy a worksheet labeled "Template" and rename it to the values in the list selected in the range? I tried modifying the "worksheets.Add" code to "Worksheets("Template").Copy but it just makes copies with the worksheets labeled "Template(1)", "Template(2)", etc. Also, is there a way to put the tabs in numerical order as they are added?
This comment was minimized by the moderator on the site
Hi, Would it be possible to set-up a template for the new sheets created, instead of blank worksheets. Thanks Dave
This comment was minimized by the moderator on the site
Hi, I want to create invoices using excel and need to know whether is there a way to auto generate the second continuation page when the items on the first page exceed the A4 page layout that I have predefined? Any help is appreciated.
This comment was minimized by the moderator on the site
Could you modify the VBA code so that if the worksheet exists, it is skipped over? As it exists now, running the code a second time on the same range will create numbered worksheets. Thanks! Chris
This comment was minimized by the moderator on the site
Hello, Can I exclude blanks and automatically copy data with is behind the name? This data is generated from a pivot and I want to have all the names in different tabs with the data behind it in the layout. name1 data data data blank data data data blank Name 2 Thanks!
This comment was minimized by the moderator on the site
I need to duplicate one sheet when making all these new sheets from a list. Can you add the code for that? Thanks!
This comment was minimized by the moderator on the site
You can right click the tab and choose "move or copy" to duplicate it.
This comment was minimized by the moderator on the site
Very useful. thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations