Ugrás a tartalomra

Hogyan adhatunk hozzá új lapot konkrét névvel az Excel programban?

Előfordulhat, hogy új lapot szeretne létrehozni, és automatikusan egy adott névvel nevezi el az Excelben. Ebben a cikkben két módszert mutatunk be az új, konkrét névvel ellátott munkalap hozzáadásához az aktuális munkafüzetbe, valamint a konkrét névvel ellátott munkalap létrehozásához az Excel új munkafüzetében.

Új, meghatározott névvel ellátott lap automatikus hozzáadása az aktuális VBA kódú munkafüzethez
Új lap automatikus hozzáadása adott névvel egy új munkafüzetben a Kutools for Excel segítségével


Új, meghatározott névvel ellátott lap automatikus hozzáadása az aktuális VBA kódú munkafüzethez

Hozzáadhat egy új nevet bizonyos névvel az aktuális munkafüzet végén, a következő VBA kóddal.

1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok.

3. Másolja és illessze be a VBA kód alatt a Modulok ablak.

VBA-kód: adjon hozzá egy új nevet a megadott névvel az aktuális munkafüzet végén

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. nyomja meg F5 gombot a kód futtatásához. A felbukkanóban Kutools az Excel számára párbeszédpanelen adja meg a lap nevét, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

Ezután létrehoz egy új munkalapot, amely megnevezi az aktuális munkafüzet végén.


Új lap automatikus hozzáadása adott névvel egy új munkafüzetben a Kutools for Excel segítségével

Ebben a részben bemutatjuk a Készítsen szekvencia munkalapokat hasznossága Kutools az Excel számára. Ezzel a segédprogrammal könnyedén hozzáadhat új, meghatározott névvel ellátott lapot egy új munkafüzethez.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. Ha új lapot szeretne megadni bizonyos névvel, akkor ezt a nevet előre be kell írnia egy cellába. Ezután kattintson Kutools Plus > Munkalap > Készítsen szekvencia munkalapokat.

2. Ban,-ben Készítsen szekvencia munkalapokat párbeszédpanelen válassza ki Üres munkalap a Alap munkalap legördülő listából válassza a lehetőséget dátumegy tartományban opciót, és adja meg a cellát, amely tartalmazza a bizonyos munkalap nevét, és végül kattintson a gombra OK gomb. Lásd a képernyőképet:

Ezután azonnal létrehoz egy új munkalapot ezzel a konkrét névvel egy cellából egy új munkafüzetbe.

Megjegyzések:

1. Ha egyszerre több új lapot szeretne létrehozni meghatározott nevekkel, kérjük, írja be ezeket a neveket a cellákba egyenként, majd válassza ki ezeket a cellákat a Adatok egy tartományban doboz.
2. Ezzel sorozatszám-munkalapokat is létrehozhat sorozatszámokból vagy egyéni listából Készítsen szekvencia munkalapokat hasznosság. Lásd a képernyőképet:

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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