Makro, které prochází všechny buňky v oblasti – cyklus For each

Na této stránce je ukázka makra, které prochází všechny buňky v definované oblasti, a v každé provede nějakou akci. V našem případě vloží hodnotu 1234.

Více komentáře přímo v kódu.

'začátek a název makra
Sub vsechny_bunky()
'definice proměnných
Dim oblast As Range, bunka As Range
'proměnné "oblast" přiřadíme buňky, kterými je tvořená
Set oblast = Range("a1:d4")
'cyklus, který projde všechny buňky
For Each bunka In oblast
bunka.Value = 1234
Next bunka
End Sub