Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako ustvariti več delovnih listov s seznama vrednosti celic?

Ali obstajajo hitri ali preprosti načini za ustvarjanje več delovnih listov, ki temeljijo na seznamu vrednosti celic v Excelu? V tem članku bom govoril o dobrih trikih, ki bi rešili to nalogo.

Ustvarite več delovnih listov s seznama vrednosti celice s kodo VBA

Ustvarite več delovnih listov s seznama vrednosti celice z orodji Kutools for Excel


puščica modra desno mehurček Ustvarite več delovnih listov s seznama vrednosti celice s kodo VBA

Če želite hitro ustvariti več novih delovnih listov, ki so označene s seznamom vrednosti celic, vam lahko pomagajo naslednja koda VBA.

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: ustvarite več delovnih list s seznama celic:

Sub AddSheets()
'Updateby Extendoffice 20161215
    Dim xRg As Excel.Range
    Dim wSh As Excel.Worksheet
    Dim wBk As Excel.Workbook
    Set wSh = ActiveSheet
    Set wBk = ActiveWorkbook
    Application.ScreenUpdating = False
    For Each xRg In wSh.Range("A1:A7")
        With wBk
            .Sheets.Add after:=.Sheets(.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xRg.Value
            If Err.Number = 1004 Then
              Debug.Print xRg.Value & " already used as a sheet name"
            End If
            On Error GoTo 0
        End With
    Next xRg
    Application.ScreenUpdating = True
End Sub

Opombe: V zgornji kodi, A1: A7 je obseg celic, na katerem želite ustvariti liste, ki jih želite spremeniti, da jih spremenite v svoje potrebe.

3. Nato pritisnite F5 ključ za zagon te kode in nove liste so bile ustvarjene za vse liste v trenutni delovni zvezki, glejte sliko zaslona:

doc ustvari več listov 1


puščica modra desno mehurček Ustvarite več delovnih listov s seznama vrednosti celice z orodji Kutools for Excel

Če niste usposobljeni za zgoraj navedeno kodo, tukaj je priročno orodje,Kutools za Excel, Z njegovim Ustvari delovne liste zaporedja delovne liste bodo ustvarjene na podlagi celičnih vrednosti v novem delovnem zvezku.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Po namestitvi Kutools za Excel, storite tako:

1. Kliknite Podjetje > Delovni list > Ustvari delovne liste zaporedja, si oglejte sliko zaslona:

doc ustvari več listov 2

2. v Ustvari delovne liste zaporedja pogovorno okno:

(1.) Izberite enega delovnega lista, na katerega želite ustvariti delovne liste zaporedij, ki temeljijo na;

(2.) Potem izberite datum v razponu od možnosti Imena listov na podlagi polje in kliknite doc ustvari več listov 4 da izberete vrednosti celic, ki jih želite uporabiti.

doc ustvari več listov 3

3. In nato kliknite Ok gumb, so bili delovni listi ustvarjeni z imeni vrednosti celice v novi delovni zvezki, glejte sliko zaslona:

doc ustvari več listov 5

Kliknite Prenesi in brezplačno preskusite Kutools za Excel Now!



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Craig · 4 months ago
    This works great, how could you incorporate a template into each created tab? i.e. copy and paste from a template into each newly created sheet
  • To post as a guest, your comment is unpublished.
    Nathan · 1 years ago
    First time using VBA code in Excel. Worked perfectly on the first try. Thanks for posting this.
  • To post as a guest, your comment is unpublished.
    amin · 1 years ago
    and it creates a lot of sheets even if the list is empty... what if i want to create sheets based on cells that have value?
  • To post as a guest, your comment is unpublished.
    GUEST · 1 years ago
    Better version. This will delete created sheet if exist another sheet with the same name. And added inputbox to avoid from manual code modification to select range.


    Sub AddSheetsFromCells()

    Dim xRg As Range, wBk As Workbook
    Set wBk = ActiveWorkbook

    On Error GoTo Quit
    Set dbRange = Application.InputBox("Range: ", "Select Range", _
    Application.Selection.Address, Type:=8)

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    For Each xRg In dbRange
    With wBk
    .Sheets.Add After:=.Sheets(.Sheets.Count)
    On Error Resume Next
    ActiveSheet.Name = xRg.Value
    If Err.Number = 1004 Then
    Debug.Print Chr(34) & xRg.Value & Chr(34) & " already used as a sheet name"
    .ActiveSheet.Delete
    End If
    On Error GoTo 0
    End With
    Next xRg

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Quit:

    End Sub
    • To post as a guest, your comment is unpublished.
      Craig Dickeson · 4 months ago
      What if i wanted each newly created sheet to have a template pasted into it from a template sheet? The template would have formatting and formulas only

      Thanks
    • To post as a guest, your comment is unpublished.
      Richard Pigford · 9 months ago
      This appears to work great for what I am attempting to do with one exception... It is creating blank worksheets... I want to create a copy of an existing worksheet for each row in another worksheet. Is there anyway to do that?