Tālāk ir sniegts desmit visbiežāk izmantoto Excel VBA programmēšanas vadības struktūru saraksts. Iekļauts vienkāršs katras vadības struktūras piemērs un īss apraksts par to, kad izmantot šo struktūru.
Priekš – Nākamais
Noder, lai cilpu cauri masīvam.
ArraySum = 0
Ja i = 1 līdz 10
ArraySum = ArraySum + MyArray(i)
Nākamais i
Katram – Nākamais
Noder, lai pārlūkotu kolekciju vai šūnu diapazonu.
Atlases summa = 0
Katrai atlasītajai šūnai
SelectionSum = SelectionSum + cell.Value
Nākamā šūna
Darīt — cilpa līdz
Veiciet cilpu, līdz tiek izpildīts kāds nosacījums.
Rinda = 0
Darīt
Rinda = rinda + 1
Cilpa līdz šūnām (rinda, 1). Vērtība = "
MsgBox "Pirmā tukšā šūna atrodas rindā " & Rinda
Darīt kamēr — cilpa
Cikla, kamēr nosacījums ir patiess.
Rinda = 1
Do While Cells (rinda, 1) <> "
Rinda = rinda + 1
Cilpa
MsgBox "Pirmā tukšā šūna atrodas rindā " & Rinda
Ja tad
Dariet kaut ko, ja nosacījums ir patiess. Rakstīts kā viens paziņojums.
Ja x = 1, tad y = 1
Ja – Tad – Beigt Ja
Dariet kaut ko, ja nosacījums ir patiess. Var izmantot vairākus paziņojumus.
Ja x = 1, tad
y = 1
z = 1
Beigas Ja
Ja – tad – citādi
Dariet kaut ko, ja nosacījums ir patiess; pretējā gadījumā dariet kaut ko citu. Rakstīts kā viens paziņojums.
Ja x = 1, tad y = 1 Citādi y = 0
Ja – Tad – Citādi – Beigt Ja
Dariet kaut ko, ja nosacījums ir patiess; pretējā gadījumā dariet kaut ko citu. Var izmantot vairākus paziņojumus.
Ja x = 1, tad
y = 1
Z = 1
Citādi
y = 0
Z = 0
Beigas Ja
Izvēlieties Case
Veiciet vienu no vairākām darbībām atkarībā no stāvokļa.
Izvēlieties Case x
1. gadījums
y = 1
Z = 1
Gadījums ir > 1
y = 2
Z = 2
Cits gadījums
y = 0
Z = 0
Beigu atlase
Iet uz
Pārejiet uz marķētu paziņojumu. To galvenokārt izmanto kļūdu apstrādei.
Par kļūdu GoTo Hmm
'[vairāk koda ir šeit]
Iziet Sub
Hmm...
MsgBox "Radās kļūda"