Jste zde: Úvodní stránka » excel » vba-teorie-zaklady » for-each-next-excel-vba

For Each .. Next - Excel VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak na Excel - naučte se efektivně využívat Excel - nejoblíbenější (Hodnocení 97%, přes 13.000 studentů, + 750 pozitivních zpětných vazeb) - Získat kurz
MaxiKurz Excel - získejte lepší práci, více peněz, staňte se nepostradatelní (přes 6 hodin videí, 160 lekcí) - Získat kurz
G tabulky... - pokud nemáte rádi Excel využijte kurz na Google-tabulky

Pokud je potřeba provést něco nad všemi objektmi kolekce, například zobrazit názvy všech listů v sešitu.

Úvodem do For Each .. Next

Pro přehlednost je článek rozdělen na jednotlivé kapitoly:

Teorie a syntaxe For Each .. Next
Vypsat názvy listů - prakticky
Pro dané buňky provést ... - prakticky
Ve spojení s If - pokud splňuji podmínku
Výps obsahu buněk
Exit For - předčasné ukončení
Ke stažení
Související články

Syntaxe For Each .. Next


For Each prvek In kolekce
     [příkazy]
	[Exit For]
     [příkazy]
Next prvek

Vypsat názvy listů

Potřeba vypsat názvy listů v sešitu. Počet listů se může dynamicky měnit.


For Each List In ActiveWorkbook.Worksheets
   MsgBox List.Name
Next List

Pro dané buňky provést ...

Vynásobit buňky v dané oblasti:


Dim rng As Range, cell As Range
Set rng = Range("B5:B7")

For Each cell In rng
	cell.Value = cell.Value * cell.Value
Next cell

Vydělit buňky v dané oblasti:


Set rng = Range("B5:B7")
For Each cell In rng
    cell.Value = cell.Value / 100
Next cell

Ve spojení s If

pokud splňuji podmínku


Dim rng As Range
Dim cell As Range
 
Set rng = Range("C7:C4000")
 
For Each cell In rng
 If cell.Value = 0 Then 
  cell.Value = "OK"
 endif
Next cell

Zkrácení...


For Each cell In Range("C5:C7")
 If cell.Value = 0 Then
  cell.Value = "OK"
 End If
Next

Výpis obsahu buněk

Do dialogového okna vypsat obsah buněk.


For Each cell In ActiveSheet.Range("B5:C7")
 Cell_Values = Cell_Values & vbNewLine & cell.Address & " - " & cell.Value
Next cell
MsgBox Cell_Values

Exit For - předčasné ukončení

Jak předčasně ukončit Exit For


k = 1
For Each List In ActiveWorkbook.Worksheets
    k = k + 1
    MsgBox List.Name
        If k = 4 Then Exit For
Next List

Ke stažení

Soubor For Each - prakticky - Excel VBA ke stažení zdarma. Soubor využívá makra.

Další související články

Závěrem

Tento článek je součástí on-line výukového kurzu VBA MS Excel.

Mate-li zajimavý příklad na použití konstrukce For Each ... Next, můžete se podělit v komentařích.

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

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). 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 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.