Vba условные операторы select case. «VBA Управляющие структуры VBA
Наиболее важные операторы условия, используемые в Excel VBA – это операторы If … Then и Select Case . Оба этих выражения проверяют одно или несколько условий и, в зависимости от результата, выполнят различные действия. Далее мы поговорим об этих двух операторах условия подробнее.
Оператор «If … Then» в Visual Basic
Оператор If … Then проверяет условие и, если оно истинно (TRUE), то выполняется заданный набор действий. Также может быть определён набор действий, которые должны быть выполнены, если условие ложно (FALSE).
Синтаксис оператора If … Then вот такой:
If
Условие1
Then
Действия в случае, если выполняется Условие1
ElseIf
Условие2
Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
В этом выражении элементы ElseIf и Else оператора условия могут не использоваться, если в них нет необходимости.
Ниже приведён пример, в котором при помощи оператора If … Then цвет заливки активной ячейки изменяется в зависимости от находящегося в ней значения:
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, то истинным становится первое условие и ячейка окрашивается в зелёный цвет. После этого выполнение оператора If … Then прерывается и остальные условия не проверяются.
Оператор «Select Case» в Visual Basic
Оператор Select Case схож с оператором If … Then в том, что он также проверяет истинность условия и, в зависимости от результата, выбирает один из вариантов действий.
Синтаксис оператора Select Case вот такой:
Select Case
Выражение
Case
Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case
Значение2
Действия в случае, если результат Выражения соответствует Значению2
…
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
Элемент Case Else не является обязательным, но его рекомендуется использовать для обработки непредвиденных значений.
В следующем примере при помощи конструкции Select 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 в конструкции Select Case . Вот эти способы:
| Case Is <= 5 | Таким образом при помощи ключевого слова Case Is можно проверить, удовлетворяет ли значение Выражения условию вида <=5 . |
| Case 6, 7, 8, 9 | Так можно проверить, совпадает ли значение Выражения с одним из перечисленных значений. Перечисленные значения разделяются запятыми. |
| Case 10 | Так проверяется, совпадает ли значение Выражения с заданным значением. |
| Case 11 To 20 | Таким образом можно записать выражение для проверки, удовлетворяет ли значение Выражения условию вида от 11 до 20 (эквивалентно неравенству “11<=значение<=20”). |
| Case Else | Вот так, при помощи ключевого слова Else , указываются действия для того случая, если значение Выражения не соответствует ни одному из перечисленных вариантов Case . |
Как только одно из условий будет найдено, выполняются соответствующие действия и производится выход из конструкции Select Case . То есть в любом случае будет выполнена только одна из перечисленных ветвей Case .
В реальных программах зачастую бывает необходимо выполнять более сложный выбор в процедурах, выбирая между тремя и более ветвями. В этом случае можно помещать операторы If..Then..Else друг в друга. Это называется вложением операторов.
Вышепоказанная процедура использует несколько вложенных друг в друга операторов условного перехода. Следует сказать, что такая процедура будет работать только в Excel, т.к. использует метод Application.InputBox (см. Функции host-приложений). Этот метод не дает пользователю во время работы функции ввести что-либо, кроме числа.
Если пользователь вводит не число, то получает об этом сообщение.
Если пользователь ничего не вводит, то получает сведение об ошибке.
Если пользователь воспользуется кнопкой "Отмена", то получает сообщение "Не введены данные".
VBA предоставляет сокращенную версию оператора If..Then..Else , являющуюся сжатым эквивалентом вложенных операторв If..Then..Else , использованных в листинге. Такой краткой формой является операторIf..Then..ElseIf
Какой из вариантов использовать - вопрос, который решает каждый программист для себя индивидуально. Считается, что второй вариант более компактный, тогда как первый - более удобный и понятный.
Для выполнения выбора из нескольких возможных ветвей кода можно вкладывать операторы If..Then..Else на много уровней вглубь, но уследить за ходом выполнения ветвей становится все труднее и труднее.
VBA имеет условный оператор перехода для использования в случаях, когда необходимо выбирать из большого количества различных ветвей кода - Select Case . Он работает практически так же, как и Else..If, но более понятен.
Ключевые слова Select Case используются со многими операторами Case, где каждый оператор Case проверяет появление другого условия и выполняется только одна из ветвей Case. Ветвь Case может содержать один, несколько или ни одного оператора VBA.
Оператор безусловного перехода
Оператор безусловного перехода, можно сказать, является рудиментом от ранних языков программирования, в которых он являлся практически единственным средством организации циклических выполнений блоков кода.
Оператор безусловного перехода всегда изменяет порядок выполнения операторов в процедуре или функции. При этом не проверяется никаких условий.
Синтаксис:
GoTo line
line - любая допустимая метка или номер строки в той же процедуре или функции, которая содержит оператор GoTo.
ЯЗЫК ПРОГРАММИРОВАНИЯ VISUAL BASIC. ПРОГРАММИРОВАНИЕ ВЕТВЛЕНИЙ
Ветвление в Visual Basic организуется с использованием:
- условного оператора IF;
- встроенной функции IIF;
- оператора выбора CASE.
Для проверки одного условия и выполнения оператора или блока операторов используется условный оператор IF...THEN . Этот оператор можно использовать с разным синтаксисом: однострочным (линейным) и многострочным (блочным).
Линейный оператор имеет следующий синтаксис:
If <условие> Then <операторы!>
Блочный оператор имеет следующий синтаксис:
If <условие>
Then
<блок операторов 1>
End If
Если заданное условие имеет значение True, выполняется блок операторов, в противном случае - блок операторов2. Если предложение Else не задано, при не выполнении условия управление сразу же передается следующему после If оператору.
Оператор If может быть вложенным, т. е. находиться внутри блоков операторов. Для проверки более одного условия и выполнения одного из нескольких блоков операторов используется расширенный условный оператор вида:
If <условие
1> Then
<блок операторов 1>
Elself <условие 2> Then
<блок операторов 2>
Elself <условие n> Then
<блок операторов n>
End If
Для выбора одного из значений в зависимости от выполнения или невыполнения некоторого условия используется условная функция IIF, имеющая следующий синтаксис:
IIF (<условие>, <значение1>, <значение2>)
Эта функция возвращает значение1, если условие истинно, и значение2, если условие ложно.
В качестве условия можно использовать логическое выражение, возвращающее значение True (Истина) или
False (Ложь), или любое арифметическое выражение (нулевое значение эквивалентно False, а ненулевое - True).
Оператор выбора SELECT CASE используется для проверки одного условия и выполнения одного из нескольких блоков операторов.
Формат записи оператора:
Select Case <проверяемое
выражение>
Case <список выражений 1>
<операторы 1> Case <список выражений 2>
<операторы 2> Case <список выражений 3>
<операторы 3>
Case Else
<операторы группы Else>
End Select
Проверяемое выражение вычисляется в начале работы оператора Select Case. Это выражение может возвращать значение любого типа (логическое, числовое, строковое).
Список выражений - одно или несколько выражений, разделенных стандартным символом - разделителем (точкой с запятой).
При выполнении оператора проверяется, соответствует ли хотя бы один из элементов этого списка проверяемому выражению.
Эти алименты списка выражений могут иметь одну из следующих форм:
- <выражение> - проверяет совпадение заданного выражения с одним из выражений - элементов списка;
- <выражение 1> То <выражение 2> - проверяет попадание заданного выражения в указанный диапазон;
- < Is <логический оператор> < выражение> - проверяет выполнение указанного условия для заданного выражения.
Выполняет одну из нескольких групп инструкций в зависимости от значения выражения.
Select Case выражение ] ... ] End Select
Параметры
выражение
Обязательный. Любое числовое выражение или строковое выражение.
списокВыражений-n
Обязательный при наличии предложения Case
. Список с разделителями, состоящий из одной или нескольких форм следующего вида: выражение, выражение To выражение, Is
операторСравнения выражение. Ключевое слово To
задает диапазон значений. При использовании ключевого слова To перед ним должно находиться меньшее значение. Ключевое слово Is с операторами сравнения (кроме Is и Like) задает диапазон значений. Если ключевое слово Is
не указано, оно вставляется по умолчанию.
инструкции-n
Необязательный. Одна или несколько инструкций, выполняемых в том случае, если выражение совпадает с любым компонентом списка списокВыражений-n.
инструкции_else
Необязательный. Одна или несколько инструкций, выполняемых в том случае, если выражение не совпадает не совпадает ни с одним из предложений Case
.
Замечания
Если выражение совпадает с любым выражением из спискаВыражений в предложении Case
, выполняются все инструкции, следующие за данным предложением Case
до следующего предложения Case
, или, для последнего предложения, до инструкции End Select
. Затем управление передается инструкции, следующей за End Select
. Если выражение совпадает с выражениями из списка в нескольких предложениях Case
, выполняется только первый подходящий набор инструкций.
Предложение Case Else
задает список инструкции_else, которые будут выполнены, если не обнаружено ни одно совпадение выражения и компонента списокВыражений ни в одном из остальных предложений Case. Хотя данное предложение не является обязательным, рекомендуется помещать предложение Case Else
в блок Select Case
, чтобы предусмотреть неожиданные значения выражения. Если ни в одном предложении Case
списокВыражений не содержит компонента, отвечающего аргументу выражение, и отсутствует инструкция Case Else
, выполнение продолжается с инструкции, следующей за инструкцией End Select
.
В каждом предложении Case
допускается использование нескольких выражений или диапазонов. Например допустима следующая строка:
Case 1 To 4, 7 To 9, 11, 13, Is > MaxNumber
Следует отличать оператор сравнения Is
от ключевого слова Is
, используемого в инструкции Select Case
.
Имеется также возможность задать диапазоны или несколько выражений для строковых значений. В следующем примере предложение Case
выполняется для строк, которые точно совпадают со строкой "все", для строк, лежащих в алфавитном порядке между "орехи" и "яблоки", и для строк со значением, равных текущему значению переменной TestItem
:
Case "все", "орехи" To "яблоки", TestItem
Допускаются вложенные инструкции Select Case
. Каждой вложенной инструкции Select Case
должна соответствовать инструкция End Select
.
Пример
В данном примере инструкция Select Case
используется для анализа значения переменной. Второе предложение Case
содержит значение анализируемой переменной и следовательно выполняется только инструкция, связанная с этим предложением.
Dim Number Number = 8 " Инициализирует переменную. Select Case Number " Анализирует число. Case 1 To 5 " Число между 1 и 5. Debug.Print "Между 1 и 5" " Это предложение Case является единственным истинным. Case 6, 7, 8 " Число между 6 и 8. Debug.Print "Между 6 и 8" Case Is > 8 And Number < 11 " 9 или 10. Debug.Print "Больше 8" Case Else " Другие значения. Debug.Print "Вне интервала 1 -- 10" End Select
Оператор Select Case VBA языка предназначен для формирования выбора операции в зависимости от значения, по сути, данный оператор выбора является гибридом условного оператора vba if then. Все довольно просто – в сценарии есть переменная, значение которой будет изменяться, и в зависимости от значения нужно выбрать, какой блок кода (выражение) выполнить.
Как и в условном операторе , тут происходит проверка значения, например: есть текстовое поле, в которое нужно ввести данные, допустим, возраст. Далее следует проверить введенное значение, если значение меньше 18 – вывести один текст, если значение находится между 19 и 30 – другой текст, в противном случае – вывести третий текст. Как уже говорилось, для таких целей можно использовать условный оператор, однако, оператор выбора VBA Select Case является более компактным варинтом.
Синтаксис оператора VBA Select Case:
Select Case значение
Select условие 1
Набор операторов
Select условие 2
Набор операторов
Select условие 3
Набор операторов
….
Select условие N
Набор операторов N
Case Else
Другие операторы
End Select
Вначале происходит проверка параметра “значение”, который может быть как строкового, так и числового типа, после проверки параметра, происходит поочередное сравнение (начиная сначала) с каждый условием, которые прописаны в операторах Select Case VBA. Если совпадение произойдет для “условие 1”, то будет выполнен “набор операторов 1”, после чего произойдет выполнения кода, находящегося после End Select . Оператор Case Else формально означает “В противном случае”, то есть, если ни одно из условий не подходит, то выполнится набор операторов, прописанных для Case Else. Само выражение VBA - Case Else не является обязательным, как и “другие операторы”, при необходимости его можно опустить, оно всегда прописывается в конце.
Давайте рассмотрим такой пример кода:
| Private Sub CommandButton1_Click() Dim a a = TextBox1.Text Select Case a Case Is < 100 Label1.Caption = "Введенное значение меньше числа 100" Case 101 To 150 Label1.Caption = "Введенное значение больше числа 100 и меньше 151" Case 151 To 200 Label1.Caption = "Введенное значение больше 151 и меньше 201" Case Else Label1.Caption = "Другое значение, оператор Select Case VBA" End Select End Sub Private Sub UserForm_Activate() " начальные настройки "***************************** Label1.Caption = "" " размер текста Label1.FontSize = 15 " цвет текста Label1.ForeColor = &HFF0000 " выравнивание по центру Label1.TextAlign = fmTextAlignCenter " включить перенос строк Label1.WordWrap = True " надпись на кнопке CommandButton1.Caption = "Показать" "начальное сожержимое текстового поля TextBox1.Text = "Введите любое значение" End Sub |
В данном примере у нас есть процедура CommandButton1_Click , которая отвечает за обработку нажатия по кнопке. Переменная a будет хранить значение текстового поля TextBox1 (свойство Text). Далее следует оператор выбора Select case VBA языка, в котором происходит проверка значения переменной a, после чего, значение сравнивается с условиями:
- Case Is < 100 – если значение переменной a меньше числа 100
- Case 101 To 150 – если значение находится в диапазоне от 101 до 150
- Case 151 To 200 – диапазон проверки от 151 до 200
- Case Else – собственно, всю другие значения.
В зависимости от результат проверки, в свойство Caption, объекта , будет записанное информативное сообщение.
Процедура UserForm_Activate содержит строки кода для начальной настройки компонентов формы – цвет, размер, начальный текст и так далее.
Результат выполнения макроса вы можете увидеть на рисунке. Для создания связи между макросом и формой, в блоке кода для модуля нужно прописать:
| Sub OBModule() OBForm.Show End Sub |
Тут OBModule – имя модуля (макроса), а OBForm – название формы.
Стоит обратить внимание, что даже при совпадении условие, например: меньше 100 и больше 99, в операторе выбора Select Сase произойдет выполнения лишь для первого подходящего условия, а все остальные будут проигнорированы.