Preskoči na glavno vsebino

Kako ustvariti delovne liste zaporedja iz vrste celic v Excelu?

Če imate na delovnem listu vrsto podatkov in zdaj želite ustvariti zaporedje delovnih listov na podlagi podatkov celice, glejte naslednjo sliko zaslona. Seveda lahko ime delovnega lista uredite eno za drugim ročno, če pa je treba urediti več imen delovnih listov, bo ta način težaven in dolgotrajen. Tukaj bom govoril o nekaj hitrih trikih, ki vam bodo v pomoč.

doc-create-listi-s-seznama1

Ustvarite delovne liste zaporedja s seznama celic s kodo VBA

Ustvarite delovne liste zaporedja s seznama celic z Kutools za Excel


puščica modri desni mehurček Ustvarite delovne liste zaporedja s seznama celic s kodo VBA

Naslednja koda VBA vam lahko pomaga dodati nekaj delovnih listov, ki so poimenovani na podlagi vsebine celice po obstoječih delovnih listih. Naredite to:

1. Držite tipko ALT + F11 tipke, nato odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: dodajte delovne liste zaporedja na podlagi seznama celic

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. Nato pritisnite F5 tipko za zagon te kode, nato pa se prikaže pozivno okno, da izberete obseg, ki ga želite uporabiti. Oglejte si posnetek zaslona:

doc-create-listi-s-seznama2

4. In nato kliknite OK, delovni listi, ki so poimenovani z vrednostmi celic, so bili dodani za obstoječim delovnim listom. Oglejte si posnetek zaslona:

doc-create-listi-s-seznama3

Opombe:

1. Novi delovni listi bodo vstavljeni za trenutnim delovnim listom.

2. Če je izbrani obseg vključeval prazne celice, so delovni listi poimenovani glede na privzeto. Oglejte si posnetke zaslona:

doc-create-listi-s-seznama4
-1
doc-create-listi-s-seznama5

puščica modri desni mehurček Ustvarite delovne liste zaporedja s seznama celic z Kutools za Excel

Tukaj predstavljam priročno orodje -Kutools za Excel, Z njegovim Ustvari delovne liste zaporedja, lahko hitro ustvarite delovne liste z imenom meseca, imenom dneva, seznamom po meri itd.

Kutools za Excel vključuje več kot 300 priročnih orodij Excel. Brezplačno poskusite brez omejitev v 30 dneh. Get it now.

Po namestitvi Kutools za Excel naredite naslednje:

1. Izberite obseg, na podlagi katerega želite ustvariti delovne liste.

2. klik Podjetje > Orodja za delovne liste > Ustvari delovne liste zaporedja, glej posnetek zaslona:

doc-create-listi-s-seznama6

3. v Ustvari delovne liste zaporedja v pogovornem oknu izberite vrsto delovnega lista, ki ga želite ustvariti, in nato potrdite Podatki v obsegu možnost, glej posnetek zaslona:

doc-create-listi-s-seznama7

4. Nato kliknite OK za zapiranje pogovornega okna in ustvarjen je bil nov delovni zvezek, ki vsebuje delovne liste, ki jih imenujejo izbrani podatki obsega. Oglejte si posnetek zaslona:

doc-create-listi-s-seznama8

Opombe:

1. Če izberete Sheet 1 ali Sheet 2, bodo novi delovni listi ustvarjeni v enakem oblikovanju kot Sheet 1 ali Sheet 2.

2. Novi delovni listi so ustvarjeni v novem delovnem zvezku.

3. Če je izbrani obseg vključeval prazne celice, so delovni listi poimenovani glede na privzeto. Oglejte si posnetke zaslona:

doc-create-listi-s-seznama9
-1
doc-create-listi-s-seznama10

Kliknite, če želite izvedeti več o tej funkciji Ustvari delovne liste zaporedja.


Povezani članek:

Kako v Excel dodati nove delovne liste s prilagojenimi imeni?

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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