Nejdůležitější stavové příkazy používané v Excel VBA jsou příkazy Pokud… Pak и Vyberte případ. Oba tyto výrazy testují jednu nebo více podmínek a v závislosti na výsledku provádějí různé akce. O těchto dvou podmíněných operátorech si povíme podrobněji dále.
Příkaz „If… Then“ ve Visual Basic
Operátor Pokud… Pak zkontroluje podmínku, a pokud je pravdivá (TRUE), provede se zadaná sada akcí. Může také definovat sadu akcí, které se mají provést, pokud je podmínka NEPRAVDA.
Syntaxe operátora Pokud… Pak takhle:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
V tomto výrazu prvky Jinak Pokud и jiný Operátor podmínek lze vynechat, pokud nejsou potřeba.
Níže je uveden příklad, ve kterém pomocí operátoru Pokud… Pak Barva výplně aktivní buňky se mění v závislosti na hodnotě v ní:
Pokud aktivuje.value <5, pak aktivityEll.Interior.Color = 65280 'ячейка окрашивается в зелёный ц к ч ч ч ч ч ч ч ч ч ч ч ч ч ч окрашивается в красный цвет End If
Všimněte si, že jakmile se podmínka stane pravdivou, provedení podmíněného příkazu se přeruší. Pokud tedy hodnota proměnné ActiveCell méně než 5, pak se první podmínka stane pravdivou a buňka se zbarví zeleně. Poté provedení výpisu Pokud… Pak je přerušen a ostatní podmínky nejsou kontrolovány.
Přečtěte si další informace o používání podmíněného operátoru ve VBA Pokud… Pak lze nalézt na Microsoft Developer Network.
Příkaz "Select Case" v jazyce Visual Basic
Operátor Vyberte případ podobný operátorovi Pokud… Pak tím, že zkontroluje i pravdivost podmínky a podle výsledku vybere jednu z možností.
Syntaxe operátora Vyberte případ takhle:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
Prvek Case Else není vyžadováno, ale doporučuje se pro zpracování neočekávaných hodnot.
V následujícím příkladu pomocí konstruktu Vyberte případ změní barvu výplně aktuální buňky v závislosti na hodnotě v ní:
Vyberte Case ActiveCell.value Case is <= 5 ActiveCell.Interior.Color = 65280 'ячейка окрашивается в зелёё ц ц в в в в в в в в в в в в в в в в в в в. Color = 6 'ячейка окраши posta
Výše uvedený příklad ukazuje, jak můžete různými způsoby nastavit hodnotu prvku. Ukázkové ve výstavbě Vyberte případ. Jsou to tyto způsoby:
| Případ je <= 5 | Tedy pomocí klíčového slova Případ je můžete zkontrolovat, zda hodnota vyhovuje Výrazy stav formuláře <= 5. |
| Ukázkové 6, 7, 8, 9 | Tímto způsobem můžete zkontrolovat, zda se hodnota shoduje Výrazy s jednou z uvedených hodnot. Uvedené hodnoty jsou odděleny čárkami. |
| Ukázkové 10 | Tím se zkontroluje, zda se hodnota shoduje Výrazy s danou hodnotou. |
| Ukázkové 11 A je to 20 | Můžete tedy napsat výraz pro kontrolu, zda hodnota vyhovuje Výrazy stav formuláře od 11 do 20 (ekvivalent nerovnosti "11<=hodnota<=20"). |
| Case Else | Takto pomocí klíčového slova jiný, akce jsou uvedeny pro případ, že hodnota Výrazy neodpovídá žádné z uvedených možností Ukázkové. |
Jakmile je nalezena jedna z podmínek, jsou provedeny odpovídající akce a struktura opustí. Vyberte případ. To znamená, že v každém případě bude provedena pouze jedna z uvedených větví. Ukázkové.
Další informace o fungování příkazu VBA Vyberte případ lze nalézt na Microsoft Developer Network.