Выборка в VBA: оператор Select Case

VBA (Visual Basic for Applications) является языком программирования, который используется для создания макросов и автоматизации в приложениях Microsoft Office, таких как Excel, Word и PowerPoint. В VBA для условного выполнения кода есть несколько способов, один из которых - оператор Select Case.

Оператор Select Case позволяет выбирать одну из нескольких альтернатив в зависимости от значения переменной или выражения. Он очень удобен, когда нужно обработать различные варианты значений одной переменной.

Синтаксис оператора Select Case выглядит следующим образом:

<pre class="hljs">Select Case выражение
    Case значение1
        ' выполнить код для значения1
    Case значение2
        ' выполнить код для значения2
    Case Else
        ' выполнить код для всех остальных значений
End Select</pre>

Здесь выражение может быть переменной, числом, строкой или даже результатом функции. Case описывает каждое значение, которое мы хотим проверить. В конце мы можем добавить блок Else, который будет выполнен, если ни одно из описанных значений не совпадает.

Давайте рассмотрим несколько примеров, чтобы лучше понять работу оператора Select Case.

Пример 1:

Предположим, у нас есть переменная x, которая может принимать значения от 1 до 7. Мы хотим написать код, который выводит название дня недели на основе значения переменной:

<pre class="hljs">Dim x As Integer
x = 4

Select Case x
    Case 1
        MsgBox "Понедельник"
    Case 2
        MsgBox "Вторник"
    Case 3
        MsgBox "Среда"
    Case 4
        MsgBox "Четверг"
    Case 5
        MsgBox "Пятница"
    Case 6
        MsgBox "Суббота"
    Case 7
        MsgBox "Воскресенье"
End Select</pre>

В результате выполнения этого кода мы увидим сообщение "Четверг", потому что переменная x имеет значение 4.

Пример 2:

Допустим, у нас есть переменная month, которая может принимать значения от 1 до 12. Мы хотим написать код, который выводит количество дней в указанном месяце:

<pre class="hljs">Dim month As Integer
month = 2

Select Case month
    Case 1, 3, 5, 7, 8, 10, 12
        MsgBox "В этом месяце 31 день"
    Case 4, 6, 9, 11
        MsgBox "В этом месяце 30 дней"
    Case 2
        MsgBox "В этом месяце 28 или 29 дней"
    Case Else
        MsgBox "Неверное значение месяца"
End Select</pre>

В этом примере мы использовали несколько значений в одной строке Case, чтобы уменьшить дублирование кода. Если переменная month имеет значение 2, мы увидим сообщение "В этом месяце 28 или 29 дней".

Затем в завершение оператора Select Case мы можем добавить блок Else, который будет выполнен, если значение переменной не соответствует ни одному из описанных случаев. В последнем примере, если значение переменной month не является числом от 1 до 12, мы увидим сообщение "Неверное значение месяца".

Оператор Select Case очень полезен, когда у нас есть несколько вариантов значений для проверки. Он может значительно упростить написание и понимание кода, а также повысить его читаемость.

В этой статье мы рассмотрели применение оператора Select Case в VBA с примерами кода. Теперь вы знаете, как использовать этот оператор для выполнения различных веток кода в зависимости от значения переменной.