Jste zde: Úvodní stránka » excel » vba-listy-bunky » prace-s-listy-vba-ms-excel
Práce s listy - MS Excel VBA
Základní makra (VBA) pro práci s Listy v MS Excel.
Úvod
Tento seznam slouží jako rychlá pomůcka při programování ve VBA při práci s listy v programu MS Excel.
1. Výběr listu
Příkaz vybere List3
Sheets("List3").Select
2. Přidání listu
Sheets.Add
3. Přejmenování listu
Příkaz přejmenuje List4 na NoveJmeno
Sheets("List4").Name = "NoveJmeno"
4. Smazat list
Smaže aktuální aktivní list
ActiveWindow.SelectedSheets.Delete
5. Zjištění počtu listu
Tento příkaz zjistí počet listu v sešitu MS Excel
pocetListu = Sheets.Count
6. Zjištění jména listu
' Jméno listu se ulozi do promene jmenoListu
jmenoListu = Sheets(i).Name
nebo:
NazevListu = Application.ActiveWorkbook.ActiveSheet.Name
7. 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). Neklade si za cíl být vyčerpávající příručkou.
Článek byl aktualizován: 23.12.2011 16:08
Další články k tématu
- Jak vybírat (označovat) buňky
- Zapiš údaj do buňky
- Přečti údaj z buňky
- Range objekt - oblast buněk
- Resize Offset - změna oblasti buněk
- Práce s listy - právě čtete
- Řádky a sloupce ukázky kódu
- Události listu
Komentáře
Vorel
Přidáno: 09.05.11 22:32
Děkuji za uvedené kódy, něco jsem i neznal, takže jsem zase chytřejší, ale nemohu se nikde třeba dopátrat, jak ověřovat, zda v otevřeném sešitu je např. List5 a pokud není, jak to elegantně ošetřit (např. If není List5 Then napiš zprávu, že List5 není Else aktivovat List5 End If. Dal jem něco dohromady, ale zastavuje se to na chybě 9. Mám Office 2007 a XP. Díky předem za pomoc.
Pavel Lasák
Přidáno: 10.05.11 17:42
To Vorel:
zjistit počet listu:
pocetListu = Sheets.Count
a přes cyklus for i = 1 to počet listu zjistit
Jméno listu:
NazevListu = Sheets(i).Name
no a poté aplikovat podmínku if ...
Vít Prchal
Přidáno: 16.01.12 16:23
Dobrý den, chtěl jsem se zeptat, jestli je možné nějákým vzorcem, či jiným způsobem nastavit v jednom listu to, aby se do něho automaticky kopírovala data z ostatních listů. Mějme třeba 5 listů a jeden list pojmenovaný Vše a potřebuji, aby se data z listů 1-5 kopírovala do listu Vše. Děkuji za odpověď
Pavel Lasák
Přidáno: 16.01.12 18:30
To Vít Prchal: Potřebujete, aby po zapsáni hodnoty v listu 1 - 5 bylo ihned doplněno do listu vše? Přes událost "změna"
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "Doplnit kód."
End Sub
Přidání nového komentáře
Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu.
Nejnovější článek
Z článku o
excel jsem jako poslední přidal či upravil článek
05.02.2012:
Je atribut souboru pouze pro čtení - VBA Excel.
Nejčtenější článek
Excel
- Základy MS Excel
- menu Soubor
- Formát dat
- Vložit
- Grafy
- Vzorce (Funkce)
- Matice
- Data
- Revize (Nástroje)
- VBA Úvod a seznamy článků
- VBA Teorie základy
- VBA Listy a buňky
- VBA Práce se soubory
- VBA Formuláře (UserForm)
- VBA Grafy
- VBA Application
- VBA Triky
- VBA praktické příklady kódu
- Praktické příklady
- Finanční poradce
- Šablony - Templates
- Testy
- Ostatní
Novinky
24.10.2011:
Formátování styly - MS Word 2010
Excel
05.02.2012:
Je atribut souboru pouze pro čtení - VBA Excel
Access
15.11.2010:
Automatický formulář - Access 2010
Power Point
12.06.2011:
Karta Vložení - PowerPoint 2010
Outlook - 25.02.2010:
Menu Soubor - Outlook 2010
Project
19.01.2012:
Time management - úvod
OneNote
17.10.2010:
OneNote 2010 – popis obrazovky
Poděkování
Stránky o MS Office produktu společnosti Micosoft. Neslouží jako technická podpora.
| XHTML 1.1 | CSS | Email na autora: lasak@centrum.cz | Copyright: Pavel a Danka 2006 - 2012 |
861
Tento web zatím neprošel jazykovou korekturou.
Vlastní redakční systém pohánějící tento web je v BETA verzi, omluvte případné problémy.