I den här artikeln får du svar på dina frågor om hur man lägger till ett ark med namn i Excel VBA Om du letar efter sådana unika trick har du kommit till rätt ställe. Här kommer vi att diskutera följande 6 enkla & beprövade sätt att lägga till ett ark med ett namn i Excel VBA .

Ladda ner övningsboken

Du kan ladda ner följande Excel-arbetsbok för att få en bättre förståelse och öva själv.

VBA-kod för att lägga till ark med namn

Vi använder Objekt för ark för att lägga till ett ark i Excel. Den grundläggande VBA koden för att lägga till ett ark med namnet ser ut som nedan.

Innan: Det är valfritt. Det lägger till ett nytt blad före ett visst blad.

Efter: Det är också frivilligt och lägger till ett nytt blad efter ett visst blad.

Räkna: Det är också en valfri parameter som anger hur många ark som ska läggas till.

Typ: Det är också valfritt och anger typen av blad. Här är standardvärdet xlWorksheet .

6 olika sätt att lägga till ark med namn i Excel VBA

I Excel kan vi lägga till ett nytt ark med add ⊕ ikonen precis bredvid arkets namn. Har du någonsin tänkt på att automatisera samma uppgift i Excel? Tänk inte längre, eftersom VBA har du allt du behöver.

Här har vi ett arbetsblad som heter Försäljningsrapport Den innehåller följande Daglig försäljningsrapport i en viss cafeteria. I kolumner B , C och D , det finns namn på Försäljare , Artiklar , och Kvantitet respektive.

Här lägger vi till andra ark i arbetsboken med hjälp av VBA-makro .

Här har vi använt oss av Microsoft Excel 365 versionen, men du kan använda vilken annan version som helst.

1. Lägga till ark med namn i Excel VBA

I vår första metod lägger vi till ett ark med namnet från Användarinmatning Om du är nyfiken på att lära dig, följ dessa enkla steg.

📌 Steg:

• I början ska du gå till Utvecklare fliken.
• För det andra väljer du Visual Basic på den Kod grupp.
• Alternativt kan du trycka på ALT + F11 för att utföra samma uppgift.

Observera: Se till att du trycker på ALT tangenten till vänster om SPACEBAR . Operationen skulle inte utföras om du använder andra ALT nycklar.

• Omedelbart, den Microsoft Visual Basic för tillämpningar öppnas.
• Senare kan du flytta till Infoga fliken.
• Välj sedan Modul från alternativen.

• För närvarande öppnas koden Modul .
• Därefter skriver du följande kod i Modul .

 Sub Add_Sheet_with_Name() Dim sheet_name As String Dim sheet As Object On Error Resume Next sheet_name = InputBox("Ange namn på bladet ", _ "Exceldemy") If sheet_name = "" Then Exit Sub Sheets.Add.Name = sheet_name End Sub 

Uppdelning av koden

• För det första anropar vi Sub-proceduren som Lägg till_blad_med_namn .
• Därefter definierar vi variabeltyperna.
• Senare har vi lagt till Vid fel Fortsätt nästa Detta ignorerar eventuella fel.
• Därefter använde vi InputBox för att få namnet på bladet från användaren. Vi lagrade också textsträngen från InputBox i den sheet_name (namn på blad) variabel.
• Om sedan sheet_name (namn på blad) är tom, fortsätter inte koden.
• Slutligen använder vi Add.Name metoden för att namnge det nyskapade bladet. Här kommer namnet att vara detsamma som namnet på det nya bladet. sheet_name (namn på blad) variabel.

• Tryck då på knappen Kör (⏵) ikonen. Du kan i stället trycka på F5 på tangentbordet.

• Plötsligt öppnas en inmatningsruta.
• Här anger du namnet på det nya bladet. I det här fallet skrev vi Vinst i lådan.
• Senare klickar du på OK .

• Så vår kod kommer att exekveras och lägga till ett ark som heter Vinst .

Observera: Vi har inte nämnt någon plats för vårt blad. Som standard placeras det före det aktiva bladet.

Läs mer: Excel VBA för att lägga till ark i en annan arbetsbok (3 praktiska exempel)

2. Tillämpa Excel VBA för att lägga till ett ark med namn före ett specifikt ark

I vår andra metod lägger vi till ett ark med namnet före ett specifikt ark. Låt oss utforska processen steg för steg.

📌 Steg:

• Först tar du fram koden Modul som visas i Metod 1 .
• För det andra skriver du följande kod i den.

 Sub Add_Sheet_Before_Specific_Sheet() Arbetsblad("Försäljningsrapport").Aktivera Sheets.Add(Before:=Sheets("Profit")).Name = "Balance Sheet" End Sub 

Uppdelning av koden

