Ez a cikk a következő kérdésekre ad választ hogyan lehet hozzáadni egy lapot névvel az Excelben VBA Ha ilyen egyedi trükköket keresel, akkor a legjobb helyen jársz. Itt megbeszéljük, hogy 6 egyszerű & samp; bevált módszerek egy névvel ellátott lap hozzáadására az Excelben VBA .

Gyakorlati munkafüzet letöltése

A jobb megértéshez és a gyakorláshoz letöltheti az alábbi Excel munkafüzetet.

VBA kód a Sheet névvel történő hozzáadásához

Használjuk a Lapok objektum egy lap hozzáadásához az Excelben. Az alapvető VBA kód egy lap hozzáadásához, amelynek neve az alábbiak szerint néz ki.

Előtte: Ez opcionális. Egy új lapot ad hozzá egy adott lap előtt.

Utána: Ez is opcionális. Egy új lapot ad hozzá egy adott lap után.

Számolj: Ez is egy opcionális paraméter. Megadja a hozzáadandó lapok számát.

Típus: Ez is opcionális. Meghatározza a lap típusát. Itt az alapértelmezett érték xlWorksheet .

6 különböző módja a lap hozzáadásának a névvel az Excel VBA-ban

Az Excelben új lapot adhatunk hozzá az add ⊕ ikon közvetlenül a lap neve mellett. Gondolt már arra, hogy ugyanezt a feladatot automatizálja az Excelben? Ne gondolkodjon tovább, mert a VBA fedezi Önt.

Itt van egy munkalapunk, amelynek neve Értékesítési jelentés Tartalmazza a Napi értékesítési jelentés egy bizonyos kávézó. Az oszlopokban B , C és D , vannak olyan nevek, amelyek Értékesítési képviselők , Tételek , és Mennyiség illetve.

Itt a munkafüzet további lapjait adjuk hozzá a VBA makró .

Itt használtuk a Microsoft Excel 365 verzió, bármely más verziót is használhatsz, ahogyan neked kényelmes.

1. Lap hozzáadása névvel az Excel VBA-ban

Az első módszerünkben egy lapot adunk hozzá a felhasználói bemenet Ha kíváncsi vagy a tanulásra, kövesd az alábbi egyszerű lépéseket.

📌 Lépések:

• A legelején menjen a Fejlesztő tab.
• Másodszor, válassza ki Visual Basic a Kód: csoport.
• Másik lehetőségként nyomja meg a ALT + F11 ugyanazt a feladatot.

Megjegyzés: Győződjön meg róla, hogy megnyomja a ALT billentyű bal oldalán található SPACEBAR A művelet nem fog végrehajtódni, ha más parancsot használ. ALT kulcsok.

• Azonnal, a Microsoft Visual Basic for Applications ablak nyílik meg.
• Később lépjen át a Beillesztés tab.
• Ezután válassza a Modul a lehetőségek közül.

• Jelenleg a kódot nyitja meg Modul .
• Ezután írja a következő kódot a Modul .

 Sub Add_Sheet_with_Name() Dim sheet_name As String Dim sheet As Object On Error Resume Next sheet_name = InputBox("Please enter sheet name ", _ "Exceldemy") If sheet_name = "" Then Exit Sub Sheets.Add.Name = sheet_name End Sub 

Kód lebontása

• Először is, a Sub eljárást hívjuk meg, mint Add_Sheet_with_Name .
• Ezután definiáljuk a változótípusokat.
• Később hozzáadtuk a Hiba esetén Folytassa tovább Ez figyelmen kívül hagy minden hibát.
• Ezután használtuk InputBox hogy megkapjuk a lap nevét a felhasználótól. Továbbá, a szöveges karakterláncot is eltároltuk a InputBox a lap_név változó.
• Ezután, ha a lap_név üres, akkor a kód nem folytatódik.
• Végül, használjuk a Add.Name metódust az újonnan létrehozott lap elnevezésére. Itt a név ugyanaz lesz, mint a lap_név változó.

