Najpomembnejše izjave o pogojih, ki se uporabljajo v Excelu VBA, so izjave Če, potem и Izberite Primer. Oba izraza preizkusita enega ali več pogojev in glede na rezultat izvedeta različna dejanja. V nadaljevanju bomo podrobneje govorili o teh dveh pogojnih operatorjih.
Izjava »Če… Potem« v Visual Basicu
Operater Če, potem preveri pogoj in, če je resničen (TRUE), se izvede podani niz dejanj. Prav tako lahko definira nabor dejanj, ki jih je treba izvesti, če je pogoj FALSE.
Sintaksa operaterja Če, potem Všečkaj to:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
V tem izrazu elementi elseif и ostalo operator pogojev lahko izpustite, če niso potrebni.
Spodaj je primer, v katerem z uporabo operatorja Če, potem Barva polnila aktivne celice se spreminja glede na vrednost v njej:
If ActiveCell.Value < 5 Then ActiveCell.Interior.Color = 65280 'Jačejka okrašena v zeleni barvi ElseIf ActiveCell.Value < 10 Then ActiveCell.Interior.Color = 49407 'Jačejka okrašena v oranžni barvi Else ActiveCell.Interior.Color = 255 'Jačejka okrašuje se v rdeči barvi End If
Upoštevajte, da takoj, ko pogoj postane resničen, je izvedba pogojnega stavka prekinjena. Če torej vrednost spremenljivke ActiveCell manj kot 5, potem postane prvi pogoj resničen in celica je obarvana zeleno. Po tem sledi izvedba izjave Če, potem se prekine in drugi pogoji niso preverjeni.
Izvedite več o uporabi pogojnega operatorja v VBA Če, potem najdete na Microsoft Developer Network.
Stavek "Izberi primer" v Visual Basicu
Operater Izberite Primer podobno kot operater Če, potem s tem, da preveri tudi resničnost pogoja in glede na rezultat izbere eno od možnosti.
Sintaksa operaterja Izberite Primer Všečkaj to:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
element Drugi primer ni zahtevana, vendar je priporočljiva za obravnavanje nepričakovanih vrednosti.
V naslednjem primeru z uporabo konstrukta Izberite Primer spremeni barvo polnila trenutne celice glede na vrednost v njej:
Select Case ActiveCell.Value Case Is <= 5 ActiveCell.Interior.Color = 65280 'Jačejka okrašena v zeleni barvi Case 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 'Jačejka okrašena v oranžni barvi Case 10 ActiveCell.Interior. Color = 65535 'Jačejka okrašena v rumeni barvi Case 11 To 20 ActiveCell.Interior.Color = 10498160 'Jačejka okrašena v lil barvi Case Else ActiveCell.Interior.Color = 255 'Jačejka okrašena v rdeči barvi End Select
Zgornji primer prikazuje, kako lahko elementu nastavite vrednost na različne načine. Zadeva v gradbeništvu Izberite Primer. To so načini:
| Primer je <= 5 | Tako z uporabo ključne besede Primer je lahko preverite, ali vrednost ustreza izrazi stanje obrazca <= 5. |
| Zadeva 6, 7, 8, 9 | Tako lahko preverite, ali se vrednost ujema izrazi z eno od navedenih vrednosti. Navedene vrednosti so ločene z vejicami. |
| Zadeva 10 | To preveri, ali se vrednost ujema izrazi z dano vrednostjo. |
| Zadeva 11 To je to 20 | Tako lahko napišete izraz, s katerim preverite, ali vrednost ustreza izrazi stanje obrazca od 11 na 20 (ekvivalentno neenakosti "11<=vrednost<=20"). |
| Drugi primer | Takole, z uporabo ključne besede ostalo, so dejanja navedena za primer, če je vrednost izrazi ne ustreza nobeni od navedenih možnosti Zadeva. |
Takoj, ko je najden eden od pogojev, se izvedejo ustrezna dejanja in struktura zapusti. Izberite Primer. To pomeni, da bo v vsakem primeru izvedena samo ena od naštetih vej. Zadeva.
Več informacij o delovanju stavka VBA Izberite Primer najdete na Microsoft Developer Network.