Tento tutoriál sa bude zaoberať interakciou s názvami hárkov vo VBA.
Získajte názov hárka
Názvy hárkov sú uložené v priečinku názov majetok spoločnosti Listy alebo Listy predmet. Názov hárka je názov „karty“, ktorý je viditeľný v spodnej časti programu Excel:
Získajte názov ActiveSheet
V okne so správou sa zobrazí názov ActiveSheet:
| 1 | MsgBox ActiveSheet.Name |
Získajte názov hárka podľa indexového čísla
V okne so správou sa zobrazí názov prvého pracovného hárka:
| 1 | Hárky MsgBox (1). Názov |
Zobrazí sa názov posledného pracovného hárka v zošite:
| 1 | Hárky MsgBox (Sheets.Count). Názov |
Získajte názov hárka podľa kódového názvu
V editore VBA je možnosť zmeniť „kódové meno“ listu. Kódové meno nie je pre používateľa Excelu viditeľné a je ho možné vidieť iba v editore VBA:
Vo VBA pri práci s Tabuľkami môžete odkazovať na obvyklý názov karty:
| 1 | Tabuľky („TabName“). Aktivujte |
alebo kódové meno VBA:
| 1 | CodeName. Aktivovať |
Odkazovanie na kódový názov je žiaduce v prípade, že sa názov karty Hárok niekedy zmení. Ak používateľovi Excelu povolíte prístup k zmene názvov hárkov, mali by ste v kóde VBA odkazovať na kódové meno, aby nesúlad názvov kariet na hárku nespôsobil chybu. Kódové názvy listov sú tu podrobnejšie prediskutované.
Ak chcete získať názov hárka pomocou kódového názvu VBA, postupujte takto:
| 1 | MsgBox CodeName.Name |
Premenovať hárok
Tabuľky môžete premenovať úpravou názov majetok spoločnosti Listy alebo Listy predmet.
Premenujte ActiveSheet
| 1 | ActiveSheet.Name = "Nové meno" |
Premenujte hárok podľa názvu
| 1 | Tabuľky ("OldSheet"). Name = "NewName" |
Premenujte hárok podľa indexového čísla hárka
Tu použijeme 1 na premenovanie prvého hárka v zošite.
| 1 | Listy (1) .Name = "NewName" |
Premenujte hárok podľa kódového názvu
Tento kód premenuje list pomocou jeho kódového názvu VBA (diskutované vyššie):
| 1 | Component.Name = "NewName" |
Skontrolujte, či existuje názov hárka
Vytvorili sme funkciu na testovanie, či hárok s konkrétnym názvom už existuje.
| 123456789101112 | „Vyskúšajte, či rozsah existuje na hárku.'Nechajte rozsah prázdny, aby ste otestovali, či list existuje„Vstupy:'WhatSheet - Reťazcový názov hárka (ex „Sheet1“)'WhatRange (Voliteľné, Predvolené = "A1") - Názov reťazca rozsahu (ex "A1")Rozsah funkciíExistuje (aký list ako reťazec, voliteľné podľa veľkosti ako reťazec = "A1") ako boolovskýDim test As RangePri chybe Pokračovať ďalejNastaviť test = ActiveWorkbook.Sheets (WhatSheet) .Range (WhatRange)RangeExists = Err.Number = 0Pri chybe GoTo 0Koncová funkcia |
Funkcia vráti hodnotu TRUE, ak hárok existuje, alebo FALSE, ak neexistuje.
Funkciu používajte takto:
| 123 | Sub Test_SheetExists ()Rozsahy MsgBox ("nastavenie")Koniec pod |
Skopírujte list a premenujte ho
Tento príklad je z nášho článku o kopírovaní hárkov.
Po skopírovaní a vložení hárka sa z novovytvoreného hárka stane ActiveSheet. Ak chcete skopírovaný hárok premenovať, jednoducho použite ActiveSheet.Name:
| 12345678 | Sub CopySheetRename2 ()Tabuľky ("List1"). Kopírovať po: = Listy (Sheets.Count)Pri chybe Pokračovať ďalejActiveSheet.Name = "Posledný list"Pri chybe GoTo 0Koniec pod |
Poznámka: Pridali sme spracovanie chýb, aby sme sa vyhli chybám, ak názov hárka už existuje.