• Ebben a pillanatban nyomja meg a Fuss (⏵) Inkább nyomja meg a F5 a billentyűzeten.

• Hirtelen megnyílik egy beviteli mező.
• Itt adja meg az új lap nevét. Ebben az esetben azt írtuk, hogy Profit a dobozban.
• Később kattintson a OK .

• Tehát a kódunk végrehajtódik, és hozzáad egy lapot, melynek neve Profit .

Megjegyzés: Nem említettünk helyet a lapunknak. Alapértelmezés szerint az aktív lap elé kerül.

Bővebben: Excel VBA lap hozzáadása egy másik munkafüzethez (3 praktikus példa)

2. Az Excel VBA alkalmazása az adott lap előtti névvel ellátott lap hozzáadásához

A második módszerünkben egy adott lap előtt egy lapot fogunk hozzáadni a névvel. Fedezzük fel a folyamatot lépésről lépésre.

📌 Lépések:

• Először is, hozza fel a kódot Modul ablakot, ahogyan az a 1. módszer .
• Másodszor, írja bele a következő kódot.

 Sub Add_Sheet_Before_Specific_Sheet() Worksheets("Sales Report").Activate Sheets.Add(Before:=Sheets("Profit")).Name = "Balance Sheet" End Sub 

Kód lebontása

• Először is, a Sub eljárást hívjuk meg, mint Add_Sheet_Before_Specific_Sheet (lap hozzáadása) .
• Ezután aktiváljuk a Értékesítési jelentés Ez biztosítja, hogy a kód akkor is futni fog, ha egy másik lapon vagyunk.
• Ezután használjuk a Add.Name metódus az újonnan létrehozott lap elnevezésére. Ez a lap a Profit a munkafüzetből. Továbbá, a lapot elneveztük Mérleg .

• Ezután futtassa a kódot az alábbiakban látható módon 1. módszer .
• Így egy új lapot ad hozzá Mérleg a Profit .

Bővebben: Excel VBA a változó nevű lap hozzáadásához (5 ideális példa)

3. Az Excel VBA használata a névvel ellátott lap hozzáadásához egy adott lap után

Ebben a módszerben egy lapot adunk hozzá a lap után, amelynek neve Profit Lássuk a folyamatot részletesen.

📌 Lépések:

• Először hozza fel a kódot Modul ablakot, ahogyan az a 1. módszer .
• Ezután írja bele a következő kódot.

 Sub Add_Sheet_After_Specific_Sheet() Worksheets("Profit").Activate Sheets.Add(After:=ActiveSheet).Name = "Warehouse" End Sub 

Ez a kód majdnem hasonló a 2. módszer . csak itt a paramétert használtuk A után ahelyett, hogy Mielőtt Mivel az új lapot egy adott lap után akarjuk hozzáadni.

• Ezután futtassa a kódot az alábbiakban látható módon 1. módszer .
• Így egy új lapot ad hozzá Raktár a következő lap után Profit .

Bővebben: Excel VBA a lap hozzáadásához, ha nem létezik (gyors lépésekkel)

4. Lap beszúrása névvel a munkafüzet elején

Ebben a szakaszban egy új lapot illesztünk be a munkafüzet elejére az Excelben a következővel VBA Tehát, további késlekedés nélkül lássuk, hogyan csináljuk.

📌 Lépések:

• Kezdetben hozza fel a kódot Modul ablakot, ahogyan az a 1. módszer .
• Ezután írja bele a következő kódot.

 Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1)).Name = "Company Profile" End Sub 

Itt az új munkalapot a munkafüzet első lapja előtt adjuk hozzá. Ez azt jelenti, hogy a munkafüzet elején. Ennek eredményeképpen ez most az első lap. Továbbá, a lapot elneveztük Vállalati profil .

