Omdøbning af ark i Excel udføres fra proceslinjen nedenfor regnearkene er til stede ved at dobbeltklikke på dem, men i VBA bruger vi Ark eller egenskabsmetode til at omdøbe arket, syntaksen for at omdøbe et ark i VBA er som følger Ark (“ Navn på gammelt ark ”). Navn =“ Navn på nyt ark ”.
Omdøb ark i Excel VBA
Vi har alle gjort denne opgave med at omdøbe regnearket efter vores identitet eller efter vores bekvemmelighed, er det ikke? Omdøbning er ikke raketvidenskab at mestre, men hvis du er VBA-koderen, skal du vide denne opgave at omdøbe regnearket. Da vi arbejder med regneark ved hjælp af deres navne, er det vigtigt at kende vigtigheden af regnearknavne i VBA-kodning. I denne artikel viser vi dig, hvordan du omdøber arket ved hjælp af Excel VBA-kodning.
Sådan omdøber du ark i VBA?
Ændring af regnearkets navn behøver ingen særlige færdigheder. Vi skal bare henvise til hvilket arknavn vi ændrer ved at indtaste det eksisterende arknavn.
For eksempel, hvis vi vil omdøbe arket med navnet "Ark 1", er vi nødt til at kalde arket med dets navn ved hjælp af regnearkobjektet.
Arbejdsark (“Ark1”)
Efter at have nævnt arknavnet, skal vi vælge egenskaben “Navn” for at omdøbe regnearknavnet.
Arbejdsark (“Ark1”). Navn
Nu er vi nødt til at indstille egenskaben Navn til navnet i henhold til vores ønske.
Arbejdsark (“Ark1”). Navn = “Nyt navn”
På denne måde kan vi omdøbe regnearknavnet i VBA ved hjælp af egenskaben Navn.
I de følgende afsnit af artiklen viser vi dig flere og flere eksempler på ændring eller omdøbning af regnearket.
Eksempler på omdøb regneark i Excel VBA
Nedenfor er eksemplerne på VBA Rename Sheet.
Eksempel # 1 - Skift eller omdøb ark ved hjælp af VBA-variabler.
Se f.eks. Nedenstående eksempelkode.
Kode:
Sub Rename_Example1 () Dim Ws Som Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub
I ovenstående kode først har jeg erklæret variablen som regneark.
Dæmp Ws som regneark
Dernæst har jeg indstillet referencen til variablen som "Sheet1" ved hjælp af regnearkobjekt.
Sæt Ws = Arbejdsark ("Ark1")
Nu indeholder variablen “Ws” referencen for regnearket “Sheet1”.
Nu ved hjælp af "Ws" -variablen har jeg omdøbt regnearket til "Nyt ark."
Denne kode ændrer navnet "Ark1" til "Nyt ark."
Hvis jeg kører koden manuelt eller gennem genvejstasten F5, får vi igen en Subscript Out of Range-fejl.
Årsagen til, at vi får denne fejl, fordi vi i det foregående trin allerede har ændret regnearket med navnet "Ark1" til "Nyt ark." Da der ikke længere er et regnearksnavn, "Sheet1" ikke er tilgængeligt, kaster VBA denne fejl.
Eksempel 2 - Få alle regnearknavne i et enkelt ark.
Vi kan få alle regnearknavne på projektmappen i et enkelt ark. Nedenstående kode udtrækker alle regnearknavne.
Kode:
Sub Renmae_Example2 () Dim Ws som regneark Dim LR så længe for hvert Ws i ActiveWorkbook.Worksheets LR = Worksheets ("Main Sheet"). Celler (Rækker.Tælling, 1) .End (xlUp) .Row + 1 celler (LR, 1) .Vælg ActiveCell.Value = Ws.Name Næste Ws End Sub
Denne kode udtrækker alle tilgængelige regnearknavne til arket med navnet "Hovedark".
Eksempel # 3 - Indstil det permanente navn til Excel-regnearket ved hjælp af VBA
Da vi arbejder med arknavne i kodning, er det vigtigt at indstille permanente navne til dem. Hvordan indstiller vi permanente navne til dem?
Se f.eks. Nedenstående kode.
Kode:
Sub Rename_Example3 () regneark ("Sheet1"). Vælg End Sub
Ovenstående kode vælger Ark1.
Hvis din projektmappe bruges af mange mennesker, hvis nogen ændrede regnearkets navn, får vi fejlen Subscript Out of Range.
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 kører koden ved hjælp af F5-tasten eller manuelt, vælger den stadig kun arket med navnet "Salg". Da vi havde givet det et permanent navn, vælger det stadig kun det samme ark.
