Excel VBA Navn Arbejdsark
I VBA behøver det ikke at kræve nogen specielle færdigheder at navngive et regneark. Vi skal bare henvise til hvilket arknavn vi ændrer ved at indtaste det eksisterende arknavn. For eksempel, hvis vi vil ændre arket med navnet "Salg", skal vi kalde arket med dets navn ved hjælp af regnearkobjekt.
Arbejdsark ("Salg")
Efter at have nævnt arknavnet, skal vi vælge egenskaben “Navn” for at ændre regnearknavnet.
Arbejdsark ("Salg"). Navn
Nu er vi nødt til at indstille egenskaben Navn til navnet i henhold til vores ønske. Antag, at du vil ændre "Salg" til "Salgsark", sæt derefter ligetegn efter "NAME" -egenskaben og indtast det nye navn med dobbelt anførselstegn.
Arbejdsark ("Salg"). Navn = "Salgsark"
På denne måde kan vi ændre regnearkets navn ved hjælp af egenskaben Navn.
Eksempler på navnearkeark ved hjælp af VBA
Eksempel nr. 1
Skift eller omdøb arket ved hjælp af variabler.
Se f.eks. Nedenstående eksempelkode.
Kode:
Undernavn_eksempel1 () Dim Ws som regnearksæt Ws = regneark ("Salg") Ws.Name = "Salgsark" Afslut sub
I ovenstående først har jeg erklæret variablen som regneark.
Dæmp Ws som regneark
Dernæst har jeg indstillet referencen til variablen som "Salg" ved hjælp af regnearkobjekt.
Indstil Ws = Arbejdsark ("Salg")
Nu indeholder variablen "Ws" referencen til regnearket "Salg".
Nu ved hjælp af variablen "Ws" har jeg omdøbt regnearket til "Salgsark".
Denne kode ændrer navnet "Salg" til "Salgsark".
Vigtig note at huske
Vi har lige set, hvordan man ændrer navnet på Excel-regnearket fra et navn til et andet. Men hvis vi kører koden igen, får vi en Subscript Out of Range-fejl.
En af nøglerne til at få en ekspert i VBA-makroer er at håndtere fejl. Før vi håndterer fejl, skal vi vide, hvorfor vi får denne fejl.
Årsagen til, at vi får denne fejl, fordi vi allerede i det forrige trin har ændret regnearket med navnet "Salg" til "Salgsark".
Vi har ikke noget ark, der hedder "Salg", vi får dette abonnement uden for rækkevidde.
Eksempel 2
Få alle regnearknavne i enkeltark .
Antag, at du har masser af regneark i din projektmappe, og at du vil få navnet på alle disse regneark i et af de enkelte regneark. Dette kan gøres ved hjælp af VBA-kodning.
Se for eksempel på nedenstående billede.
Vi har så mange ark her.
Fra alle disse ark har vi brug for navnet på hvert ark i arket kaldet "Indeksark". Jeg har skrevet nedenstående kode til dig.
Kode:
Sub All_Sheet_Names () Dim Ws som regneark Dim LR så længe for hvert Ws i ActiveWorkbook.Worksheets LR = Worksheets ("Index Sheet"). Celler (Rækker.Tælling, 1) .End (xlUp) .Row + 1 'Denne LR-varible for at finde de sidst anvendte række celler (LR, 1). Vælg ActiveCell.Value = Ws.Name Næste Ws End Sub
Kopier nu denne kode til dit modul.
Kør nu koden ved at navngive et af regnearkene som "Indeksark". Denne kode vil give alle regnearknavne i "Indeksark".
På denne måde kan vi ved hjælp af egenskaben “NAME” i regnearket i VBA lege med navnet på regnearket. Vi kan omdøbe, udtrække, og vi kan vælge det specifikke regneark og gøre mange andre ting, der kan gøres ved hjælp af egenskaben "Navn".
Ting at huske
- NAVN i VBA er ejendom.
- Ved hjælp af dette navn kan vi omdøbe regnearket, og også kan vi udtrække arknavne.
- Vi kan ændre ethvert navn på regnearket i den specificerede projektmappe, hvis du henviser til andre projektmapper end den kodeskrevne projektmappe.
- Hvis regnearkets navn ikke stemmer overens, får vi abonnementet uden for området.
