List přejmenování VBA | Jak přejmenovat pracovní list aplikace Excel pomocí kódu VBA?

Přejmenování listů v aplikaci Excel se provádí z hlavního panelu pod listy, které jsou k dispozici poklepáním na ně, ale ve VBA používáme k přejmenování listu metodu vlastností Listy nebo List, syntaxe k přejmenování listu ve VBA je následující Listy („ Název starého listu “). Název =„ Název nového listu “.

Přejmenujte list v aplikaci Excel VBA

Všichni jsme tento úkol přejmenování listu provedli podle naší identity nebo podle našeho pohodlí, že? Přejmenování není raketová věda, ale pokud jste kodér VBA, musíte znát tento úkol přejmenování listu. Protože pracujeme s listy pomocí jejich jmen, je důležité znát důležitost názvů listů v kódování VBA. V tomto článku vám ukážeme, jak přejmenovat list pomocí kódování Excel VBA.

Jak přejmenovat list ve VBA?

Změna názvu listu nevyžaduje žá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.

Pokud například chceme přejmenovat list s názvem „List 1“, musíme list pomocí názvu objektu volat pomocí jeho názvu.

Pracovní listy („List1“)

Po uvedení názvu listu musíme vybrat vlastnost „Název“ a přejmenovat název listu.

Pracovní listy („List1“). Název

Nyní musíme nastavit vlastnost Name na název podle našeho přání.

Pracovní listy („List1“). Název = „Nový název“

Takto můžeme přejmenovat název listu ve VBA pomocí vlastnosti Name.

V následujících částech článku vám ukážeme další a další příklady změny nebo přejmenování listu.

Příklady přejmenování pracovních listů v aplikaci Excel VBA

Níže jsou uvedeny příklady listu přejmenování VBA.

Tuto šablonu listu přejmenování VBA si můžete stáhnout zde - Šablona listu přejmenování VBA

Příklad č. 1 - Změna nebo přejmenování listu pomocí proměnných VBA.

Příklad najdete v níže uvedeném ukázkovém kódu.

Kód:

 Sub Rename_Example1 () Dim Ws as Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub 

Ve výše uvedeném kódu nejprve jsem deklaroval proměnnou jako list.

 Dim Ws jako list

Dále jsem pomocí objektu pracovních listů nastavil odkaz na proměnnou jako „List1“.

 Set Ws = Worksheets ("Sheet1")

Proměnná „Ws“ nyní obsahuje odkaz na list „List1“.

Nyní jsem pomocí proměnné „Ws“ přejmenoval list na „Nový list“.

Tento kód změní název „List1“ na „Nový list“.

Pokud spustím kód ručně nebo pomocí klávesové zkratky F5, znovu se zobrazí chyba Dolního indexu mimo rozsah.

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 „List1“ na „Nový list“. Vzhledem k tomu, že název listu „List1“ již není k dispozici, hodí VBA tuto chybu.

Příklad č. 2 - Získejte všechny názvy listů v jediném listu.

Můžeme získat všechny názvy listů sešitu v jednom listu. Níže uvedený kód rozbalí všechny názvy listů.

Kód:

 Sub Renmae_Example2 () Dim Ws As Worksheet Dim LR tak dlouho pro 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 Next Ws End Sub 

Tento kód extrahuje všechny dostupné názvy listů do listu s názvem „Hlavní list“.

Příklad č. 3 - Nastavte stálý název na list aplikace Excel pomocí VBA

Protože při kódování pracujeme s názvy listů, je důležité jim nastavit trvalé názvy. Jak jim nastavíme trvalá jména?

Například se podívejte na níže uvedený kód.

Kód:

 Sub Rename_Example3 () Worksheets ("Sheet1"). Vyberte End Sub 

Výše uvedený kód vybere List1.

Pokud váš sešit používá mnoho lidí, pokud někdo změnil název listu, zobrazí se chyba Dolní index mimo rozsah.

Abychom tomu zabránili, můžeme mu nastavit trvalé jméno. Chcete-li nastavit trvalé jméno, postupujte podle následujících kroků.

Krok 1: Vyberte list, který potřebujeme k nastavení trvalého názvu v editoru jazyka.

Krok 2: Stisknutím klávesy F4 zobrazte okno Vlastnosti.

Krok 3: V části Název změňte název na „Nový název“.

Jak vidíte, jeden název se zobrazuje jako „List1“ a v závorce, můžeme vidět nový název jako „Nový list“.

Nyní v kódování použijeme nový název namísto skutečného viditelného jména.

Kód:

 Sub Rename_Example3 () NewSheet. Vyberte End Sub 

Nyní se vraťte do okna listu, stále můžeme vidět název listu pouze jako „List1“.

Nyní změním název listu na „Prodej“.

Pokud spustím kód pomocí klávesy F5 nebo ručně, bude stále vybírat pouze list s názvem „Prodej“. Vzhledem k tomu, že jsme mu dali trvalé jméno, bude stále vybírat pouze stejný list.


$config[zx-auto] not found$config[zx-overlay] not found