Premenovanie hárkov v programe Excel sa vykonáva na paneli úloh pod pracovnými hárkami, ktoré sa zobrazujú dvojitým kliknutím na ne. Vo VBA však na premenovanie hárku použijeme metódu Sheets or Worksheet property, syntax na premenovanie hárka vo VBA je nasledovná. Názov starého listu "). Názov =" Názov nového listu ".
Premenujte hárok v programe Excel VBA
Všetci sme vykonali túto úlohu premenovania pracovného hárka podľa našej identity alebo podľa nášho pohodlia, však? Premenovanie nie je raketovou vedou, ale ak ste kódovačom VBA, musíte túto úlohu premenovania hárku poznať. Pretože s pracovnými listami pracujeme pomocou ich mien, je dôležité poznať dôležitosť názvov pracovných hárkov pri kódovaní VBA. V tomto článku si ukážeme, ako premenovať hárok pomocou kódovania Excel VBA.
Ako premenovať hárok vo VBA?
Zmena názvu hárka nevyžaduje žiadne špeciálne zručnosti. Potrebujeme len odkázať, ktorý názov hárka meníme, a to zadaním názvu existujúceho hárka.
Napríklad, ak chceme premenovať hárok s názvom „Hárok 1“, musíme ho zavolať podľa názvu pomocou objektu Worksheet.
Pracovné listy („List1“)
Po spomenutí názvu hárka musíme vybrať vlastnosť „Názov“ a premenovať názov hárka.
Pracovné listy („List1“). Názov
Teraz musíme nastaviť vlastnosť Name na meno podľa nášho želania.
Pracovné listy („List1“). Názov = „Nový názov“
Takto môžeme názov tabuľky premenovať vo VBA pomocou vlastnosti Názov.
V nasledujúcich častiach článku vám ukážeme ďalšie a ďalšie príklady zmeny alebo premenovania pracovného hárka.
Príklady premenovania pracovných hárkov v programe Excel VBA
Nižšie uvádzame príklady listu premenovania VBA.
Túto šablónu listu premenovania VBA si môžete stiahnuť tu - šablónu listu premenovania VBAPríklad č. 1 - Zmena alebo premenovanie hárku pomocou premenných VBA.
Napríklad si pozrite nasledujúci ukážkový kód.
Kód:
Sub Rename_Example1 () Dim Ws as Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub 
Vo vyššie uvedenom kóde som najskôr deklaroval premennú ako pracovný hárok.
Dim Ws As Worksheet
Ďalej som pomocou objektu pracovných hárkov nastavil odkaz na premennú ako „List1“.
Set Ws = Worksheets ("Sheet1")Premenná „Ws“ teraz obsahuje odkaz na pracovný hárok „List1“.
Teraz som pomocou premennej „Ws“ premenoval pracovný hárok na „Nový list“.
Tento kód zmení názov „Hárok1“ na „Nový hárok“.
Ak spustím kód ručne alebo pomocou klávesovej skratky F5, znova sa zobrazí chyba Dolný index mimo rozsah.
Dôvod, prečo sa nám zobrazuje táto chyba, pretože v samotnom predchádzajúcom kroku sme už zmenili pracovný hárok s názvom „List1“ na „Nový list“. Pretože názov pracovného hárka „List1“ už nie je k dispozícii, VBA spôsobí túto chybu.
Príklad č. 2 - Získajte všetky názvy pracovných hárkov do jedného hárka.
Všetky názvy pracovných hárkov zošita môžeme získať v jednom hárku. Nasledujúci kód extrahuje všetky názvy pracovných hárkov.
Kód:
Sub Renmae_Example2 () Dim Ws ako pracovný list Dim LR tak dlho pre každé W v ActiveWorkbook.Worksheets LR = Worksheets ("Main Sheet"). Cells (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (LR, 1). Vyberte ActiveCell.Value = Ws.Name Ďalej Ws End Sub 
Tento kód extrahuje všetky dostupné názvy pracovných hárkov do hárka s názvom „Hlavný list“.
Príklad č. 3 - Nastavte trvalé meno na pracovný hárok programu Excel pomocou jazyka VBA
Pretože pri kódovaní pracujeme s názvami hárkov, je dôležité nastaviť im trvalé názvy. Ako im nastavíme trvalé mená?
Napríklad si pozrite nasledujúci kód.
Kód:
Sub Rename_Example3 () Worksheets ("Sheet1"). Vyberte End Sub 
Vyššie uvedený kód vyberie Hárok1.
Ak váš zošit používa veľa ľudí, ak niekto zmenil názov pracovného hárka, zobrazí sa chyba Dolný index mimo rozsah.
Aby sme tomu zabránili, môžeme mu nastaviť trvalý názov. Ak chcete nastaviť trvalé meno, postupujte podľa nasledujúcich krokov.
Krok 1: Vyberte hárok, na ktorý potrebujeme nastaviť trvalý názov v editore jazyka Visual Basic.
Krok 2: Stlačením klávesu F4 zobrazte okno Vlastnosti.
Krok 3: V časti Názov, Vlastnosť Zmeňte názov na „Nový názov“.
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.
