VBA Rename Sheet

Rename Sheet in Excel VBA

Renaming any excel worksheet is as easy as renaming any file. Detta kan göras genom att dubbelklicka på ett arbetsbladsnamn eller genom att välja Byt namn i menylistan till höger. Men vad händer om vi vill byta namn på ett Excel-arbetsblad med hjälp av ett VBA-makro. Med hjälp av VBA-makro kan vi byta namn på ett eller flera Excel-arbetsblad på en gång. Vi kan även fixa namnet på ett arbetsblad för att undvika att det ändras av någon. Här kommer vi att se, flera sätt att byta namn på ett arbetsblad.

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

Nedan finns olika exempel på att byta namn på ark i Excel med hjälp av VBA-kod.

VBA Rename Sheet – Example #1

Tyvärr är det väldigt enkelt att byta namn på ett Excel-arbetsblad med hjälp av VBA. Det finns många sätt att göra det också. Här är namnet på vårt arbetsblad som standard inställt som ”Sheet1” som visas nedan, som vi kommer att byta namn på.

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

Steg 2: I den nyöppnade modulen skriver du underkategorin VBA Rename Sheet eller något annat namn.

Kod:

Sub VBA_RenameSheet()End Sub

Steg 3: Definiera nu en variabel med ett valfritt namn och tilldela den med Worksheet datatypes som visas nedan. Här har vi namngett den som ”Sheet”.

Kod:

Sub VBA_RenameSheet()Dim Sheet As WorksheetEnd Sub

Steg 4: Med hjälp av kommandot Set (Ställ in) väljer du Sheet-variabel som visas nedan.

Kod:

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

Steg 5: Och välj det arbetsblad som vi ska byta namn på med hjälp av kommandot Worksheet.

Kod:

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

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

Kod:

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

Steg 7: Kompilera nu till sist koden och kör den om ett fel hittas. För att köra koden klickar du på Play-knappen som ligger under menyraden enligt bilden nedan. Vi kommer att se att vårt ark kommer att byta namn från Sheet1 till Renamed Sheet som visas nedan.

VBA Rename Sheet – Example #2

I det här exemplet kommer vi att se ett mycket enklare sätt att byta namn på ett arbetsblad med hjälp av ett VBA-makro. För detta skulle vi behöva, en annan ny modul.

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

Kod:

Sub VBA_RenameSheet1()End Sub

Steg 2: Markera bladet som vi vill byta namn på med Select-funktionen. Här är vårt ark Sheet1.

Kod:

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

Steg 3: I nästa rad, överväg funktionen Name med det valda arket som visas nedan.

Kod:

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

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

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

Steg 5: Kompilera koden igen och kör den. Vi kommer att se att sheet1 kommer att bli omdöpt med ett nytt namn som ”Renamed Sheet”.

VBA Rename Sheet – Example #3

Det finns återigen ett liknande sätt att döpa om ett excel-arbetsblad med hjälp av VBA. Detta skulle se lite likadant 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 VBA Rename Sheet som visas nedan.

Kod:

Sub VBA_RenameSheet2()End Sub

Steg 2: Markera det ark som vi vill byta namn på. Här kan vi välja ark genom att sätta sekvensen Sheet inom parentes som visas nedan. Vi behöver alltså inte skriva namnet på det ark som ska bytas ut. Endast sekvensen för det arket skulle fungera.

Kod:

Sub VBA_RenameSheet2()Sheets(1).SelectEnd Sub

Steg 3: I nästa rad, överväg funktionen Name med den valda sekvensen för arket som visas nedan.

Kod:

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

Steg 4: Skriv nu in det namn som vi vill ge till det valda Sheet1. Låt oss betrakta det namn som vi har sett i exemplen ovan som ”Renamed Sheet”.

Kod:

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

Steg 5: Kompilera nu koden igen och kör. Vi kommer att märka att Sheet1 nu återigen har bytt namn till ”Renamed Sheet” som visas nedan.

VBA Rename Sheet – Example #4

I det här exemplet kommer vi att se hur man kan byta namn på ett arbetsblad med bara en rad kod.

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

Kod:

Sub VBA_RenameSheet3()End Sub

Steg 2: Välj den arksekvens som vi vill döpa om tillsammans med funktionen Name och ge ett namn som vi vill döpa om det arket med som visas nedan.

Kod:

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

Steg 3: Nu kör du helt enkelt koden för att genomföra den. Vi kommer återigen att observera att Sheet1 nu har bytt namn till ”rename Sheet”

Fördelar med Excel VBA Rename Sheet

• Om vi har flera ark som ska bytas om är det mycket bättre att använda VBA-kod än den manuella processen.
• Vi kan ändra namnet på ett Excel-arbetsblad med en rad VBA-kod som vi har sett i exempel-4.
• Men att manuellt ändra namnet på ett ark är också ett enkelt sätt att göra det. Men VBA Rename Sheet är ganska användbart när vi skapar ett nytt ark och vi vill separera det med andra ark bara för att kategorisera det.

Things to Remember

• För att få en bättre bild av de förändringar som sker, håll VBA-fönstret parallellt med Excel-arket så att ändringen av arkets namn kommer att vara synlig tydligt.
• Spara filen efter att arbetet är gjort i Macro enable-formatet gör det möjligt för oss att bevara koden för framtida arbete också.
• Automatisering av processen för att ändra arknamn kommer att hjälpa oss att minska tiden för att kategorisera arken och data.

Recommended Articles

Detta är en guide till VBA Rename Sheet. Här diskuterar vi hur man byter namn på ark 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. VBA Workbook
2. VBA Name Worksheet
3. VBA Unprotect Sheet
4. VBA Protect Sheet