• Ezután futtassa a kódot az alábbiakban látható módon 1. módszer .
• Ezért egy új lapot ad hozzá. Vállalati profil a munkafüzet elején.

Bővebben: Excel makró: Új lap létrehozása és átnevezése (3 ideális példa)

5. Az Excel VBA felhasználása a lap hozzáadásához a munkafüzet végére

Ebben a szakaszban egy lap hozzáadása a munkafüzet utolsó lapja után Engedje meg, hogy az alábbiakban bemutassam a folyamatot.

📌 Lépések:

• Elsősorban nyissa meg a kódot Modul ablakot, ahogyan az a 1. módszer .
• Másodszor, illessze be a következő kódot.

 Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Income Statement" End Sub 

Kód lebontása

• Először is, a Sub eljárást Sheet_End_Workbook néven hívjuk meg.
• Ezután használjuk a Add.Name metódust, hogy elnevezzük az újonnan létrehozott lapot. Ezt a lapot a munkafüzet utolsó lapja után fogjuk létrehozni. Az utolsó lap számát a Sheets.Count tulajdonságot. Továbbá, a lapot elneveztük Nyereségkimutatás .

• Ezután futtassa a kódot a 1. módszer .
• Ezért egy új lapot ad hozzá. Nyereségkimutatás a munkafüzet végén.

Bővebben: Új munkafüzet létrehozása és mentése a VBA használatával az Excelben

6. Több lap bemutatása az Excel VBA cellák értékének használatával

Az utolsó módszerhez több lapot adunk hozzá a munkafüzetben egy cellatartományból származó névvel az Excel segítségével. VBA Továbbá, megkérjük a felhasználót, hogy adja meg a tartományt a név felvételéhez. Nézzük meg tehát az alábbi lépéseket.

📌 Lépések:

• Először nyissa meg a kódot Modul ablakot, ahogyan az a 1. módszer .
• Ezután másolja ki a következő kódot, és illessze be.

 Sub Add_Multiple_Sheets_Using_Cell_Value() Dim rng As Range Dim cc As Range Set rng = Application.InputBox("Select Cell Range" _ & " to Insert Sheets", "ExcelWIKI", Type:=8) Application.ScreenUpdating = False Worksheets("Sales Report").Activate For Each cc In rng Sheets.Add(After:=ActiveSheet).Name = cc.Value Next cc Application.ScreenUpdating = True End Sub 

Kód lebontása

• Először is, a Sub eljárást Add_Multiple_Sheets_Using_Cell_Value néven hívjuk.
• Ezután definiáljuk a változótípusokat.
• Ezután használjuk a InputBox hogy megkapja a felhasználótól az adattartományt.
• Negyedszer, aktiváljuk a lapot Értékesítési jelentés .
• Később használunk egy Minden következő ciklus, hogy egyesével végigmenjen a kijelölt cellatartományon.
• Ezután használjuk a Add.Name metódus az újonnan létrehozott lap elnevezésére. Ezeket a lapokat az aktív lap után fogjuk létrehozni. Értékesítési jelentés a munkafüzetben.

• Most futtassuk a kódot a 1. módszer .
• Azonnal, a Exceldemy beviteli mező nyílik meg.
• Ezután adja meg a cellákat a B5:B9 tartomány a dobozban.
• Végül kattintson a OK .

• Végül beilleszti öt a cellák értékeiről elnevezett lapok a B5:B9 Mindegyik a lap után van. Értékesítési jelentés .

Következtetés

Ez a cikk egyszerű és rövid megoldásokat kínál az Excel által nevekkel ellátott lapok hozzáadásához. VBA Ne felejtse el letölteni a Gyakorlat Köszönjük, hogy elolvasta ezt a cikket, reméljük, hogy ez hasznos volt. Kérjük, ossza meg velünk a megjegyzés rovatban, ha bármilyen kérdése vagy javaslata van. Kérjük, látogasson el weboldalunkra. Exceldemy hogy többet tudjon meg.