For Each .. Next - Excel VBA

Ú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

• With ... End With
• Podmínky If, Then, ElseIf, Else
• For Next - Cykly
• Do ... Loop
• While ... Wend
• Exit

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

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.