Sådan tilføjes ark med navn i Excel VBA (6 nemme måder)

Hugh West

02-06-2023 Makroer & Excel VBA
  • Del Dette
Hugh West

I denne artikel får du svar på dine spørgsmål om hvordan man tilføjer et ark med navn i Excel VBA Hvis du er på udkig efter sådanne unikke tricks, er du kommet til det rette sted. Her vil vi diskutere 6 nemme & gennemprøvede måder at tilføje et ark med et navn i Excel VBA .

Download arbejdsbog til øvelser

Du kan downloade følgende Excel-arbejdsbog for at få en bedre forståelse og øve dig selv.

Tilføjelse af ark med navn.xlsm

VBA-kode til at tilføje ark med navn

Vi bruger den Ark objekt for at tilføje et ark i Excel. Den grundlæggende VBA kode til at tilføje et ark med navnet ligner nedenstående.

Sheets.Add ([Before], [After], [Count], [Type])

Før: Det er valgfrit. Det tilføjer et nyt ark forud for et bestemt ark.

Efter: Det er også valgfrit. Det tilføjer et nyt ark efter et bestemt ark.

Tæl: Det er også en valgfri parameter, som angiver antallet af ark, der skal tilføjes.

Type: Det er også valgfrit. Det angiver arketypen. Her er standardværdien xlWorksheet .

6 forskellige måder at tilføje ark med navn i Excel VBA på

I Excel kan vi tilføje et nyt ark med tilføj ⊕ ikonet lige ved siden af arknavnet. Har du nogensinde tænkt på at automatisere den samme opgave i Excel? Tænk ikke længere, for VBA har dig dækket.

Her har vi et regneark ved navn Salgsrapport . Den indeholder Daglig salgsrapport af et bestemt cafeteria. I kolonner B , C og D , der er navne på Salgsrepræsentanter , Varer , og Antal henholdsvis.

Her vil vi tilføje andre ark i denne projektmappe ved hjælp af VBA-makro .

Her har vi anvendt Microsoft Excel 365 version, kan du bruge enhver anden version, hvis det passer dig.

1. Tilføjelse af ark med navn i Excel VBA

I vores første metode tilføjer vi et ark med navnet fra brugerinput Hvis du er nysgerrig efter at lære det, kan du følge disse enkle trin.

📌 Trin:

  • I begyndelsen skal du gå til Udvikler fanebladet.
  • For det andet skal du vælge Visual Basic på den Kode gruppe.
  • Alternativt kan du trykke på ALT + F11 til at udføre den samme opgave.

Bemærk: Sørg for at trykke på ALT til venstre for SPACEBAR . operationen vil ikke blive udført, hvis du bruger andre ALT nøgler.

  • Med det samme Microsoft Visual Basic for Applications vinduet åbnes.
  • Senere kan du flytte til Indsæt fanebladet.
  • Vælg derefter Modul fra indstillingerne.

  • I øjeblikket åbner den koden Modul .
  • Derefter skal du skrive følgende kode i Modul . 
 Sub Add_Sheet_with_Name() Dim sheet_name As String Dim sheet As Object On Error Resume Next sheet_name = InputBox("Indtast venligst arknavn ", _ "Exceldemy") If sheet_name = "" Then Exit Sub Sheets.Add.Name = sheet_name End Sub

Opdeling af kode

  • For det første kalder vi Sub-proceduren som Tilføj_ark_med_navn .
  • Derefter definerer vi variabeltyperne.
  • Senere har vi tilføjet Ved fejl Fortsæt næste Dette vil ignorere eventuelle fejl.
  • Herefter brugte vi InputBox for at få navnet på arket fra brugeren. Vi gemte også tekststrengen fra InputBox i den sheet_name variabel.
  • Hvis der dernæst sheet_name er tom, vil koden ikke fortsætte.
  • Endelig bruger vi Add.Name metode til at navngive det nyoprettede ark. Her vil navnet være det samme som navnet på sheet_name variabel.

  • På dette tidspunkt skal du trykke på Kør (⏵) ikonet. Du kan i stedet trykke på F5 på dit tastatur.

  • Pludselig åbner den et indtastningsfelt.
  • Her skal du indtaste navnet på det nye ark. I dette tilfælde har vi skrevet Overskud i kassen.
  • Senere skal du klikke på OK .

  • Så vores kode vil blive eksekveret, og den vil tilføje et ark ved navn Overskud .

Bemærk: Vi har ikke nævnt noget sted for vores ark. Som standard er det placeret før det aktive ark.

Læs mere: Excel VBA til at tilføje ark til en anden projektmappe (3 praktiske eksempler)

2. Anvendelse af Excel VBA til at tilføje ark med navn før et bestemt ark

I vores anden metode tilføjer vi et ark med navnet før et bestemt ark. Lad os undersøge processen trin for trin.

📌 Trin:

  • Først skal du hente koden Modul vindue som vist i Metode 1 .
  • For det andet skal du skrive følgende kode ind i den. 
 Sub Add_Sheet_Before_Specific_Sheet() Worksheets("Sales Report").Activate Sheets.Add(Before:=Sheets("Profit")).Name = "Balance Sheet" End Sub

Opdeling af kode

  • For det første kalder vi Sub-proceduren som Tilføj_ark_før_Specifikt_ark .
  • Derefter aktiverer vi den Salgsrapport Dette vil sikre, at koden kan køre, hvis vi er på et andet ark.
  • Dernæst bruger vi Add.Name metode til at navngive det nyligt oprettede ark. Dette ark vil blive oprettet før det ark, der kaldes Overskud fra arbejdsmappen. Desuden har vi navngivet arket som Balance .

  • Kør derefter koden som vist i Metode 1 .
  • Dermed vil den tilføje et nyt ark Balance før det ark, der hedder Overskud .

