Následuje seznam deseti nejčastěji používaných řídicích struktur programování Excel VBA. Součástí je jednoduchý příklad každé ovládací struktury a stručný popis toho, kdy byste tuto strukturu použili.
Pro další
Užitečné pro procházení polem.
ArraySum = 0
Pro i = 1 až 10
ArraySum = ArraySum + MyArray(i)
Příště já
Pro každého – Další
Užitečné pro procházení kolekcí nebo rozsahem buněk.
SelectionSum = 0
Pro každou buňku ve výběru
SelectionSum = SelectionSum + cell.Value
Další buňka
Do – opakovat, dokud
Opakujte, dokud není splněna podmínka.
Řádek = 0
Dělat
Řada = řada + 1
Opakovat do buněk (řádek, 1).Value = "
MsgBox "První prázdná buňka je v řádku" a řádku
Do While – Loop
Smyčka, když je podmínka pravdivá.
Řádek = 1
Do While Cells (Řádek, 1) <> "
Řada = řada + 1
Smyčka
MsgBox "První prázdná buňka je v řádku" a řádku
Pokud – Pak
Udělejte něco, pokud je podmínka pravdivá. Napsáno jako jediné prohlášení.
Pokud x = 1, pak y = 1
If – Then – End If
Udělejte něco, pokud je podmínka pravdivá. Lze použít více příkazů.
Pokud x = 1 Pak
y = 1
z = 1
End If
Jestliže pak jinak
Udělejte něco, pokud je podmínka pravdivá; jinak udělejte něco jiného. Napsáno jako jediné prohlášení.
Pokud x = 1, pak y = 1 Jinak y = 0
If – Then – Else – End If
Udělejte něco, pokud je podmínka pravdivá; jinak udělejte něco jiného. Lze použít více příkazů.
Pokud x = 1 Pak
y = 1
Z = 1
Jiný
y = 0
Z = 0
End If
Vyberte případ
Udělejte jednu z několika věcí v závislosti na stavu.
Vyberte Případ x
Případ 1
y = 1
Z = 1
Případ je > 1
y = 2
Z = 2
Případ Else
y = 0
Z = 0
Konec Vyberte
Jít do
Přejít na označené prohlášení. To se používá většinou pro řešení chyb.
Při chybě GoTo Jejda
'[další kód je zde]
Exit Sub
Jejda:
MsgBox "Došlo k chybě"