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 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 delene 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.
Eksempel nr. 1 - Endre eller gi nytt navn til arket ved hjelp av VBA-variabler.
Se for eksempel på 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, og jeg har omdøpt regnearket til "Nytt ark."
Denne koden vil endre navnet "Ark1" til "Nytt ark."
Hvis jeg kjører koden manuelt eller gjennom hurtigtasten F5, vil vi igjen få en 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 et regnearknavn, "Sheet1" ikke 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 vil trekke 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?
Se for eksempel på koden nedenfor.
Kode:
Sub Rename_Example3 () regneark ("Sheet1"). Velg End Sub
Ovennevnte kode vil velge Ark1.
Hvis arbeidsboken din brukes av mange mennesker, hvis noen endret navnet på regnearket, får vi feilmeldingen Abonnement utenfor rekkevidde.
To avoid this, we can set the permanent name to it. To set the permanent name to follow the below steps.
Step 1: Select the sheet we need to set the permanent name to in Visual Basic Editor.
Step 2: Press the F4 key to see the Properties window.
Step 3: Under Name, Property Change the name to “New Name.”
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.”
Hvis jeg kjører koden ved hjelp av F5-tasten eller manuelt, vil den fremdeles bare velge arket som heter "Salg". Siden vi hadde gitt det et permanent navn, vil det fortsatt bare velge det samme arket.
