Práce s listy sheet - Microsoft Excel VBA

Úvod

Tento článek slouží jako rychlá pomůcka při programování ve VBA, kdy pracujete s s listy a potřebujete vložit patřičný kód. Je rozdělen do několika oddílů:

• 1. Výběr listu
• 2. Přidání listu
• 3. Přejmenování listu
• 4. Smazat list
• 5. Zjištění počtu listu
• 6. Zjištění jména listu
• 7. Přesouvání listu
• 8. Vypsání seznamu z listů

1. Výběr listu

Příkaz vybere třetí list s názvem List3

Sheets("List3").Select 'nebo Sheets(3).Select Worksheets("List3").Select Worksheets(1).Select

Vybrat několik listů

Sheets(Array("List2", "List3")).Select

Vybrat všechny listy:

ActiveWorkbook.Sheets.Select

Vybrat list - hodnota v proměné (buňce)

NazevListu = "List3" Sheets(NazevListu).Select ' pokud je název v buňce A1 Sheets(Range("A1").value).Select

Vybírat listy podle pozice:

ActiveSheet.Select Worksheets(1).Select Charts(1).Select Sheets(1).Select

Tipy

Další související články

• Worksheets, Sheets, Charts Excel VBA - pojmy

2. Přidání listu

Přidá list s automaticky přidějeným názvem listu. List se přidává před aktivní list.

Sheets.Add

Přidá nový list pod vašim zvoleným jménem. Přidává se před aktivní list.

Sheets.Add.Name = "Můj název"

Přidání listu za poslední list.

Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Můj název"

Poznámka: Pokud již název listu existuje skončí chybou. Nezapomenout tyto stavy ošetřit.

3. Přejmenování listu

Příkaz přejmenuje List4 na NoveJmeno

Sheets("List4").Name = "NoveJmeno"

Aktivní list bude přejmenován na: jine jmeno

ActiveSheet.Name = "jine jmeno"

Podle čísla listu. Listy jdou za sebou, nezáleží na jejich jménech.

Sheets(1).Name = "Nové jméno"

Poznámka: List nebo jeho pozice musí existovat jinak skončí chybou.

4. Smazat list

Smaže vybrané listy.

ActiveWindow.SelectedSheets.Delete

Pokud nechcete zobrazovat dialogové okno informující, že v listech mohou být data o které přijdete stačí zapnout nezobrazovat informační okna. Po provedení výmazu nezapomenout zobrazování zapnout ;)

Application.DisplayAlerts = True

Poznámka: To že poslední list nesmažete je doufám jasné. Excel totiž musí obsahovat minimálně jeden list.

5. Zjištění počtu listu

Tento příkaz zjistí počet listu v sešitu MS Excel. Hodnota se uloží do NoveJmenopocetListu

pocetListu = Sheets.Count

6. Zjištění jména listu

Jaký je název prvního listu?

' Jméno listu se ulozi do promene jmenoListu
jmenoListu = Sheets(1).Name

nebo zjistit jméno aktivního listu

NazevListu = ActiveSheet.Name NazevListu = Application.ActiveWorkbook.ActiveSheet.Name

7. Přesouvání listu

Přesunutí aktivního listu na konec

ActiveSheet.Move after:=Worksheets(Worksheets.Count)

Přesun "List1" za list "List3".

Sheets("List1").Move After:=Sheets("List3")

Přesun "List15" před list "List13".

Sheets("List15").Move Before:=Sheets("List13")

Přesun před první list

ActiveSheet.Move before:=Sheets(1)

8. Vypsaní seznamu z listů

Do sloupce A, se vypiší všechny názvy listu v sešitu:

Private Sub CommandButton1_Click() For i = 1 To Sheets.Count Cells(i, 1) = Sheets(i).Name Next i End Sub

Poznámka: zobrazí skryté i superskryté listy :)

9. Přepnutí do jiného sešitu

Příkaz "aktivuje" jiný sešit MS Excelu pod názvem sesit-1.xls

Windows("sesit-1.xls").Activate

Závěr

Tento text slouží jako pomůcka pro programování ve VBA (Visual Basicu for Application). Neklade si za cíl být vyčerpávající příručkou. Napadají vás další kódy pro práci s listy? Můžete se o ně podělit v komentářích.

Článek byl aktualizován: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.