VBA Rename Sheet - Hur byter man namn på ark i Excel med hjälp av VBA?

• Byt namn på ark i Excel VBA

Byt namn på ark i Excel VBA

Att byta namn på ett Excel-kalkylblad är lika enkelt som att byta namn på alla filer. Detta kan göras genom att dubbelklicka på vilket kalkylblad som helst eller genom att välja Byt namn på högerlistans menylista. Men vad händer om vi vill byta namn på ett Excel-kalkylblad med hjälp av VBA-makro. Med hjälp av VBA Macro kan vi byta namn på ett eller flera Excel-kalkylblad i en enda bild. Vi kan till och med fixa namnet på alla kalkylblad för att undvika att ändras av någon. Här kommer vi att se flera sätt att byta namn på vilket kalkylblad som helst.

Hur byter man namn på ark i Excel med hjälp av VBA?

Nedan följer de olika exemplen att byta namn på blad i Excel med VBA-kod.

Du kan ladda ner den här VBA-namnet på Excel-mall här - VBA-namnet på Excel-mall

VBA Rename Sheet - Exempel # 1

Även om det är mycket lätt att byta namn på alla Excel-kalkylblad med hjälp av VBA. Det finns många sätt att göra det också. Här är namnet på vårt kalkylblad som "Sheet1" som visas nedan, vilket vi kommer att byta namn på.

Steg 1: För det här exemplet skulle vi behöva en modul där vi gör kodningen. Gå till Infoga- menyn och välj Modul som visas nedan.

Steg 2: Skriv nu underkategorin i namnet på VBA Rename Sheet eller i något annat namn i den nyöppnade modulen.

Koda:

 Sub VBA_RenameSheet () End Sub 

Steg 3: Definiera nu en variabel i vilket namn som helst och tilldela den med kalkyldatatyper som visas nedan. Här har vi namngivit det som " Blad ".

Koda:

 Sub VBA_RenameSheet () Dim Sheet As Worksheet End Sub 

Steg 4: Med hjälp av Set- kommandot, välj Sheet variabel som visas nedan.

Koda:

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

Steg 5: Och välj kalkylbladet som vi behöver byta namn på med hjälp av kommandot Kalkylblad .

Koda:

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

Steg 6: Använd nu Sheet- funktionen tillsammans med Name och tilldela namnet som vi vill byta namn på. Här väljer vi ” Renamed Sheet ”.

Koda:

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

Steg 7: Slutligen, sammanställa koden och kör den om det finns ett fel. För att köra koden klickar du på knappen Spela under menyfältet som visas nedan. Vi kommer att se, vårt ark kommer att byta namn från Sheet1 till Rename Sheet som visas nedan.

VBA Rename Sheet - Exempel # 2

I det här exemplet ser vi ett mycket enklare sätt att byta namn på alla kalkylblad med hjälp av VBA-makro. För detta skulle vi behöva ytterligare en ny modul.

Steg 1: Öppna en modul och skriv underkategorin för VBA Rename som visas nedan.

Koda:

 Sub VBA_RenameSheet1 () End Sub 

Steg 2: Välj det ark som vi vill byta namn på med Select- funktionen. Här är vårt blad Sheet1 .

Koda:

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Välj End Sub 

Steg 3: I nästa rad ska du överväga Namn- funktionen med det valda arket som visas nedan.

Koda:

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Välj Sheets ("Sheet1"). Name = End Sub 

Steg 4: Välj namnet som vi vill ge efter att ha bytt namn på arket. Vi väljer samma namn som gjorde i exempel-1 som " Renamed Sheet "

 Sub VBA_RenameSheet1 () Sheets ("Sheet1"). Välj Sheets ("Sheet1"). Namn = "Rename Sheet" End Sub 

Steg 5: Sätt igen koden och kör den. Vi ser att arket 1 kommer att byta namn med ett nytt namn som " Renamed Sheet ".

VBA Rename Sheet - Exempel # 3

Det finns återigen ett liknande sätt att byta namn på ett Excel-kalkylblad med hjälp av VBA. Detta skulle se lite ut som processen som vi har sett i exempel-2, men mycket lättare att komma ihåg och bearbeta.

Steg 1: Öppna en modul och skriv den nya underkategorin i VBA Rename Sheet som visas nedan.

Koda:

 Sub VBA_RenameSheet2 () End Sub 

Steg 2: Välj det ark som vi vill byta namn på. Här kan vi välja arket genom att sätta arkssekvensen inom parentes som visas nedan. Så vi behöver inte skriva namnet på Sheet för att byta namn. Endast sekvensen på det arket fungerar.

Koda:

 Sub VBA_RenameSheet2 () Sheets (1). Välj End Sub 

Steg 3: I nästa rad ska du överväga Namn- funktionen med den valda arksekvensen som visas nedan.

Koda:

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

Steg 4: Ange nu namnet som vi vill ge det valda bladet1. Låt oss betrakta namnet som vi har sett i exemplen ovan som ” bytt namn på blad ”.

Koda:

 Sub VBA_RenameSheet2 () Sheets (1). Select Sheets (1) .Name = "bytt namn på Sheet" End Sub 

Steg 5: Sätt nu koden igen och kör. Vi kommer att märka att Sheet1 nu byts om till "r enamed Sheet " som visas nedan.

VBA Rename Sheet - Exempel # 4

I det här exemplet ser vi hur man byter namn på alla kalkylblad med bara en kodrad.

Steg 1: Öppna en modul och skriv underkategorin i VBA Rename Sheet som visas nedan.

Koda:

 Sub VBA_RenameSheet3 () End Sub 

Steg 2: Välj den arksekvens som vi vill byta namn på tillsammans med Name-funktionen och ge ett namn som vi vill byta namn på det arket som visas nedan.

Koda:

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

Steg 3: Kör nu bara koden för att implementera den. Vi kommer igen att konstatera att Sheet1 nu byts namn till "name name Sheet "

Fördelar med Excel VBA Rename Sheet

• Om vi ​​har flera ark som ska döpas om är det mycket bättre att använda VBA-kod än den manuella processen.
• Vi kan ändra namnet på alla Excel-kalkylblad med en rad VBA-kod som vi har sett i exempel-4.
• Även om manuellt ändrar namnet på ett ark är det också ett enkelt sätt att göra det. Men VBA Rename Sheet är till stor hjälp när vi skapar ett nytt ark och vi vill separera det med andra ark bara för att kategorisera det.

Saker att komma ihåg

• För att få en bättre bild av förändringar som händer, håll VBA-fönstret parallellt med excel-ark så att ändring till arknamn syns tydligt.
• Att spara filen efter att arbetet har utförts i makroaktiveringsformatet gör att vi också kan bevara koden för framtida arbete.
• Att automatisera processen med att ändra arknamnet hjälper oss att minska tiden för att kategorisera ark och data.

Rekommenderade artiklar

Detta är en guide till VBA Rename Sheet. Här diskuterar vi hur man byter namn på blad i Excel med hjälp av VBA-kod tillsammans med några praktiska exempel och nedladdningsbar Excel-mall. Du kan också gå igenom våra andra föreslagna artiklar -

1. Komplett guide till VBA-arbetsbok
2. INDIREKT Funktion i Excel
3. Handledning om VBA Count Funktion
4. Hur använder jag Excel XOR-funktion?