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 na zvládnutie, 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 hárok 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.
Prí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ého indexu 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 už neexistuje názov pracovného hárka, „List1“ nie je k dispozícii, VBA vyhodí 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 As Worksheet Dim LR As Long For Each Ws In ActiveWorkbook.Worksheets LR = Worksheets("Main Sheet").Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(LR, 1).Select ActiveCell.Value = Ws.Name Next Ws End Sub
This code will extract all the available worksheet names to the sheet named “Main Sheet.”
Example #3 - Set Permanent Name to the Excel Worksheet Using VBA
Since we work with sheet names in coding, it is important to set permanent names to them. How do we set permanent names for them?
For example, look at the below code.
Code:
Sub Rename_Example3() Worksheets("Sheet1").Select End Sub
The above code will select the Sheet1.
If your workbook is used by many people, if someone changed the name of the worksheet, then we will get the Subscript Out of Range error.
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.”
Ak spustím kód pomocou klávesu F5 alebo manuálne, bude stále vyberať iba hárok s názvom „Predaj“. Pretože sme mu dali trvalé meno, bude stále vyberať iba ten istý hárok.
