Eftirfarandi er listi yfir tíu algengustu Excel VBA forritunarstýringarkerfin. Innifalið er einfalt dæmi um hvert stjórnskipulag og stutt lýsing á því hvenær þú myndir nota þá uppbyggingu.
Fyrir - Næsta
Gagnlegt til að hringja í gegnum fylki.
ArraySum = 0
Fyrir i = 1 til 10
ArraySum = ArraySum + MyArray(i)
Næst i
Fyrir hvern - Næsta
Gagnlegt til að fara í gegnum safn eða fjölda frumna.
Valsumma = 0
Fyrir hvern reit í vali
SelectionSum = SelectionSum + cell.Value
Næsta klefi
Gera - Lykkju til
Lykkju þar til skilyrði er uppfyllt.
Röð = 0
Gerðu
Röð = Röð + 1
Loop Until Cells(Row, 1).Value = "
MsgBox "Fyrsta tóma reiturinn er í röðinni" & röð
Gerðu á meðan - lykkja
Lykkju á meðan skilyrði er satt.
Röð = 1
Gera á meðan frumur (röð, 1) <> "
Röð = Röð + 1
Lykkju
MsgBox "Fyrsta tóma reiturinn er í röðinni" & röð
Ef þá
Gerðu eitthvað ef skilyrði er satt. Skrifað sem ein yfirlýsing.
Ef x = 1 þá er y = 1
Ef - Þá - Enda Ef
Gerðu eitthvað ef skilyrði er satt. Getur notað margar fullyrðingar.
Ef x = 1 þá
y = 1
z = 1
End If
Ef - Þá - Annað
Gerðu eitthvað ef skilyrði er satt; annars gerðu eitthvað annað. Skrifað sem ein yfirlýsing.
Ef x = 1 Þá er y = 1 Annars y = 0
Ef – Þá – Annað – Enda Ef
Gerðu eitthvað ef skilyrði er satt; annars gerðu eitthvað annað. Getur notað margar fullyrðingar.
Ef x = 1 þá
y = 1
Z = 1
Annar
y = 0
Z = 0
End If
Veldu Mál
Gerðu eitt af nokkrum hlutum, allt eftir ástandi.
Veldu Case x
Mál 1
y = 1
Z = 1
Málið er > 1
y = 2
Z = 2
Tilfelli Annað
y = 0
Z = 0
Endurval
Fara til
Farðu í merkta fullyrðingu. Þetta er aðallega notað til að meðhöndla villur.
Við Villa í GoTo Úbbs
'[meiri kóða fer hér]
Hætta undir
Úps:
MsgBox "Villa kom upp"