VBA Rename Sheet | Hvordan endre navn på Excel-arbeidsark ved hjelp av VBA-kode?

Endre navn på ark i Excel gjøres fra oppgavelinjen nedenfor regnearkene er til stede ved å dobbeltklikke på dem, men i VBA bruker vi Ark eller Metode for regnearkegenskap for å gi nytt navn til arket, syntaksen for å gi nytt navn til et ark i VBA er som følger Ark (“ Navn på gammelt ark ”). Navn =“ Navn på nytt ark ”.

Gi nytt navn til arket i Excel VBA

Vi har alle gjort denne oppgaven med å gi nytt navn til regnearket i henhold til vår identitet, eller i henhold til vår bekvemmelighet, er det ikke? Å gi nytt navn er ikke rakettvitenskap å mestre, men hvis du er VBA-koderen, må du vite denne oppgaven med å gi nytt navn til regnearket. Siden vi jobber med regneark ved å bruke navnene deres, er det viktig å vite viktigheten av regnearknavnene i VBA-koding. I denne artikkelen vil vi vise deg hvordan du endrer navnet på arket ved hjelp av Excel VBA-koding.

Hvordan endre navn på ark i VBA?

Endring av navnet på regnearket trenger ingen spesielle ferdigheter. Vi trenger bare å referere til hvilket arknavn vi endrer ved å skrive inn det eksisterende arknavnet.

Hvis vi for eksempel vil gi nytt navn til arket som heter "Ark 1", må vi kalle arket med navnet ved hjelp av regnearkobjektet.

Regneark (“Ark1”)

Etter å ha nevnt arknavnet, må vi velge “Navn” -egenskapen for å gi nytt navn på regnearknavnet.

Arbeidsark (“Ark1”). Navn

Nå må vi sette Name-egenskapen til navnet i henhold til vårt ønske.

Arbeidsark (“Ark1”). Navn = “Nytt navn”

På denne måten kan vi gi nytt navn på regnearknavnet i VBA ved hjelp av Name-egenskapen.

I de følgende avsnittene av artikkelen vil vi vise deg flere og flere eksempler på å endre eller gi nytt navn til regnearket.

Eksempler på Gi nytt navn til regneark i Excel VBA

Nedenfor er eksemplene på VBA Rename Sheet.

Du kan laste ned denne VBA Rename Sheet Template her - VBA Rename Sheet Template

Eksempel # 1 - Endre eller gi nytt navn til arket ved hjelp av VBA-variabler.

For eksempel kan du se eksemplet nedenfor.

Kode:

 Sub Rename_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub 

I koden ovenfor har jeg erklært variabelen som regneark.

 Dim Ws Som regneark

Deretter har jeg satt referansen til variabelen som “Ark1” ved hjelp av regnearkobjektet.

 Sett Ws = regneark ("Sheet1")

Nå inneholder variabelen “Ws” referansen til regnearket “Sheet1”.

Nå bruker jeg "Ws" -variabelen. Jeg har omdøpt regnearket til "Nytt ark".

Denne koden vil endre navnet "Ark1" til "Ny ark".

Hvis jeg kjører koden manuelt eller gjennom hurtigtasten F5, vil vi igjen få Subscript Out of Range-feil.

Årsaken til at vi får denne feilen fordi vi i forrige trinn i seg selv allerede har endret regnearket "Sheet1" til "New Sheet". Siden det ikke lenger er navnet på regnearket “Sheet1” er tilgjengelig, kaster VBA denne feilen.

Eksempel 2 - Få alle regnearknavnene i ett ark.

Vi kan få alle regnearknavnene på arbeidsboken i ett ark. Koden nedenfor vil trekke ut alle regnearknavnene.

Kode:

 Sub Renmae_Example2 () Dim Ws som regneark Dim LR så lenge for hvert Ws i ActiveWorkbook.Worksheets LR = regneark ("Main Sheet"). Cells (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (LR, 1) .Velg ActiveCell.Value = Ws.Name Neste Ws End Sub 

Denne koden trekker ut alle tilgjengelige regnearknavn til arket som heter "Hovedark".

Eksempel 3 - Sett Permanent navn til Excel-regnearket ved hjelp av VBA

Siden vi jobber med arknavn i koding, er det viktig å sette permanente navn på dem. Hvordan setter vi permanente navn på dem?

For et eksempel se koden nedenfor.

Kode:

 Sub Rename_Example3 () regneark ("Sheet1"). Velg End Sub 

Ovennevnte kode velger Sheet1.

Hvis arbeidsboken din brukes av mange mennesker, hvis noen endret navnet på regnearket, får vi feilmeldingen Abonnement utenfor rekkevidde.

For å unngå dette kan vi sette det permanente navnet til det. For å angi det permanente navnet, følg trinnene nedenfor.

Trinn 1: Velg arket vi trenger for å sette det permanente navnet til i Visual Basic Editor.

Trinn 2: Trykk F4-tasten for å se vinduet Egenskaper.

Trinn 3: Under Navn, Eiendom Endre navnet til "Nytt navn".

As you can see one name is showing as “Sheet1” and in a bracket, we can see the new name as “New Sheet”.

Now in coding, we will use the new name instead of an actual visible name.

Code:

 Sub Rename_Example3() NewSheet.Select End Sub 

Now come back to the worksheet window, we can still see the sheet name as “Sheet1” only.

Now I will change the sheet name to “Sales”.

If I run the code using the F5 key or manually then it will still select the sheet named “Sales” only. Since we had given a permanent name to it, still it will select the same sheet only.