Pracovní list s názvem Excel VBA
Ve VBA nepotřebuje pojmenování listu žádné speciální dovednosti. Musíme pouze určit, který název listu měníme, zadáním názvu stávajícího listu. Například pokud chceme změnit list s názvem „Prodej“, musíme list volat pomocí jeho názvu pomocí objektu Worksheet.
Pracovní listy („Prodej“)
Po uvedení názvu listu musíme změnit vlastnost listu pomocí vlastnosti „Název“.
Pracovní listy („Prodej“). Název
Nyní musíme nastavit vlastnost Name na název podle našeho přání. Předpokládejme, že chcete změnit „Prodej“ na „Prodejní list“, potom za vlastnost „NÁZEV“ vložte znaménko rovnosti a zadejte nový název do uvozovek.
Pracovní listy („Prodej“). Název = „Prodejní list“
Takto můžeme název listu změnit pomocí vlastnosti Název.
Příklady pojmenování pracovního listu pomocí VBA
Příklad č. 1
Změňte nebo přejmenujte list pomocí proměnných.
Podívejte se například na níže uvedený ukázkový kód.
Kód:
Sub Name_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sales") Ws.Name = "Sales Sheet" End Sub
Ve výše uvedeném prvním jsem deklaroval proměnnou jako list.
Dim Ws jako list
Dále jsem pomocí objektu pracovních listů nastavil odkaz na proměnnou jako „Prodej“.
Set Ws = Worksheets ("Sales")
Proměnná „Ws“ nyní obsahuje odkaz na list „Prodej“.
Nyní jsem pomocí proměnné „Ws“ přejmenoval list na „Prodejní list“.
Tento kód změní název „Prodej“ na „Prodejní list“.
Důležitá poznámka k zapamatování
Právě jsme viděli, jak změnit název listu aplikace Excel z jednoho názvu na jiný. Pokud však kód znovu spustíme, zobrazí se chyba Dolní index mimo rozsah.
Jedním z klíčů k získání odborníka na makra VBA je zpracování chyb. Před zpracováním chyb musíme vědět, proč se nám tato chyba zobrazuje.
Důvod, proč se nám tato chyba zobrazuje, protože v samotném předchozím kroku jsme již změnili list s názvem „Prodej“ na „Prodejní list“.
Nemáme žádný list s názvem „Prodej“, dostaneme tento index mimo chybu rozsahu.
Příklad č. 2
Získejte všechny názvy listů v jednom listu .
Předpokládejme, že máte v sešitu spoustu pracovních listů a chcete získat název všech těchto pracovních listů v kterémkoli z jednotlivých pracovních listů. To lze provést pomocí kódování VBA.
Podívejte se například na obrázek níže.
Máme tady tolik listů.
Ze všech těchto listů potřebujeme název každého listu v listu s názvem „Indexový list“. Napsal jsem pro vás níže uvedený kód.
Kód:
Sub All_Sheet_Names () Dim Ws As Worksheet Dim LR tak dlouho pro každou Ws v ActiveWorkbook.Worksheets LR = Worksheets ("Index Sheet"). Cells (Rows.Count, 1) .End (xlUp) .Row + 1 'This LR varaible najít poslední použitý řádek Buňky (LR, 1). Vyberte ActiveCell.Value = Ws.Name Další Ws End Sub
Nyní zkopírujte tento kód do svého modulu.
Nyní spusťte kód pojmenováním libovolného listu jako „Rejstřík“. Tento kód uvede všechny názvy listů v rejstříku.
Takto můžeme pomocí vlastnosti „JMÉNO“ listu ve VBA hrát s názvem listů. Můžeme přejmenovat, extrahovat a můžeme vybrat konkrétní list a dělat mnoho dalších věcí, které lze provést pomocí vlastnosti „Název“.
Věci k zapamatování
- NAME ve VBA je vlastnost.
- Pomocí tohoto názvu můžeme přejmenovat list a také můžeme extrahovat názvy listů.
- Můžeme změnit libovolný název listu v zadaném sešitu, pokud odkazujete na jiné sešity než na sešit napsaný v kódu.
- Pokud se název listu neshoduje, dostaneme dolní index mimo rozsah.
