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 dodati nov list s specifičnim imenom v Excelu?

Včasih želite ustvariti nov list in ga samodejno poimenovati s posebnim imenom v Excelu. V tem članku vam bomo prikazali dva načina dodajanja novega lista s posebnim imenom v trenutni delovni zvezek ter ustvarjanje delovnega lista s posebnim imenom v novem delovnem zvezku v Excelu.

Samodejno dodajanje nove liste s specifičnim imenom v trenutni delovni zvezki s kodo VBA

Samodejno dodajanje novega lista s specifičnim imenom v novi delovni zvezki s programom Kutools for Excel


Samodejno dodajanje nove liste s specifičnim imenom v trenutni delovni zvezki s kodo VBA


Na koncu trenutne delovne knjige lahko dodate nov list z določenim imenom z naslednjo kodo VBA.

1. Pritisnite druga + F11 tipke hkrati odpreti Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli.

3. Kopirajte in prilepite pod kodo VBA v Moduli okno.

VBA koda: dodajte nov list s specifičnim imenom na koncu trenutne delovne knjige

Sub CreateSheet()
'Updated by ExtendOffice 20181009
    Dim xName As String
    Dim xSht As Object
    On Error Resume Next
    xName = InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
    If xName = "" Then Exit Sub
        Set xSht = Sheets(xName)
        If Not xSht Is Nothing Then
            MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
            Exit Sub
            End If
            Sheets.Add(, Sheets(Sheets.count)).Name = xName
        End Sub

4. Pritisnite F5 ključ za zagon kode. Pri pojavu Kutools za Excel V pogovornem oknu vnesite ime za ta list in kliknite OK gumb. Prikaz slike:

Nato je nov delovni list ustvarjen s specifičnim imenom in se nahaja na koncu trenutne delovne knjige.


Samodejno dodajanje novega lista s specifičnim imenom v novi delovni zvezki s programom Kutools for Excel

V tem poglavju bomo predstavili Ustvari delovne liste zaporedja uporabnost Kutools za Excel. S tem pripomočkom lahko preprosto dodate novo listo s posebnim imenom v novem delovnem zvezku.

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

1. Za dodajanje novega lista s specifičnim imenom morate to ime vnesti v celico vnaprej. In nato kliknite Podjetje > Delovni list > Ustvari delovne liste zaporedja. Prikaz slike:

2. V Ljubljani Ustvari delovne liste zaporedja pogovorno okno, izberite Prazen delovni list v Osnovni delovni list spustni seznam, izberite datumv razponu možnost in določite celico, ki vsebuje določeno ime delovnega lista, in končno kliknite na OK gumb. Prikaz slike:

Potem se takoj v novem delovnem zvezku ustvari nov delovni list s tem specifičnim imenom iz celice.

Opombe:

1. Če želite istočasno ustvariti več novih listov s posebnimi imeni, vnesite ta imena v celice eno za drugo in nato izberite te celice v Podatki v razponu škatla.

2. Prav tako lahko ustvarite zaporedne delovne liste iz serijskih številk ali seznama po meri s tem Ustvari delovne liste zaporedja uporabnost. Prikaz slike:

Nasvet.Če želite imeti brezplačen preskus tega pripomočka, pojdite na brezplačno prenesete programsko opremo najprej in pojdite, da uporabite operacijo v skladu z zgornjimi koraki.


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

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.
    guest · 9 months ago
    Hi, this does not properly account for user clicking cancel. It still creates worksheet.
    • To post as a guest, your comment is unpublished.
      crystal · 8 months ago
      Hi
      The code has been updated with the problem solving. Please have a try and thanks for your comment.
  • To post as a guest, your comment is unpublished.
    Lowri · 10 months ago
    Hi, I'm quite new to VBA, the above code works great for adding a new spreadsheet and renaming it, however I would then like it to automatically copy and paste the contents on my 'template' sheet into the new sheet? Can anybody help please?

    Thanks
    • To post as a guest, your comment is unpublished.
      crystal · 10 months ago
      Good day,
      Please try the below VBA code. Hope it can help. Thanks for your comment.

      Sub CreateSheet()
      Dim xName As String
      Dim xSht As Object
      Dim xNWS As Worksheet
      On Error Resume Next
      xName = Application.InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
      If xName = "" Then Exit Sub
      Set xSht = Sheets(xName)
      If Not xSht Is Nothing Then
      MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
      Exit Sub
      End If
      ActiveSheet.Copy after:=Sheets(Sheets.count)
      Set xNWS = Sheets(Sheets.count)
      xNWS.Name = xName
      End Sub
      • To post as a guest, your comment is unpublished.
        Lowri · 8 months ago
        Thank you for your reply crystal! I have it working now :)