VBA Rename Sheet

Rename Sheet i Excel VBA

Renaming ethvert excel regneark er lige så nemt som at omdøbe en fil. Dette kan gøres ved at dobbeltklikke på et hvilket som helst regnearknavn eller ved at vælge Omdøb fra menulinjen til højre i listen. Men hvad nu hvis vi ønsker at omdøbe et excel-regneark ved hjælp af VBA-makro. Ved hjælp af VBA-makro kan vi omdøbe et eller flere Excel-arbejdsark i et enkelt skud. Vi kan endda fastsætte navnet på et regneark for at undgå at blive ændret af nogen. Her vil vi se, flere måder at omdøbe et regneark på.

Hvordan omdøber man ark i Excel ved hjælp af VBA?

Nedenfor er de forskellige eksempler på at omdøbe ark i Excel ved hjælp af VBA-kode.

VBA Rename Sheet – Example #1

Selv om det er meget nemt at omdøbe ethvert excel regneark ved hjælp af VBA. Der er også mange måder at gøre det på. Her er navnet på vores regneark som standard indstillet som “Sheet1” som vist nedenfor, som vi vil omdøbe.

Stræk 1: For dette eksempel ville vi have brug for et modul, hvor vi vil lave kodningen. Gå til menuen Indsæt, og vælg Modul som vist nedenfor.

Stræk 2: I det nyligt åbnede Modul skal du nu skrive underkategorien i navnet VBA Rename Sheet eller i et hvilket som helst andet navn.

Kode:

Sub VBA_RenameSheet()End Sub

Stræk 3: Definer nu en variabel i et hvilket som helst navn, og tildel den med Worksheet datatyper som vist nedenfor. Her har vi navngivet den som “Sheet”.

Kode:

Sub VBA_RenameSheet()Dim Sheet As WorksheetEnd Sub

Stræk 4: Ved hjælp af Set-kommandoen skal du vælge Sheet-variabel som vist nedenfor.

Kode:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet =End Sub

Stræk 5: Og vælg det regneark, som vi skal omdøbe ved hjælp af Worksheet-kommandoen.

Kode:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet = Worksheets("Sheet1")End Sub

Stræk 6: Brug nu funktionen Sheet sammen med Name, og tildel det navn, som vi ønsker at omdøbe. Her vælger vi “Renamed Sheet”.

Kode:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet = Worksheets("Sheet1")Sheet.Name = "Renamed Sheet"End Sub

Stræk 7: Kompilér nu til sidst koden, og kør den, hvis der er fundet en fejl. For at køre koden skal du klikke på Play-knappen, der er placeret under menulinjen som vist nedenfor. Vi vil se, at vores ark bliver omdøbt fra Sheet1 til Renamed Sheet som vist nedenfor.

VBA Rename Sheet – Example #2

I dette eksempel vil vi se en meget nemmere måde at omdøbe et regneark på ved hjælp af VBA-makro. Til dette ville vi have brug for, et andet frisk modul.

Stræk 1: Åbn et modul og skriv underkategorien VBA Rename som vist nedenfor.

Kode:

Sub VBA_RenameSheet1()End Sub

Stræk 2: Vælg det ark, som vi ønsker at omdøbe med Select-funktionen. Her er vores ark Sheet1.

Kode:

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectEnd Sub

Stræk 3: I den næste linje skal du overveje funktionen Navn med det valgte ark som vist nedenfor.

Kode:

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectSheets("Sheet1").Name =End Sub

Stræk 4: Vælg det navn, som vi vil give efter at have omdøbt arket. Vi vælger det samme navn som i eksempel-1 som “Renamed Sheet”

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectSheets("Sheet1").Name = "Renamed Sheet"End Sub

Stræk 5: Kompilér igen koden og kør den. Vi vil se, at ark1 bliver omdøbt med et nyt navn som “Renamed Sheet”.

VBA Rename Sheet – Eksempel #3

Der er igen en mere lignende måde at omdøbe et excel-regneark ved hjælp af VBA. Dette ville ligne lidt den proces, som vi har set i eksempel-2, men meget nemmere at huske og behandle.

Stræk 1: Åbn et modul og skriv den nye underkategori af VBA Rename Sheet som vist nedenfor.

Kode:

Sub VBA_RenameSheet2()End Sub

Stræk 2: Vælg det ark, som vi vil omdøbe. Her kan vi vælge arket ved at sætte sekvensen af Sheet i parentes som vist nedenfor. Så vi behøver ikke at skrive navnet på det ark, der skal omdøbes. Kun sekvensen af det pågældende ark vil fungere.

Kode:

Sub VBA_RenameSheet2()Sheets(1).SelectEnd Sub

Stræk 3: I den næste linje skal du overveje funktionen Navn med den valgte arksekvens som vist nedenfor.

Kode:

Sub VBA_RenameSheet2()Sheets(1).SelectSheets(1).Name =End Sub

Stræk 4: Indtast nu det navn, som vi ønsker at give det valgte Ark1. Lad os betragte det navn, som vi har set i ovenstående eksempler som “omdøbt ark”.

Kode:

Sub VBA_RenameSheet2()Sheets(1).SelectSheets(1).Name = "renamed Sheet"End Sub

Stræk 5: Kompilér nu koden igen, og kør. Vi vil bemærke, at Sheet1 nu igen er omdøbt til “Renamed Sheet” som vist nedenfor.

VBA Rename Sheet – Eksempel #4

I dette eksempel vil vi se, hvordan vi kan omdøbe et vilkårligt regneark med blot én kodelinje.

Stræk 1: Åbn et modul og skriv underkategorien VBA Rename Sheet som vist nedenfor.

Kode:

Sub VBA_RenameSheet3()End Sub

Stræk 2: Vælg den arksekvens, som vi ønsker at omdøbe sammen med funktionen Name, og giv et navn, som vi ønsker at omdøbe det pågældende ark med, som vist nedenfor.

Kode:

Sub VBA_RenameSheet3()Sheets(1).Name = "rename Sheet"End Sub

Stræk 3: Nu skal du blot køre koden for at implementere den. Vi vil igen observere, at Sheet1 nu er omdøbt som “rename Sheet”

Pros of Excel VBA Rename Sheet

• Hvis vi har flere ark, der skal omdøbes, er det meget bedre at bruge VBA-kode end den manuelle proces.
• Vi kan ændre navnet på et Excel-regneark ved hjælp af en linje VBA-kode, som vi har set i eksempel-4.
• Men manuelt at ændre navnet på et ark er også en enkel måde at gøre det på. Men VBA Rename Sheet er ret nyttigt, når vi opretter et nyt ark, og vi ønsker at adskille det med andre ark bare for at kategorisere det.

Things to Remember

• For at få et bedre overblik over de ændringer, der sker, skal du holde VBA-vinduet parallelt med excel-arket, så ændring af arknavnet vil være synligt klart.
• Sparer filen efter arbejdet er udført i Macro enable formatet vil give os mulighed for at bevare koden til fremtidigt arbejde også.
• Automatiseringen af processen med at ændre arknavnet vil hjælpe os med at reducere tiden til at kategorisere arkene og data.

Anbefalede artikler

Dette er en guide til VBA Omdøb ark. Her diskuterer vi, hvordan man omdøber ark i Excel ved hjælp af VBA-kode sammen med nogle få praktiske eksempler og downloadbar excel-skabelon. Du kan også gå igennem vores andre foreslåede artikler –

1. VBA Workbook
2. VBA Name Worksheet
3. VBA Unprotect Sheet
4. VBA Protect Sheet