Toliau pateikiamas dešimties dažniausiai naudojamų Excel VBA programavimo valdymo struktūrų sąrašas. Pateikiamas paprastas kiekvienos valdymo struktūros pavyzdys ir trumpas aprašymas, kada tą struktūrą naudoti.
Už – Kitas
Naudinga norint pereiti per masyvą.
ArraySum = 0
Jei i = 1-10
ArraySum = ArraySum + MyArray(i)
Toliau i
Kiekvienam – Kitas
Naudinga norint peržiūrėti rinkinį arba langelių diapazoną.
Pasirinkimo suma = 0
Kiekvienai pasirinktai ląstelei
SelectionSum = SelectionSum + langelis.Vertė
Kita ląstelė
Daryti – kilpa iki
Sukite, kol bus įvykdyta sąlyga.
Eilė = 0
Daryk
Eilutė = eilutė + 1
Ciklas iki langelių (eilutė, 1). Reikšmė = "
MsgBox "Pirmas tuščias langelis yra eilutėje " & Eilutė
Do While – Loop
Pakartokite, kol sąlyga yra teisinga.
Eilė = 1
Atlikti langelius (1 eilutė) <> "
Eilutė = eilutė + 1
Kilpa
MsgBox "Pirmas tuščias langelis yra eilutėje " & Eilutė
Jei tada
Darykite ką nors, jei sąlyga yra teisinga. Parašytas kaip vienas pareiškimas.
Jei x = 1, tada y = 1
Jei – tada – baigti, jei
Darykite ką nors, jei sąlyga yra teisinga. Gali naudoti kelis teiginius.
Jei x = 1 Tada
y = 1
z = 1
Pabaiga, jei
Jei – tada – kitaip
Darykite ką nors, jei sąlyga yra teisinga; kitu atveju daryk ką nors kita. Parašytas kaip vienas pareiškimas.
Jei x = 1, tada y = 1 Kitu atveju y = 0
Jei – Tada – Kita – Baigti Jei
Darykite ką nors, jei sąlyga yra teisinga; kitu atveju daryk ką nors kita. Gali naudoti kelis teiginius.
Jei x = 1 Tada
y = 1
Z = 1
Kitas
y = 0
Z = 0
Pabaiga, jei
Pasirinkite Case
Atlikite vieną iš kelių dalykų, atsižvelgdami į būklę.
Pasirinkite Case x
1 atvejis
y = 1
Z = 1
Atvejis yra > 1
y = 2
Z = 2
Kitas atvejis
y = 0
Z = 0
Pabaigos pasirinkimas
Eiti į
Pereikite prie pažymėto teiginio. Tai dažniausiai naudojama klaidų tvarkymui.
Dėl klaidos GoTo Oi
[čia rasite daugiau kodo]
Išeiti iš sub
Oi:
MsgBox "Įvyko klaida"