Preskoči na glavno vsebino

Kako dodati nov list z določenim imenom v Excelu?

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

Samodejno dodajanje novega lista z določenim imenom v trenutni delovni zvezek s kodo VBA
Samodejno dodajanje novega lista z določenim imenom v novi delovni zvezek s programom Kutools za Excel


Samodejno dodajanje novega lista z določenim imenom v trenutni delovni zvezek s kodo VBA

Na koncu trenutnega delovnega zvezka lahko dodate nov list z določenim imenom z naslednjo kodo VBA.

1. Pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.

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

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

Koda VBA: na koncu trenutnega delovnega zvezka dodajte nov list z določenim imenom

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 tipko za zagon kode. V pojavnem oknu Kutools za Excel v pogovorno okno vnesite ime za ta list in kliknite na OK . Oglejte si posnetek zaslona:

Nato se ustvari nov delovni list z določenim imenom in se nahaja na koncu trenutnega delovnega zvezka.


Samodejno dodajanje novega lista z določenim imenom v novi delovni zvezek s programom Kutools za Excel

V tem poglavju bomo predstavili Ustvari delovne liste zaporedja uporabnost Kutools za Excel. S tem pripomočkom lahko v nov delovni zvezek preprosto dodate nov list z določenim imenom.

Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.

1. Če želite dodati nov list z določenim imenom, morate to ime vnašati v celico vnaprej. In nato kliknite Kutools Plus > Delovni list > Ustvari delovne liste zaporedja.

2. V Ljubljani Ustvari delovne liste zaporedja pogovorno okno, izberite Prazen delovni list v Osnovni delovni list spustnega seznama izberite datumv območju in določite celico, ki vsebuje določeno ime delovnega lista, in na koncu kliknite OK . Oglejte si posnetek zaslona:

Nato se v novem delovnem zvezku takoj ustvari nov delovni list s tem določenim imenom iz celice.

Opombe:

1. Če želite hkrati ustvariti več novih listov z določenimi imeni, vnesite ta imena v celice eno za drugo in nato izberite te celice v Podatki v obsegu škatla.
2. S tem lahko iz zaporednih številk ali seznama po meri ustvarite tudi zaporedne delovne liste Ustvari delovne liste zaporedja uporabnost. Oglejte si posnetek zaslona:

  Če želite imeti brezplačno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.

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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, this does not properly account for user clicking cancel. It still creates worksheet.
This comment was minimized by the moderator on the site
Hi
The code has been updated with the problem solving. Please have a try and thanks for your comment.
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Thank you for your reply crystal! I have it working now :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations