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 i henhold til vores identitet eller efter vores bekvemmelighed er det ikke? Omdøbning er ikke raketvidenskab at mestre, men hvis du er VBA-koder, 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 regnearkobjekt.
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 Name.
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.
Du kan downloade denne VBA Rename Sheet Template her - VBA Rename Sheet TemplateEksempel # 1 - Skift eller omdøb ark ved hjælp af VBA-variabler.
For et eksempel se nedenstående eksempelkode.
Kode:
Sub Rename_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub 
I ovenstående kode først har jeg erklæret variablen som regneark.
Dim 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 bruger jeg "Ws" -variablen, og jeg har 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 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 "Sheet1" til "New Sheet". Da der ikke længere er navnet på regnearket "Sheet1" er ikke tilgængeligt, kaster VBA denne fejl.
Eksempel 2 - Få alle regnearknavne i et enkelt ark.
Vi kan få alle projektarknavne 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?
For et eksempel se 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 Abonnement uden for rækkevidde.
For at undgå dette kan vi indstille det permanente navn til det. For at indstille det permanente navn, skal du følge nedenstående trin.
Trin 1: Vælg det ark, vi skal indstille det permanente navn til i Visual Basic Editor.
Trin 2: Tryk på F4-tasten for at se vinduet Egenskaber.
Trin 3: Under Navn, Ejendom Skift navnet til "Nyt 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.
