VBA Přejmenování listu

Přejmenování listu v Excelu VBA

Přejmenování libovolného listu v Excelu je stejně snadné jako přejmenování libovolného souboru. To lze provést poklepáním na libovolný název listu nebo výběrem možnosti Přejmenovat z pravého seznamu nabídky. Ale co když chceme přejmenovat list excelu pomocí makra VBA. Pomocí makra VBA můžeme přejmenovat jeden nebo více pracovních listů aplikace Excel najednou. Můžeme dokonce opravit název libovolného pracovního listu, aby jej nikdo nezměnil. Zde si ukážeme několik způsobů, jak přejmenovat libovolný pracovní list.

Jak přejmenovat list v Excelu pomocí makra VBA?

Níže jsou uvedeny různé příklady přejmenování listu v Excelu pomocí kódu VBA.

Šablona VBA Přejmenování listu – Příklad č. 1

Přestože je velmi snadné přejmenovat jakýkoli list Excelu pomocí VBA. I k tomu existuje mnoho způsobů. Zde je název našeho listu, který budeme přejmenovávat, standardně nastaven jako „List1“, jak je uvedeno níže.

Krok 1: Pro tento příklad bychom potřebovali modul, ve kterém budeme provádět kódování. Přejděte do nabídky Insert a vyberte Modul, jak je znázorněno níže.

Krok 2: Nyní v nově otevřeném Modulu napište podkategorii v názvu VBA Přejmenování listu nebo v libovolném jiném názvu.

Kód:

Sub VBA_RenameSheet()End Sub

Krok 3: Nyní definujte proměnnou v libovolném názvu a přiřaďte jí datové typy Worksheet, jak je znázorněno níže. Zde jsme ji pojmenovali jako „Sheet“.

Kód:

Sub VBA_RenameSheet()Dim Sheet As WorksheetEnd Sub

Krok 4: Pomocí příkazu Set vyberte proměnnou Sheet, jak je uvedeno níže.

Kód:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet =End Sub

Krok 5: A pomocí příkazu Worksheet vyberte list, který potřebujeme přejmenovat.

Kód:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet = Worksheets("Sheet1")End Sub

Krok 6: Nyní použijte funkci Sheet spolu s Name a přiřaďte název, který chceme přejmenovat. Zde zvolíme „Přejmenovaný list“.

Kód:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet = Worksheets("Sheet1")Sheet.Name = "Renamed Sheet"End Sub

Krok 7: Nyní konečně zkompilujte kód a spusťte jej, pokud bude nalezena chyba. Pro spuštění kódu klikněte na tlačítko Přehrát, které se nachází pod panelem nabídek, jak je znázorněno níže. Uvidíme, že se náš list přejmenuje z listu1 na přejmenovaný list, jak je znázorněno níže.

Přejmenování listu pomocí VBA – příklad č. 2

V tomto příkladu uvidíme mnohem jednodušší způsob přejmenování libovolného pracovního listu pomocí makra VBA. K tomu bychom potřebovali, další čerstvý modul.

Krok 1: Otevřete modul a napište podkategorii VBA Přejmenovat, jak je uvedeno níže.

Kód:

Sub VBA_RenameSheet1()End Sub

Krok 2: Vyberte list, který chceme přejmenovat pomocí funkce Select. Zde je náš list List1.

Kód:

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectEnd Sub

Krok 3: V dalším řádku uvažujte funkci Název s vybraným listem, jak je uvedeno níže.

Kód:

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectSheets("Sheet1").Name =End Sub

Krok 4: Vyberte název, který chceme po přejmenování listu dát. Zvolíme stejný název jako v příkladu-1 jako „Přejmenovaný list“

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectSheets("Sheet1").Name = "Renamed Sheet"End Sub

Krok 5: Opět zkompilujeme kód a spustíme jej. Uvidíme, že list1 se přejmenuje novým názvem jako „Přejmenovaný list“.

Přejmenování listu pomocí VBA – příklad č. 3

Existuje opět ještě jeden podobný způsob přejmenování excelového listu pomocí VBA. Vypadalo by to trochu podobně jako postup, který jsme viděli v příkladu-2, ale je to mnohem jednodušší na zapamatování a zpracování.

Krok 1: Otevřete modul a napište novou podkategorii VBA Přejmenovat list, jak je uvedeno níže.

Kód:

Sub VBA_RenameSheet2()End Sub

Krok 2: Vyberte list, který chceme přejmenovat. Zde můžeme vybrat list vložením pořadí List do závorek, jak je uvedeno níže. Nemusíme tedy psát název listu, který chceme přejmenovat. Fungovala by pouze sekvence tohoto listu.

Kód:

Sub VBA_RenameSheet2()Sheets(1).SelectEnd Sub

Krok 3: V dalším řádku uvažujte funkci Název s vybranou sekvencí listu, jak je uvedeno níže.

Kód:

Sub VBA_RenameSheet2()Sheets(1).SelectSheets(1).Name =End Sub

Krok 4: Nyní zadejte název, který chceme vybranému listu List1 dát. Název, který jsme viděli ve výše uvedených příkladech, považujme za „přejmenovaný list“.

Kód:

Sub VBA_RenameSheet2()Sheets(1).SelectSheets(1).Name = "renamed Sheet"End Sub

Krok 5: Nyní kód opět zkompilujeme a spustíme. Všimneme si, že list1 je nyní opět přejmenován na „přejmenovaný list“, jak je znázorněno níže.

Přejmenování listu VBA – příklad č. 4

V tomto příkladu uvidíme, jak přejmenovat libovolný pracovní list pomocí jediného řádku kódu.

Krok 1: Otevřete modul a napište podkategorii VBA Přejmenování listu, jak je znázorněno níže.

Kód:

Sub VBA_RenameSheet3()End Sub

Krok 2: Vybereme posloupnost listů, které chceme přejmenovat, spolu s funkcí Název a zadáme název, podle kterého chceme daný list přejmenovat, jak je znázorněno níže.

Sub VBA_RenameSheet3()Sheets(1).Name = "rename Sheet"End Sub

Krok 3: Nyní stačí spustit kód, aby se realizoval. Opět si všimneme, že list1 je nyní přejmenován jako „přejmenovat list“

Pros Excel VBA Přejmenovat list

• Pokud máme přejmenovat více listů, pak je použití kódu VBA mnohem lepší než ruční postup.
• Můžeme změnit název libovolného listu Excelu pomocí jednořádkového kódu VBA, který jsme viděli v příkladu-4.
• Přestože ruční změna názvu libovolného listu je také jednoduchý způsob. Ale přejmenování listu pomocí VBA je docela užitečné, když vytváříme nový list a chceme ho oddělit od ostatních listů jen proto, abychom ho mohli zařadit.

Nezapomeňte

• Pro lepší přehled o probíhajících změnách mějte okno VBA rovnoběžně s listem excelu, aby byla změna názvu listu dobře viditelná.
• Uložení souboru po dokončení práce ve formátu umožňujícím makra nám umožní uchovat kód i pro další práci.
• Automatizace procesu změny názvu listu nám pomůže zkrátit čas při kategorizaci listů a dat.

Doporučené články

Toto je průvodce programem VBA Přejmenování listu. Probíráme zde, jak přejmenovat list v Excelu pomocí kódu VBA spolu s několika praktickými příklady a šablonou Excelu ke stažení. Můžete si také projít naše další navrhované články –

1. VBA Sešit
2. VBA Pojmenovat pracovní list
3. VBA Zrušit ochranu listu
4. VBA Chránit list

.