• För det första anropar vi Sub-proceduren som Lägg till_blankett_före_specifika_blankett .
• Därefter aktiverar vi Försäljningsrapport Detta säkerställer att koden kan köras även om vi befinner oss på ett annat ark.
• Därefter använder vi Add.Name metoden för att namnge det nyskapade bladet. Detta blad kommer att skapas före det blad som kallas Vinst från arbetsboken. Dessutom har vi namngett arket som Balansräkning .

• Kör sedan koden som visas i Metod 1 .
• Den lägger alltså till ett nytt blad Balansräkning före det blad som heter Vinst .

Läs mer: Excel VBA för att lägga till ark med variabelnamn (5 idealiska exempel)

3. Använda Excel VBA för att lägga till ett ark med namn efter ett visst ark

I den här metoden lägger vi till ett ark efter det ark som heter Vinst . Vi ska se processen i detalj.

📌 Steg:

• Först visas koden Modul som visas i Metod 1 .
• Därefter skriver du följande kod i den.

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

Denna kod liknar nästan koden för Metod 2 . Bara, här använde vi parametern Efter i stället för Före Eftersom vi vill lägga till det nya bladet efter ett specifikt blad.

• Kör sedan koden som visas i Metod 1 .
• Den lägger alltså till ett nytt blad Lager efter det blad som heter Vinst .

Läs mer: Excel VBA för att lägga till ark om det inte finns (med snabba steg)

4. Infoga ark med namn i början av arbetsboken

I det här avsnittet kommer vi att infoga ett nytt ark i början av arbetsboken i Excel med hjälp av VBA Låt oss därför utan dröjsmål se hur vi gör det.

📌 Steg:

• Till att börja med tar du fram koden Modul som visas i Metod 1 .
• Därefter skriver du följande kod i den.

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

Här lägger vi till det nya arbetsbladet före det första bladet i arbetsboken. Det betyder i början av arbetsboken. Som ett resultat är det det första bladet nu. Dessutom har vi namngett bladet Företagsprofil .

• Kör sedan koden som visas i Metod 1 .
• Därför läggs ett nytt blad till Företagsprofil i början av arbetsboken.

Läs mer: Excel-makro: Skapa ett nytt ark och byt namn (3 idealiska exempel)

5. Använda Excel VBA för att lägga till ett ark i slutet av arbetsboken

I detta avsnitt kommer vi att lägga till ett blad efter det sista bladet i arbetsboken Låt mig demonstrera processen nedan.

📌 Steg:

• Öppna i första hand koden Modul som visas i Metod 1 .
• För det andra klistrar du in följande kod i den.

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

Uppdelning av koden

• För det första kallar vi Sub-proceduren som Sheet_End_Workbook.
• Därefter använder vi Add.Name för att namnge det nyss skapade bladet. Vi kommer att skapa detta blad efter det sista bladet i arbetsboken. Vi kan få fram det sista bladnumret från Saker.Count Dessutom har vi namngett bladet Resultaträkning .

• Därefter kör du koden som visas i Metod 1 .
• Därför läggs ett nytt blad till Resultaträkning i slutet av arbetsboken.

Läs mer: Skapa en ny arbetsbok och spara med VBA i Excel

6. Introducera flera blad med hjälp av cellvärde med Excel VBA

För den sista metoden kommer vi att lägga till flera ark i arbetsboken med namnet från ett intervall av celler med hjälp av Excel. VBA Dessutom kommer vi att be användaren att ange det intervall som ska användas för att ta namnet. Låt oss titta på stegen nedan.

📌 Steg:

• Öppna först koden Modul som visas i Metod 1 .
• Därefter kopierar du följande kod och klistrar in den i den.

 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 

Uppdelning av koden

• För det första kallar vi Subproceduren Add_Multiple_Sheets_Using_Cell_Value.
• Därefter definierar vi variabeltyperna.
• Därefter använder vi InputBox för att hämta ett datafält från användaren.
• För det fjärde aktiverar vi arket Försäljningsrapport .
• Senare använder vi en För varje Nästa för att gå igenom det valda cellområdet en efter en.
• Därefter använder vi Add.Name metoden för att namnge det nyskapade bladet. Vi kommer att skapa dessa blad efter det aktiva bladet. Försäljningsrapport i arbetsboken.

• Kör nu koden som visas i Metod 1 .
• Omedelbart, den Excellent öppnas.
• Ge sedan cellerna i B5:B9 i rutan.
• Slutligen klickar du på OK .

• Slutligen kommer den att infoga fem ark som är uppkallade efter cellvärdena i B5:B9 De är alla efter arket. Försäljningsrapport .

Slutsats

Den här artikeln innehåller enkla och korta lösningar för att lägga till ark med namn i Excel. VBA Glöm inte att ladda ner Praktik fil. Tack för att du läste den här artikeln, vi hoppas att den var till hjälp. Låt oss veta i kommentarsfältet om du har några frågor eller förslag. Besök vår webbplats Excellent för att utforska mer.