Najvažnije izjave uvjeta koje se koriste u programu Excel VBA su izjave Ako tada и Odaberite Case. Oba ova izraza testiraju jedan ili više uvjeta i, ovisno o rezultatu, izvode različite radnje. Sljedeći ćemo detaljnije govoriti o ova dva uvjetna operatora.
Naredba “If…Then” u Visual Basicu
Operator Ako tada provjerava uvjet i, ako je istinit (TRUE), izvodi se navedeni skup radnji. Također može definirati skup radnji koje treba izvesti ako je uvjet FALSE.
Sintaksa operatora Ako tada kao ovo:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
U ovom izrazu elementi elseif и drugo operator uvjeta može se izostaviti ako nije potreban.
Ispod je primjer u kojem, koristeći operator Ako tada Boja ispune aktivne ćelije mijenja se ovisno o vrijednosti u njoj:
If ActiveCell.Value < 5 Then ActiveCell.Interior.Color = 65280 'Jačejka je okrašena u zelenu boju ElseIf ActiveCell.Value < 10 Then ActiveCell.Interior.Color = 49407 'Jačejka je okrašena u narančastu boju Else ActiveCell.Interior.Color = 255 'Jačejka okrašava se u crvenu boju End If
Imajte na umu da čim uvjet postane istinit, izvršenje uvjetne naredbe se prekida. Prema tome, ako vrijednost varijable ActiveCell manje od 5, tada prvi uvjet postaje istinit i ćelija je obojena zeleno. Nakon toga slijedi izvršenje izjave Ako tada se prekida i ostali uvjeti se ne provjeravaju.
Saznajte više o korištenju uvjetnog operatora u VBA Ako tada možete pronaći na Microsoft Developer Network.
Naredba "Select Case" u Visual Basicu
Operator Odaberite Case slično operatoru Ako tada na taj način što također provjerava istinitost uvjeta i ovisno o rezultatu odabire jednu od opcija.
Sintaksa operatora Odaberite Case kao ovo:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
Element Drugi slučaj nije potrebno, ali se preporučuje za rukovanje neočekivanim vrijednostima.
U sljedećem primjeru, korištenjem konstrukcije Odaberite Case mijenja boju ispune trenutne ćelije ovisno o vrijednosti u njoj:
Select Case ActiveCell.Value Case Is <= 5 ActiveCell.Interior.Color = 65280 'Jačejka se okrašuje u zelenoj boji Case 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 'Jačejka se okrašuje u narančastoj boji Case 10 ActiveCell.Interior. Color = 65535 'Jačejka se okrašuje u žutoj boji Case 11 To 20 ActiveCell.Interior.Color = 10498160 'Jačejka se okrašuje u lilovoj boji Case Else ActiveCell.Interior.Color = 255 'Jačejka se okrašuje u crvenoj boji End Select
Gornji primjer pokazuje kako možete postaviti vrijednost za element na različite načine. Spis u građevinarstvu Odaberite Case. Ovo su načini:
| Slučaj Je <= 5 | Dakle, koristeći ključnu riječ Slučaj Je možete provjeriti da li vrijednost zadovoljava izrazi stanje forme <= 5. |
| Spis 6, 7, 8, 9 | Na taj način možete provjeriti odgovara li vrijednost izrazi s jednom od navedenih vrijednosti. Navedene vrijednosti odvojene su zarezima. |
| Spis 10 | Time se provjerava odgovara li vrijednost izrazi sa zadanom vrijednošću. |
| Spis 11 To je to 20 | Dakle, možete napisati izraz da provjerite zadovoljava li vrijednost izrazi stanje forme od 11 da 20 (ekvivalentno nejednakosti "11<=vrijednost<=20"). |
| Drugi slučaj | Ovako, koristeći ključnu riječ drugo, radnje su naznačene za slučaj ako je vrijednost izrazi ne odgovara niti jednoj od navedenih opcija Spis. |
Čim se pronađe jedan od uvjeta, izvode se odgovarajuće radnje i struktura izlazi. Odaberite Case. Odnosno, u svakom slučaju će se izvršiti samo jedna od navedenih grana. Spis.
Više informacija o radu VBA naredbe Odaberite Case možete pronaći na Microsoft Developer Network.