Excel VBA-namn arbetsblad
För att namnge ett kalkylblad i VBA 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 ändra arket med namnet "Försäljning" måste vi ringa arket med dess namn med hjälp av Kalkylarkobjekt.
Kalkylblad ("Försäljning")
Efter att ha nämnt arkets namn måste vi välja egenskapen “Name” för att ändra kalkylbladets namn.
Kalkylblad ("Försäljning"). Namn
Nu måste vi ställa in namnegenskapen till namnet enligt vår önskan. Antag att du vill ändra "Försäljning" till "Försäljningsblad", sätt sedan lika tecken efter "NAME" -egenskapen och ange det nya namnet i dubbla citat.
Kalkylblad ("Försäljning"). Namn = "Försäljningsblad"
Så här kan vi ändra kalkylbladets namn med hjälp av egenskapen Namn.
Exempel på namn på kalkylblad med VBA
Exempel 1
Ändra eller byta namn på arket med hjälp av variabler.
Titta till exempel på exempelkoden nedan.
Koda:
Sub Name_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sales") Ws.Name = "Sales Sheet" End Sub
I det ovanstående har jag förklarat variabeln som kalkylblad.
Dim Ws som arbetsblad
Därefter har jag ställt in referensen till variabeln som "Försäljning" med hjälp av kalkylarkobjekt.
Ställ in Ws = Kalkylblad ("Försäljning")
Nu innehåller variabeln "Ws" referensen för kalkylbladet "Försäljning."
Nu använder jag variabeln "Ws", jag har bytt namn på kalkylbladet till "Försäljningsblad".
Den här koden ändrar namnet "Försäljning" till "Försäljningsblad".
Viktigt att komma ihåg
Vi har precis sett hur man ändrar namnet på Excel-kalkylbladet från ett namn till ett annat. Men om vi kör koden igen får vi ett Subscript Out of Range-fel.
En av nycklarna till att få en expert inom VBA-makron är att hantera fel. Innan vi hanterar fel måste vi veta varför vi får det här felet.
Anledningen till att vi får detta fel eftersom vi redan i föregående steg har ändrat kalkylbladet "Försäljning" till "Försäljningsblad".
Vi har inget ark som heter "Försäljning", vi får detta prenumerationsfel utanför intervallet.
Exempel 2
Få alla kalkylbladets namn i enstaka ark .
Antag att du har gott om kalkylblad i din arbetsbok och att du vill få namnet på alla dessa kalkylblad i något av de enskilda kalkylbladen. Detta kan göras med hjälp av VBA-kodning.
Titta till exempel på bilden nedan.
Vi har så många lakan här.
Av alla dessa ark behöver vi namnet på varje ark i arket som heter "Indexark". Jag har skrivit nedanstående kod åt dig.
Koda:
Sub All_Sheet_Names () Dim Ws som kalkylblad Dim LR så länge för varje Ws i ActiveWorkbook.Worksheets LR = Worksheets ("Index Sheet"). Celler (Rows.Count, 1) .End (xlUp) .Row + 1 'This LR varaible för att hitta de senast använda radcellerna (LR, 1). Välj ActiveCell.Value = Ws.Name Nästa Ws End Sub
Kopiera nu den här koden till din modul.
Kör nu koden genom att namnge något av kalkylbladet som "Indexark". Den här koden ger alla namn på kalkylbladet i "Indexark".
På detta sätt kan vi använda egenskapen “NAME” i kalkylbladet i VBA och spela med namnet på kalkylbladet. Vi kan byta namn på, extrahera och vi kan välja det specifika kalkylbladet och göra många andra saker som kan göras med hjälp av egenskapen "Namn".
Saker att komma ihåg
- NAME i VBA är egendom.
- Med det här namnet kan vi byta namn på kalkylbladet och även extrahera arknamn.
- Vi kan ändra vilket namn som helst på kalkylbladet i den angivna arbetsboken om du hänvisar till andra arbetsböcker än den kodskrivna arbetsboken.
- Om kalkylbladets namn inte matchar kommer vi att få prenumerationen utanför intervallet.
