VBA Rename Sheet - Sådan omdøbes ark i Excel ved hjælp af VBA?

• Omdøb ark i Excel VBA

Omdøb ark i Excel VBA

Omdøbning af ethvert excel-regneark er lige så let som at omdøbe enhver fil. Dette kan gøres ved at dobbeltklikke på et hvilket som helst regnearknavn eller ved at vælge Omdøb fra listen over højre menuer. Men hvad nu hvis vi vil omdøbe et excel-regneark ved hjælp af VBA-makro. Ved hjælp af VBA Macro kan vi omdøbe et eller flere end et Excel-regneark i et enkelt skud. Vi kan endda rette navnet på ethvert regneark for at undgå at blive ændret af nogen. Her vil vi se flere måder at omdøbe ethvert regneark.

Sådan omdøbes ark i Excel ved hjælp af VBA?

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

Du kan downloade denne VBA Rename Sheet Excel Template her - VBA Rename Sheet Excel Template

VBA Rename Sheet - Eksempel nr. 1

Selvom det er meget let at omdøbe ethvert excel-regneark ved hjælp af VBA. Der er mange måder at gøre det på. Her er navnet på vores regneark standardindstillet til "Ark1" som vist nedenfor, som vi vil omdøbe.

Trin 1: Til dette eksempel har vi brug for et modul, hvor vi udfører kodningen. Gå til menuen Indsæt, og vælg Modul som vist nedenfor.

Trin 2: Skriv nu underkategorien i det nyåbnede modul i navnet på VBA Rename Sheet eller i et hvilket som helst andet navn.

Kode:

 Sub VBA_RenameSheet () End Sub 

Trin 3: Definer nu en variabel i ethvert navn, og tildel den med regneark-datatyper som vist nedenfor. Her har vi navngivet det som " Ark ".

Kode:

 Sub VBA_RenameSheet () Dim Sheet As Worksheet End Sub 

Trin 4: Vælg Sheet variabel ved hjælp af kommandoen Set som vist nedenfor.

Kode:

 Sub VBA_RenameSheet () Dim Sheet As Worksheet Set Sheet = End Sub 

Trin 5: Og vælg det regneark, som vi har brug for at omdøbe ved hjælp af kommandoen Arbejdsark .

Kode:

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

Trin 6: Brug nu Sheet- funktion sammen med Navn, og tildel det navn, som vi vil omdøbe. Her vælger vi “ Omdøbt ark ”.

Kode:

 Sub VBA_RenameSheet () Dim Sheet As Worksheet Set Sheet = Worksheets ("Sheet1") Sheet.Name = "Rename Sheet" End Sub 

Trin 7: Nu skal du til sidst kompilere koden og køre den, hvis der er fundet en fejl. For at køre koden skal du klikke på knappen Afspil under menulinjen som vist nedenfor. Vi vil se, vores ark omdøbes fra ark1 til omdøbt ark som vist nedenfor.

VBA Rename Sheet - Eksempel # 2

I dette eksempel ser vi en meget lettere måde at omdøbe ethvert regneark ved hjælp af VBA-makro. Til dette ville vi have brug for endnu et nyt modul.

Trin 1: Åbn et modul, og skriv underkategorien til VBA Rename som vist nedenfor.

Kode:

 Sub VBA_RenameSheet1 () End Sub 

Trin 2: Vælg det ark, som vi vil omdøbe med Select- funktionen. Her er vores ark Sheet1 .

Kode:

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Vælg End Sub 

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

Kode:

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Vælg Sheets ("Sheet1"). Navn = End Sub 

Trin 4: Vælg det navn, som vi vil give efter at omdøbe arket. Vi vælger det samme navn som i eksempel 1 som " Omdøbt ark "

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Vælg Sheets ("Sheet1"). Navn = "Rename Sheet" End Sub 

Trin 5: Kompilér igen koden og kør den. Vi ser, at arket1 vil få omdøbt et nyt navn som " Omdøbt ark ".

VBA Rename Sheet - Eksempel # 3

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

Trin 1: Åbn et modul, og skriv den nye underkategori af VBA Rename Sheet som vist nedenfor.

Kode:

 Sub VBA_RenameSheet2 () End Sub 

Trin 2: Vælg det ark, som vi vil omdøbe. Her kan vi vælge arket ved at sætte rækkefølgen af ​​ark i parentes som vist nedenfor. Så vi behøver ikke at skrive navnet på det ark, der skal omdøbes. Den eneste række af arket fungerer.

Kode:

 Sub VBA_RenameSheet2 () Sheets (1) .Vælg End Sub 

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

Kode:

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

Trin 4: Indtast nu det navn, som vi vil 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). Select Sheets (1) .Name = "omdøbt ark" End Sub 

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

VBA Rename Sheet - Eksempel # 4

I dette eksempel vil vi se, hvordan man omdøber ethvert regneark med kun en kodelinie.

Trin 1: Åbn et modul, og skriv underkategorien til VBA Rename Sheet som vist nedenfor.

Kode:

 Sub VBA_RenameSheet3 () End Sub 

Trin 2: Vælg den arksekvens, som vi vil omdøbe sammen med Navn-funktionen, og angiv et navn, som vi vil omdøbe arket som vist nedenfor.

Kode:

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

Trin 3: Kør blot koden for at implementere den. Vi vil igen bemærke, at Sheet1 nu er omdøbt til “ omdøbe ark ”

Fordele ved 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å ethvert excel-regneark med en linje VBA-kode, som vi har set i eksempel-4.
• Selvom manuelt ændrer navnet på ethvert ark, er det også en enkel måde at gøre det på. Men VBA Rename Sheet er meget nyttigt, når vi opretter et nyt ark, og vi vil adskille det med andre ark bare for at kategorisere det.

Ting at huske

• For at få et bedre overblik over ændringer, der sker, skal du holde VBA-vinduet parallelt med Excel-ark, så skift til arknavn vil være synligt.
• Hvis du gemmer filen, når arbejdet er udført i makroaktiveringsformatet, kan vi også bevare koden til fremtidig arbejde.
• At automatisere processen med at ændre arknavnet vil hjælpe os med at reducere tiden med at kategorisere arkene og dataene.

Anbefalede artikler

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

1. Komplet guide til VBA-arbejdsbog
2. INDIREKT Funktion i Excel
3. Tutorials om VBA Count Count
4. Sådan bruges Excel XOR-funktion?