Použití For .. Next cyklů
Detaily:
Představte si situaci, kdy potřebujete zavolat za sebou jednu funkci ale s
různými parametry:
VolamFunkci 1
VolamFunkci 3
VolamFunkci 8
VolamFunkci 9
VolamFunkci 12
VolamFunkci 17
VolamFunkci 20
VolamFunkci 21
VolamFunkci 30
VolamFunkci 35
Je to deset
řádků a přitom to lze napsat na 4:
Dim v As Variant
For Each v In Array(1, 3, 8, 9, 12, 17, 20, 21, 30, 35)
VolamFunkci v
Next
Dokonce se tohohle
triku nechá využít i v případech, kdy se nejedná o zasílání
numerických hodnot:
Dim v As Variant
For Each v In Array("Jaro", "Léto", "Podzim",
"Zima")
TiskKalendare v
Next