Læs mere: Excel VBA til at tilføje ark med variabel navn (5 ideelle eksempler)

3. Brug af Excel VBA til at tilføje ark med navn efter et bestemt ark

I denne metode tilføjer vi et ark efter arket med navnet Overskud . Lad os se processen i detaljer.

📌 Trin:

  • I første omgang skal du få koden frem Modul vindue som vist i Metode 1 .
  • Derefter skrives følgende kode ind i den. 
 Sub Add_Sheet_After_Specific_Sheet() Worksheets("Profit").Activate Sheets.Add(After:=ActiveSheet).Name = "Warehouse" End Sub

Denne kode svarer næsten til koden for Metode 2 . her har vi blot brugt parameteren Efter i stedet for Før . fordi vi ønsker at tilføje det nye ark efter et bestemt ark.

  • Derefter skal du køre koden som vist i Metode 1 .
  • Dermed vil den tilføje et nyt ark Lager efter arket med navnet Overskud .

Læs mere: Excel VBA til at tilføje ark, hvis det ikke eksisterer (med hurtige trin)

4. Indsættelse af ark med navn i starten af arbejdsbogen

I dette afsnit indsætter vi et nyt ark i starten af arbejdsbogen i Excel ved hjælp af VBA Så lad os uden yderligere forsinkelse se, hvordan vi gør det.

📌 Trin:

  • I første omgang skal du få koden frem Modul vindue som vist i Metode 1 .
  • Derefter skriver du følgende kode ind i den. 
 Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1))).Name = "Company Profile" End Sub

Her tilføjer vi det nye regneark før det første ark i arbejdsmappen. Det vil sige i starten af arbejdsmappen. Som følge heraf er det det første ark nu. Vi har også navngivet arket Virksomhedsprofil .

  • Kør derefter koden som vist i Metode 1 .
  • Derfor vil den tilføje et nyt ark Virksomhedsprofil i starten af arbejdsbogen.

Læs mere: Excel-makro: Opret nyt ark og omdøb det (3 ideelle eksempler)

5. Udnyttelse af Excel VBA til at tilføje ark i slutningen af arbejdsmappen

I dette afsnit vil vi tilføje et ark efter det sidste ark i arbejdsmappen Tillad mig at demonstrere processen nedenfor.

📌 Trin:

  • Åbn først og fremmest koden Modul vindue som vist i Metode 1 .
  • For det andet skal du indsætte følgende kode i denne. 
 Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Income Statement" End Sub

Opdeling af kode

  • For det første kalder vi Sub-proceduren som Sheet_End_Workbook.
  • Dernæst bruger vi Add.Name metode til at navngive det nyoprettede ark. Vi opretter dette ark efter det sidste ark i arbejdsmappen. Vi kan få det sidste arknummer fra Ark.Count Desuden har vi navngivet arket Resultatopgørelse .

  • Derefter skal du køre koden som vist i Metode 1 .
  • Derfor vil den tilføje et nyt ark Resultatopgørelse i slutningen af arbejdsbogen.

Læs mere: Opret en ny projektmappe og gem ved hjælp af VBA i Excel

6. Introduktion af flere ark ved hjælp af celleværdi ved hjælp af Excel VBA

For den sidste metode vil vi tilføje flere ark i arbejdsmappen med navnet fra en række celler ved hjælp af Excel VBA Desuden vil vi bede brugeren om at indtaste det område, som navnet skal tages fra. Så lad os se på nedenstående trin.

📌 Trin:

  • Først skal du åbne koden Modul vindue som vist i Metode 1 .
  • Derefter kopierer du følgende kode og indsætter 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

Opdeling af kode

  • For det første kalder vi Sub-proceduren som Add_Multiple_Sheets_Using_Cell_Value.
  • Derefter definerer vi variabeltyperne.
  • Herefter bruger vi InputBox for at få dataområdet fra brugeren.
  • For det fjerde aktiverer vi arket Salgsrapport .
  • Senere bruger vi en For hver næste løkke for at gennemgå det valgte celleområde en efter en.
  • Dernæst bruger vi Add.Name metode til at navngive det nyligt oprettede ark. Vi opretter disse ark efter det aktive ark Salgsrapport i arbejdsbogen.

  • Kør nu koden som vist i Metode 1 .
  • Med det samme Exceldemy åbnes.
  • Giv derefter cellerne i B5:B9 i kassen.
  • Til sidst skal du klikke på OK .

  • Til sidst vil den indsætte fem ark, der er opkaldt efter celleværdierne i B5:B9 De er alle efter arket. Salgsrapport .

Konklusion

Denne artikel indeholder nemme og korte løsninger til at tilføje ark med navne i Excel VBA Glem ikke at downloade Praksis Tak fordi du læste denne artikel, vi håber, at den var nyttig. Lad os vide i kommentarfeltet, hvis du har spørgsmål eller forslag. Besøg venligst vores hjemmeside Exceldemy for at udforske mere.

Forrige indlæg VBA til at skjule rækker i Excel (14 metoder)
Næste indlæg Sådan passer Excel-ark på én side i Word (3 enkle måder)

Hugh West er en meget erfaren Excel-træner og analytiker med over 10 års erfaring i branchen. Han har en bachelorgrad i regnskab og finans og en kandidatgrad i Business Administration. Hugh har en passion for undervisning og har udviklet en unik undervisningstilgang, der er nem at følge og forstå. Hans ekspertviden om Excel har hjulpet tusindvis af studerende og fagfolk verden over med at forbedre deres færdigheder og udmærke sig i deres karriere. Gennem sin blog deler Hugh sin viden med verden og tilbyder gratis Excel-tutorials og onlinetræning for at hjælpe enkeltpersoner og virksomheder med at nå deres fulde potentiale.