Att byta namn på ark i Excel görs från aktivitetsfältet nedanför kalkylbladet finns genom att dubbelklicka på dem, men i VBA använder vi kalkylblad eller kalkylarkegenskapsmetod för att byta namn på arket, syntaxen för att byta namn på ett ark i VBA är enligt följande blad (“ Gammalt arknamn ”). Namn =” Nytt bladnamn ”.
Byt namn på arket i Excel VBA
Vi har alla gjort denna uppgift att byta namn på kalkylbladet enligt vår identitet eller enligt vår bekvämlighet, eller hur? Att byta namn är inte raketvetenskap att behärska, men om du är VBA-kodare måste du känna till den här uppgiften att byta namn på kalkylbladet. Eftersom vi arbetar med kalkylblad genom att använda deras namn är det viktigt att känna till vikten av kalkylarknamnen i VBA-kodning. I den här artikeln visar vi dig hur du byter namn på arket med hjälp av Excel VBA-kodning.
Hur byter jag namn på ark i VBA?
Att ändra kalkylbladets namn behöver inga speciella färdigheter. Vi behöver bara referera till vilket bladnamn vi ändrar genom att ange det befintliga bladnamnet.
Till exempel, om vi vill byta namn på arket som heter "Ark 1", måste vi kalla arket med dess namn med hjälp av kalkylarkobjektet.
Kalkylblad (“Sheet1”)
Efter att ha nämnt arkets namn måste vi välja egenskapen "Name" för att byta namn på kalkylbladets namn.
Kalkylblad ("Sheet1"). Namn
Nu måste vi ställa in namnegenskapen till namnet enligt vår önskan.
Kalkylblad ("Sheet1"). Namn = "Nytt namn"
Så här kan vi byta namn på kalkylbladets namn i VBA med hjälp av egenskapen Namn.
I följande avsnitt i artikeln visar vi dig fler och fler exempel på att ändra eller byta namn på kalkylbladet.
Exempel på byta namn på kalkylblad i Excel VBA
Nedan följer exemplen på VBA Rename Sheet.
Exempel nr 1 - Ändra eller byt namn på blad med VBA-variabler.
Titta till exempel på exempelkoden nedan.
Koda:
Sub Rename_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub
I ovanstående kod först har jag förklarat variabeln som kalkylblad.
Dim Ws som arbetsblad
Därefter har jag ställt in referensen till variabeln som "Sheet1" med hjälp av kalkylobjekt.
Ställ in Ws = Kalkylblad ("Sheet1")
Nu innehåller variabeln "Ws" referensen för kalkylbladet "Sheet1".
Nu med variabeln "Ws" har jag bytt namn på kalkylbladet till "Nytt ark."
Den här koden ändrar namnet "Sheet1" till "New Sheet."
Om jag kör koden manuellt eller via genvägsknappen F5, får vi igen ett Subscript Out of Range-fel.
Anledningen till att vi får detta fel eftersom vi redan i föregående steg har ändrat kalkylbladet "Sheet1" till "New Sheet." Eftersom det inte längre finns ett kalkylarknamn, "Sheet1" är inte tillgängligt, kastar VBA detta fel.
Exempel # 2 - Hämta alla kalkylbladets namn i ett enda ark.
Vi kan få alla arbetsboksnamnen på arbetsboken i ett enda ark. Koden nedan extraherar alla kalkylbladets namn.
Koda:
Sub Renmae_Example2 () Dim Ws som arbetsblad Dim LR så länge för varje Ws i ActiveWorkbook.Worksheets LR = Worksheets ("Main Sheet"). Cells (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (LR, 1). Välj ActiveCell.Value = Ws.Name Nästa Ws End Sub
Den här koden extraherar alla tillgängliga kalkylarknamn till arket med namnet "Huvudblad".
Exempel # 3 - Ange permanent namn till Excel-kalkylbladet med VBA
Eftersom vi arbetar med arknamn vid kodning är det viktigt att ställa in permanenta namn på dem. Hur ställer vi in permanenta namn på dem?
Titta till exempel på koden nedan.
Koda:
Sub Rename_Example3 () Arbetsblad ("Sheet1"). Välj End Sub
Ovanstående kod väljer Sheet1.
Om din arbetsbok används av många människor, om någon ändrade kalkylbladets namn, får vi fel i prenumerationen utanför området.
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.”
Om jag kör koden med hjälp av F5-tangenten eller manuellt, kommer den ändå bara att välja arket med namnet ”Försäljning”. Eftersom vi hade gett det ett permanent namn kommer det fortfarande att välja samma ark bara.
