Най-важните изрази за условие, използвани в Excel VBA, са изразите Ако … Тогава и Изберете Case. И двата израза тестват едно или повече условия и в зависимост от резултата извършват различни действия. След това ще говорим по-подробно за тези два условни оператора.
Изявление „Ако…Тогава“ във Visual Basic
Оператор Ако … Тогава проверява условието и, ако е вярно (TRUE), тогава се изпълнява посоченият набор от действия. Може също така да дефинира набор от действия, които да бъдат извършени, ако условието е FALSE.
Синтаксис на оператора Ако … Тогава като този:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
В този израз елементите иначе ако и още Операторът на условията може да бъде пропуснат, ако не са необходими.
По-долу е даден пример, в който, използвайки оператора Ако … Тогава Цветът на запълване на активната клетка се променя в зависимост от стойността в нея:
If ActiveCell.Value < 5 Then ActiveCell.Interior.Color = 65280 'Ячейка се оцветява в зелен цвят ElseIf ActiveCell.Value < 10 Then ActiveCell.Interior.Color = 49407 'Ячейка се оцветява в оранжев цвят Else ActiveCell.Interior.Color = 255 'Ячейка окрашивается в червен цвят End If
Имайте предвид, че веднага щом условието стане вярно, изпълнението на условния оператор се прекъсва. Следователно, ако стойността на променливата ActiveCell по-малко от 5, тогава първото условие става вярно и клетката е оцветена в зелено. След това изпълнението на изявлението Ако … Тогава се прекъсва и другите условия не се проверяват.
Научете повече за използването на условния оператор във VBA Ако … Тогава можете да намерите в мрежата за разработчици на Microsoft.
Изявление "Избор на случай" във Visual Basic
Оператор Изберете Case подобно на оператора Ако … Тогава в това, че също проверява истинността на условието и в зависимост от резултата избира една от опциите.
Синтаксис на оператора Изберете Case като този:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
Element Друг случай не е задължително, но се препоръчва за обработка на неочаквани стойности.
В следващия пример, използвайки конструкцията Изберете Case променя цвета на запълване на текущата клетка в зависимост от стойността в нея:
Select Case ActiveCell.Value Case Is <= 5 ActiveCell.Interior.Color = 65280 'Ячейка се окрашава в зелен цвят Case 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 'Ячейка се окрашава в оранжев цвят Case 10 ActiveCell.Interior. Color = 65535 'Ячейка се окрашава в жълт цвят Case 11 To 20 ActiveCell.Interior.Color = 10498160 'Ячейка се окрашава в лилов цвят Case Else ActiveCell.Interior.Color = 255 'Ячейка се окрашава в червен цвят End Select
Примерът по-горе показва как можете да зададете стойност за елемент по различни начини. Случай в строителството Изберете Case. Това са начините:
| Случаят е <= 5 | По този начин, използвайки ключовата дума Случаят е можете да проверите дали стойността удовлетворява изрази състояние на формата <= 5. |
| Случай 6, 7, 8, 9 | По този начин можете да проверите дали стойността съвпада изрази с една от изброените стойности. Изброените стойности са разделени със запетаи. |
| Случай 10 | Това проверява дали стойността съвпада изрази с дадена стойност. |
| Случай 11 Това е 20 | По този начин можете да напишете израз, за да проверите дали стойността удовлетворява изрази състояние на формата от 11 да 20 (еквивалентно на неравенството "11<=стойност<=20"). |
| Друг случай | Подобно на това, използвайки ключовата дума още, действията са посочени за случая, ако стойността изрази не отговаря на нито една от изброените опции Случай. |
Веднага щом бъде намерено едно от условията, се извършват съответните действия и структурата излиза. Изберете Case. Тоест във всеки случай ще бъде изпълнен само един от изброените клонове. Случай.
Повече информация за работата на командата VBA Изберете Case можете да намерите в мрежата за разработчици на Microsoft.