Если то ссылка на ячейку vba excel

Оператор if в excel

Операторы условия в VBA

​Смотрите также​ Sub​ как формулу массива (см.​ хотя бы в​​ возвращает ИСТИНА если​​ «ЕСЛИ» в Excel.​​При работе с англоязычной​​ «ЕСЛИ» позволяет оставлять​ этом этапе у​ двух действий.​ формула может обработать.​ проставить не результат,​ 25», в любом​Функция​ 9​Select Case​

Оператор «If … Then» в Visual Basic

​Ниже приведён пример, в​​Наиболее важные операторы условия,​​В примере №1​ файл примера):​ одной ячейке значение​ все условия истинны​ Примеры, приведённые ниже,​ версией «Экселя» необходимо​ незаполненными одно или​ большинства пользователей возникает​Говоря более простыми словами,​

​ Таким образом, Вы​​ а оценку из​​ другом случае —​

​ЕСЛИ​​Так можно проверить, совпадает​​Выражение​
​ котором при помощи​​ используемые в Excel​ приведена краткая форма​
​=И(A6:A9>100)​​Функция ИЛИ() также может​​ или ЛОЖЬ если​
​ демонстрируют все основные​​ учитывать тот факт,​ несколько своих параметров.​
​ проблема. Связано это​
​ функция «ЕСЛИ» в​​ можете создать нужное​ ряда: Отлично, Хорошо​ «меньше или равно​
​одна из самых​

​ ли значение​​Case​​ оператора​​ VBA – это​​ записи, что означает:​(для ввода формулы​ вернуть только значения​ хотя бы одно​

​ способы её использования.​ что и все​ В таком случае,​​ со специфической задачей​​ случае истинного значения​ количество вложений. Правда​ и Плохо. Оценка​ 25».​

​ популярных и часто​Выражения​Значение1​If … Then​ операторы​если(if) 100 = 100(условие)​ в ячейку вместо​ ИСТИНА или ЛОЖЬ,​ ложно.​Простейшим примером для разбора​ функции также пишутся​ результаты будут зависеть​ многоусловности алгоритма. В​

​ некоторого выражения, выполняет​ есть очевидный недостаток​Отлично​Функция​ используемых функций Excel.​​с одним из​​ ​цвет заливки активной​If … Then​ тогда(then) Msgbox True(оператор)​ENTER​ но, в отличие​​И(логическое_значение1; [логическое_значение2]; . )​​ работы функции является​ на английском языке.​

​ от того, какие​ эксель функция «ЕСЛИ»​ одно действие, в​​ такой конструкции, после​​ставится при количестве​ЕСЛИ​ Используя ее совместно​

Оператор «Select Case» в Visual Basic

​ перечисленных значений. Перечисленные​​Действия в случае, если​​ ячейки изменяется в​​и​​2.​нужно нажать​ от И(), она​логическое_значение​ сравнение двух чисел.​ В этом случае​

​ аргументы были опущены​​ проверяет лишь одну​​ случае ложного -​

​ 3-5 вложений формула​​ баллов более 60,​
​является очень гибкой​​ с операторами сравнения​
​ значения разделяются запятыми.​​ результат Выражения соответствует​ зависимости от находящегося​Select Case​
​If​​CTRL+SHIFT+ENTER​
​ возвращает ЛОЖЬ, только​​ — любое значение или​ Для наличия вариативности,​ функция «ЕСЛИ» будет​
​ пользователем.​
​ операцию сравнения в​
​ другое. При этом​​ станет нечитаемой и​ оценка​ и ее можно​ и другими логическими​Case 10​
​ Значению1​

​ в ней значения:​​. Оба этих выражения​​условие​)​ если все ее​ выражение, принимающее значения​

​ зададим значения двух​ записываться, как IF,​​Если на месте логического​​ логическом выражении, то​ в качестве действий​ громоздкой, и с​Хорошо​

​ применять в различных​ функциями Excel, можно​

​Так проверяется, совпадает ли​Case​If ActiveCell.Value 100;A2>100)​ ​ ячейках А1 и​ ​ синтаксическая конструкция и​ то результатом функции​​ или дизъюнкцию не​​ явное значение, так​ ​ работать.​ ​ и оценка​ один пример. В​ задачи. В этом​​Выражения​​ ​​ = 65280 ‘Ячейка​​ в зависимости от​ ​Else​ ​ значения разные, то​ составим, так называемую​​Т.е. если в​​ В1, которые и​ алгоритм работы останутся​ будет выполнение действия,​​ получится. Для проверки​​ и определённая функция,​В Excel существуют более​Плохо​​ таблице ниже приведены​​ уроке мы попробуем​

​с заданным значением.​Действия в случае, если​ окрашивается в зелёный​ результата, выполнят различные​2й_оператор​​ границы можно ввести​​ таблицу истинности для​обеих​ будем сравнивать между​ теми же.​​ отвечающего за ложное​​ нескольких условий необходимо​

​ в том числе​ благородные инструменты для​​в остальных случаях.​​ результаты переаттестации сотрудников​ разобрать ее действие​Case 11 To 20​

​ результат Выражения соответствует​ цвет ElseIf ActiveCell.Value​
​ действия. Далее мы​
​End If​

​ в соседний столбец​

Функция ЕСЛИ в Excel на простом примере

​ И() и ИЛИ().​​ячейках​​ собой. Для решения​»Эксель» позволяет использовать до​ выполнение алгоритма. Причиной​ воспользоваться свойством вложенности.​ и «ЕСЛИ». Благодаря​ обработки большого количества​Чтобы решить эту задачу,​ фирмы:​ на простых примерах,​Таким образом можно записать​ Значению2​ 60;»Отлично»;ЕСЛИ(B2>45;»Хорошо»;»Плохо»))​

Пример 2

​ экзамена, который должен​​ функций​​Выражения​ ​ оранжевый цвет Else​Оператор​ MsgBox True Else​=И(A18:A21>B18:B21)​ ИСТИНА как 1.​ A1>100 — ИСТИНА​

​=ЕСЛИ(А1=В1; «числа равны»; «числа​ решения практически всех​ нулём, что на​ примером. Пусть необходимо​ некоторого алгоритма действий​​ПРОСМОТР​​и нажмем​​ содержать всего два​​ЕСЛИ​условию вида​Действия в случае, если​ ActiveCell.Interior.Color = 255​

1. ​If … Then​ MsgBox False End​Вместо диапазона с границами​ В этом легко​
2. ​и​​ неравны»).​​ задач, однако, даже​​ логическом языке означает​​ проверить, находится ли​
3. ​ при решении различных​.​Enter​ варианта:​в одной формуле.​от 11 до 20​ результат Выражения не​
4. ​ ‘Ячейка окрашивается в​проверяет условие и,​ If End Sub​ можно также использовать​ убедиться записав формулы​

Функция ЕСЛИ и несколько условий

​выражение A2>100 -​​В этом случае при​​ это небольшое число​ «ЛОЖЬ». Если оставить​ число в ячейке​ задач.​Итак, в этом уроке​.​Сдал​Функция​(эквивалентно неравенству «11​ соответствует ни одному​ красный цвет End​​ если оно истинно​​В примере №2​ константу массива:​ =ИСТИНА+0 и =ЛОЖЬ+0​​ ИСТИНА), то формула​​ наличии одинаковых значений​ нередко становится проблемой​​ пустым одно из​​ «А1» в заданном​

​Простое описание большинства синтаксических​ мы рассмотрели логическую​Данная формула обрабатывает сразу​​или​​ЕСЛИ​​Case Else​​ из перечисленных вариантов​

​ записи с двумя​Оператор ветвления (условный оператор)​ альтернативной записи формулы​ если хотя бы​ результатом будет запись​ тому несколько: при​ выполнение в случае​ 5 до 10.​

​ из главных плюсов,​ЕСЛИ​ проверяется первое условие:​​. Те, кто набрал​​ аргумента:​ ключевого слова​​End Select​​ только условие становится​ Также может быть​ операторами, что означает:​ — это структура,​ =И(A1>100;A2>100) в виде​ в одной ячейке​ «числа равны», во​ создании запроса, достаточно​ истины или лжи,​ Как можно заметить,​ которыми славится «Эксель».​во всей ее​B3>60​

​ более 45 баллов​=ЕСЛИ(заданное_условие; значение_если_ИСТИНА; значение_если_ЛОЖЬ)​Else​Элемент​​ истинным, выполнение условного​​ определён набор действий,​​если(if) 100 100)*(A2>100)​ значение​ всех остальных случаях​​ легко ошибиться с​​ то при его​ в данном случае​ Функция «ЕСЛИ» также​ красе и примерах,​. Если оно истинно,​ – сдали экзамен,​​Первый аргумент – это​​, указываются действия для​Case Else​ оператора прерывается. Следовательно,​ которые должны быть​ тогда(then) Msgbox True(1й_оператор)​ простую форму проверки​Значение второй формулы​

Пьер Корнель

Угадай, если сможешь, и выбери, если посмеешь

Краткое руководство по VBA If Statement

В следующем коде показан простой пример использования
оператора VBA If

If Sheet1.Range("A1").Value > 5 Then
    Debug.Print "Значение больше 5."
ElseIf Sheet1.Range("A1").Value < 5 Then
    Debug.Print "Значение меньше 5."
Else
    Debug.Print "Значение равно 5."
End If

Что такое IF  и зачем оно тебе?

Оператор VBA If используется, чтобы позволить вашему коду
делать выбор, когда он выполняется.

Вам часто захочется сделать выбор на основе данных, которые
читает ваш макрос.

Например, вы можете захотеть читать только тех учеников, у
которых оценки выше 70. Когда вы читаете каждого учащегося, вы можете
использовать инструкцию If для проверки отметок каждого учащегося.

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

Тестовые данные

Мы собираемся использовать следующие тестовые данные для
примеров кода в этом посте.

Формат операторов VBA If Then

Формат оператора If Then следующий

За ключевым словом If следуют условие и ключевое слово Then

Каждый раз, когда вы используете оператор If Then, вы должны использовать соответствующий оператор End If.

Когда условие оценивается как истинное, обрабатываются все
строки между If Then и End If.

If [условие верно] Then
    [строки кода]
    [строки кода]
    [строки кода]
End If

Чтобы сделать ваш код более читабельным, рекомендуется
делать отступы между операторами If Then и End If.

Отступ между If и End If

Отступ означает просто переместить строку кода на одну вкладку вправо. Правило большого пальца состоит в том, чтобы сделать отступ между начальным и конечным операторами, такими как:

Sub … End Sub
If Then … End If
If Then… ElseIf … Else … Endif
For … Next
Do While … Loop
Select Case … End Case

Для отступа в коде вы можете выделить строки для отступа и нажать клавишу Tab. Нажатие клавиш Shift + Tab сделает отступ кода, т.е. переместит его на одну вкладку влево.

Вы также можете использовать значки на панели инструментов Visual Basic для отступа кода.

Если вы посмотрите на примеры кода на этом сайте, вы увидите, что код имеет отступ.

Простой пример If Then

Следующий код выводит имена всех студентов с баллами более 50.

Sub ChitatOcenki()
    
    Dim i As Long
    ' Пройдите столбцы отметок
    For i = 2 To 11
        ' Проверьте, больше ли баллов,чем 50
        If Sheet1.Range("C" & i).Value > 50 Then
            ' Напечатайте имя студента в «Immediate Window» (Ctrl + G)
            Debug.Print Sheet1.Range("A" & i).Value & " " & Sheet1.Range("B" & i).Value
        End If
    
    Next
    
End Sub

Результаты:

• Василий Кочин
• Максим Бородин
• Дмитрий Маренин
• Олеся Клюева
• Евгений Яшин

Поэкспериментируйте с этим примером и проверьте значение или знак > и посмотрите, как изменились результаты.

Условия IF

Часть кода между ключевыми словами If и Then называется условием. Условие — это утверждение, которое оценивается как истинное или ложное. Они в основном используются с операторами Loops и If. При создании условия вы используете такие знаки, как «>, <, <>,> =, <=, =».

Ниже приведены примеры условий:

Вы могли заметить x = 5, как условие. Не стоит путать с х = 5, при использовании в качестве назначения.

Когда в условии используется «=», это означает, что «левая сторона равна правой стороне».

В следующей таблице показано, как знак равенства используется
в условиях и присваиваниях.

Последняя запись в приведенной выше таблице показывает
оператор с двумя равными. Первый знак равенства — это присвоение, а любые
последующие знаки равенства — это условия.

Поначалу это может показаться странным, но подумайте об этом
так. Любое утверждение, начинающееся с переменной и равно, имеет следующий
формат

[переменная] [=] [оценить эту часть]

Поэтому все, что находится справа от знака равенства, оценивается и результат помещается в переменную. Посмотрите на последние три строки таблицы, как:

[x] [=] [5]

[b] [=] [6 = 5]

[x] [=] [MyFunc (5,6)]

Использование If ElseIf

Инструкция ElseIf позволяет вам выбирать из нескольких вариантов. В следующем примере мы печатаем баллы, которые находятся в диапазоне.

Sub IspElseIf()
    
    If Marks >= 85 Then
        Debug.Print "Высший балл"
    ElseIf Marks >= 75 Then
        Debug.Print "Отлично"
    End If
    
End Sub

Важно понимать, что порядок важен. Условие If проверяется
первым.

Если это правда, то печатается «Высший балл», и оператор If заканчивается.

Если оно ложно, то код переходит к следующему ElseIf и
проверяет его состояние.

Давайте поменяемся местами If и ElseIf из последнего
примера. Код теперь выглядит так

Sub IspElseIfNeverno()
    
    ' Этот код неверен, так как ElseIf никогда не будет верным
    If Marks >= 75 Then
        Debug.Print "Отлично"
    ElseIf Marks >= 85 Then
        ' код никогда не достигнет здесь
        Debug.Print "Высший балл"
    End If
    
End Sub

В этом случае мы сначала проверяем значение более 75. Мы никогда не будем печатать «Высший балл», потому что, если значение больше 85, это вызовет первый оператор if.

Чтобы избежать подобных проблем, мы должны использовать два
условия. Они помогают точно указать, что вы ищете, чтобы избежать путаницы.
Пример ниже показывает, как их использовать. Мы рассмотрим более многочисленные
условия в разделе ниже.

If marks >= 75 And marks < 85 Then
    Debug.Print "Отлично"
ElseIf marks >= 85 And marks <= 100 Then
    Debug.Print "Высший балл"
End If

Давайте расширим оригинальный код. Вы можете использовать столько операторов ElseIf, сколько захотите. Мы добавим еще несколько, чтобы учесть все наши классификации баллов.

Использование If Else

Утверждение Else используется, как ловушка для всех. Это в основном означает «если бы не было условий» или «все остальное». В предыдущем примере кода мы не включили оператор печати для метки сбоя. Мы можем добавить это, используя Else.

Sub IspElse()
    
    If Marks >= 85 Then
        Debug.Print "Высший балл"
    ElseIf Marks >= 75 Then
        Debug.Print "Отлично"
    ElseIf Marks >= 55 Then
        Debug.Print "Хорошо"
    ElseIf Marks >= 40 Then
        Debug.Print "Удовлетворительно"
    Else
        ' Для всех других оценок
        Debug.Print "Незачет"
    End If
    
End Sub

Так что, если это не один из других типов, то это провал.

Давайте напишем некоторый код с помощью наших примеров
данных и распечатаем студента и его классификацию.

Sub DobClass()
    
    ' получить последнюю строку
    Dim startRow As Long, lastRow As Long
    startRow = 2
    lastRow = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row
    
    Dim i As Long, Marks As Long
    Dim sClass As String

    ' Пройдите столбцы отметок
    For i = startRow To lastRow
        Marks = Sheet1.Range("C" & i).Value
        ' Проверьте отметки и классифицируйте соответственно
        If Marks >= 85 Then
            sClass = "Высший балл"
        ElseIf Marks >= 75 Then
            sClass = "Отлично"
        ElseIf Marks >= 55 Then
            sClass = "Хорошо"
        ElseIf Marks >= 40 Then
            sClass = "Удовлетворительно"
        Else
            ' Для всех других оценок
            sClass = "Незачет"
        End If
    
        ' Запишите класс в столбец E
        Sheet1.Range("E" & i).Value = sClass
    Next
    
End Sub

Результаты выглядят так: в столбце E — классификация баллов

Используя If And/If Or

В выражении If может быть несколько условий. Ключевые слова VBA And и Or позволяют использовать несколько условий.

Эти слова работают так же, как вы используете их на
английском языке.

Давайте снова посмотрим на наши примеры данных. Теперь мы
хотим напечатать всех студентов, которые набрали от 50 до 80 баллов.

Мы используем Аnd, чтобы добавить дополнительное условие. Код гласит: если оценка больше или равна 50 и меньше 75, напечатайте имя студента.

Sub ProverkaStrokiOcenok()

    Dim i As Long, marks As Long
    For i = 2 To 11
        
        ' Хранить оценки для текущего студента
        marks = Sheet1.Range("C" & i).Value
        
        ' Проверьте, если отметки больше 50 и меньше 75
        If marks >= 50 And marks < 80 Then
             ' Напечатайте имя и фамилию в Immediate window (Ctrl+G)
             Debug.Print Sheet1.Range("A" & i).Value & Sheet1.Range("B" & i).Value
        End If
    
    Next

End Sub

Вывести имя и фамилию в результаты:

• Дмитрий Маренин
• Олеся Клюева
• Евгений Яшин

В нашем следующем примере мы хотим знать, кто из студентов сдавал историю или геометрию. Таким образом, в данном случае мы говорим, изучал ли студент «История» ИЛИ изучал ли он «Геометрия» (Ctrl+G).

Sub ChitatObektOcenki()
    
    Dim i As Long, marks As Long
    
    ' Пройдите столбцы отметок
    For i = 2 To 11
        marks = Sheet1.Range("D" & i).Value
        ' Проверьте, если отметки больше 50 и меньше 80
        If marks = "История" Or marks = "Геометрия" Then
            ' Напечатайте имя и фамилию в Immediate window (Ctrl+G)
            Debug.Print Sheet1.Range("A" & i).Value & " " & Sheet1.Range("B" & i).Value
        End If
    
    Next
    
End Sub

Результаты:

• Василий Кочин
• Александр Грохотов
• Дмитрий Маренин
• Николай Куликов
• Олеся Клюева
• Наталия Теплых
• Дмитрий Андреев

Использование нескольких таких условий часто является
источником ошибок. Эмпирическое правило, которое нужно помнить, должно быть
максимально простым.

Использование IF AND

And работает следующим образом:

Что вы заметите, так это то, что And верно только тогда, когда все условия выполняются.

Использование IF OR

Ключевое слово OR работает следующим образом

Что вы заметите, так это то, что OR ложно, только когда все условия ложны.

Смешивание And и Or может затруднить чтение кода и привести к ошибкам. Использование скобок может сделать условия более понятными.

Sub OrSAnd()
    
 Dim subject As String, marks As Long
 subject = "История"
 marks = 5
    
 If (subject = "Геометрия" Or subject = "История") And marks >= 6 Then
     Debug.Print "ИСТИНА"
 Else
     Debug.Print "ЛОЖЬ"
 End If
    
End Sub

Использование IF NOT

Также есть оператор NOT. Он возвращает противоположный результат условия.

Следующие две строки кода эквивалентны.

If marks < 40 Then 
If Not marks >= 40 Then

так же, как и

If True Then 
If Not False Then 

и

If False Then 
If Not True Then 

Помещение условия в круглые скобки облегчает чтение кода

If Not (marks >= 40) Then

Распространенное использование Not — при проверке, был ли установлен объект. Возьмите Worksheet для примера. Здесь мы объявляем рабочий лист.

Dim mySheet As Worksheet
' Некоторый код здесь

Мы хотим проверить действительность mySheet перед его использованием. Мы можем проверить, если это Nothing.

If mySheet Is Nothing Then

Нет способа проверить, является ли это чем-то, поскольку есть много разных способов, которым это может быть что-то. Поэтому мы используем NOT с Nothing.

If Not mySheet Is Nothing Then

Если вы находите это немного запутанным, вы можете использовать круглые скобки, как здесь

If Not (mySheet Is Nothing) Then

Функция IIF

VBA имеет функцию, аналогичную функции Excel If. В Excel вы часто используете функцию If следующим образом:

= ЕСЛИ (F2 =»»,»», F1 / F2)

Формат

= If (условие, действие, если ИСТИНА, действие, если ЛОЖЬ).

VBA имеет функцию IIf, которая работает так же. Давайте посмотрим на примере. В следующем коде мы используем IIf для проверки значения переменной val. Если значение больше 10, мы печатаем ИСТИНА, в противном случае мы печатаем ЛОЖЬ.

Sub ProveritVal()
 
    Dim result As Boolean
    Dim val As Long
    
    ' Печатает ИСТИНА
    val = 11
    result = IIf(val > 10, ИСТИНА, ЛОЖЬ)
    Debug.Print result
    
    ' печатает ЛОЖЬ
    val = 5
    result = IIf(val > 10, ИСТИНА, ЛОЖЬ)
    Debug.Print result
    
End Sub

В нашем следующем примере мы хотим распечатать «Удовлетворитеьно» или «Незачет» рядом с каждым студентом в зависимости от их баллов. В первом фрагменте кода мы будем использовать обычный оператор VBA If, чтобы сделать это.

Sub ProveritDiapazonOcenok()

    Dim i As Long, marks As Long
    For i = 2 To 11
        
        ' Хранить оценки для текущего студента
        marks = Sheet1.Range("C" & i).Value
        
        ' Проверьте, прошел ли студент или нет
        If marks >= 40 Then
             ' Запишите имена для столбца F
             Sheet1.Range("E" & i) = "Удовлетворительно"
        Else
             Sheet1.Range("E" & i) = "Незачет"
        End If
    
    Next

End Sub

В следующем фрагменте кода мы будем использовать функцию IIf. Код здесь намного аккуратнее.

Sub ProveritDiapazonOcenok ()

    Dim i As Long, marks As Long
    For i = 2 To 11
        
        ' Хранить оценки для текущего студента
        marks = Sheet1.Range("C" & i)
        
        ' Проверьте, прошел ли студент или нет
        Sheet1.Range("E" & i).Value = IIf(marks >= 40,"Удовлетворительно","Незачет")
    
    Next

End Sub

Функция IIf очень полезна для простых случаев, когда вы имеете дело с двумя возможными вариантами.

Использование Nested IIf

Вы также можете вкладывать IIf-операторы, как в Excel. Это означает использование результата одного IIf с другим. Давайте добавим еще один тип результата в наши предыдущие примеры. Теперь мы хотим напечатать «Отлично», «Удовлетворительно» или «Незачетт» для каждого студента.

Используя обычный VBA, мы сделали бы это так

Sub ProveritRezultatiTip2()

    Dim i As Long, marks As Long
    For i = 2 To 11
        
        ' Хранить оценки для текущего студента
        marks = Sheet1.Range("C" & i).Value
        
        If marks >= 75 Then
             Sheet1.Range("E" & i).Value = "Отлично"
        ElseIf marks >= 40 Then
             ' Запишите имена для столбца F
             Sheet1.Range("E" & i).Value = "Удовлетворительно"
        Else
             Sheet1.Range("E" & i).Value = "Незачет"
        End If
    
    Next

End Sub

Используя вложенные IIfs, мы могли бы сделать это так

Sub IspNestedIIF()

Dim i As Long, marks As Long, result As String
For i = 2 To 11
    
marks = Sheet1.Range("C" & i).Value
result = IIf(marks >= 55,"Хорошо",IIf(marks >= 40,"Удовлетворительно","Незачет"))

Sheet1.Range("E" & i).Value = result

Next

End Sub

Использование вложенного IIf хорошо в простых случаях, подобных этому. Код прост для чтения и, следовательно, вряд ли вызовет ошибки.

Чего нужно остерегаться

Важно понимать, что функция IIf всегда оценивает как
Истинную, так и Ложную части выражения независимо от условия.

В следующем примере мы хотим разделить по баллам, когда он не равен нулю. Если он равен нулю, мы хотим вернуть ноль.

marks = 0
total = IIf(marks = 0, 0, 60 / marks)

Однако, когда отметки равны нулю, код выдаст ошибку «Делить на ноль». Это потому, что он оценивает как Истинные, так и Ложные утверждения. Здесь ложное утверждение, т.е. (60 / Marks), оценивается как ошибка, потому что отметки равны нулю.

Если мы используем нормальный оператор IF, он будет
запускать только соответствующую строку.

marks = 0
If marks = 0 Then
    'Выполняет эту строку только когда отметки равны нулю
    total = 0
Else
    'Выполняет только эту строку, когда отметки не равны нулю
    total = 60 / marks
End If

Это также означает, что если у вас есть функции для ИСТИНА и ЛОЖЬ, то обе будут выполнены. Таким образом, IIF будет запускать обе функции, даже если он использует только одно возвращаемое значение. Например:

' Обе функции будут выполняться каждый раз
total = IIf(marks = 0, Func1, Func2)

IF против IIf

Так что лучше?

В этом случае вы можете видеть, что IIf короче для написания и аккуратнее. Однако если условия усложняются, вам лучше использовать обычное выражение If. Недостатком IIf является то, что он недостаточно известен, поэтому другие пользователи могут не понимать его так же, как и код, написанный с помощью обычного оператора if.

Кроме того, как мы обсуждали в последнем разделе, IIF всегда оценивает части ИСТИНА и ЛОЖЬ, поэтому, если вы имеете дело с большим количеством данных, оператор IF будет быстрее.

Мое эмпирическое правило заключается в том, чтобы
использовать IIf, когда
он будет прост для чтения и не требует вызовов функций. Для более сложных
случаев используйте обычный оператор If.

Использование Select Case

Оператор Select Case
— это альтернативный способ написания статистики If с большим количеством ElseIf. Этот тип операторов
вы найдете в большинстве популярных языков программирования, где он называется
оператором Switch. Например,
Java, C #, C ++ и Javascript
имеют оператор switch.

Формат

Select Case [переменная]
    Case [условие 1]
    Case [условие 2]
    Case [условие n]
    Case Else
End Select

Давайте возьмем наш пример DobClass сверху и перепишем его с помощью оператора Select Case.

Sub DobavitClass()
    
    ' получить последнюю строку
    Dim startRow As Long, lastRow As Long
    startRow = 2
    lastRow = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row
    
    Dim i As Long, Marks As Long
    Dim sClass As String

    ' Пройдите столбцы отметок
    For i = startRow To lastRow
        Marks = Sheet1.Range("C" & i).Value
        ' Проверьте отметки и классифицируйте соответственно
        If Marks >= 85 Then
            sClass = "Высший балл"
        ElseIf Marks >= 75 Then
            sClass = "Отлично"
        ElseIf Marks >= 55 Then
            sClass = "Хорошо"
        ElseIf Marks >= 40 Then
            sClass = "Удовлетворительно"
        Else
            ' Для всех других оценок
            sClass = "Незачет"
        End If
    
        ' Запишите класс в столбец E
        Sheet1.Range("E" & i).Value = sClass
    Next
    
End Sub

Ниже приведен тот же код с использованием оператора Select Case. Главное, что вы заметите, это то, что мы используем “Case 85 to 100” rather than “marks >=85 And marks <=100”. , а не “marks >=85 And marks <=100”.

Sub DobavitClassSSelect()
    
    ' получить первую и последнюю строки
    Dim firstRow As Long, lastRow As Long
    firstRow = 2
    lastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
    
    Dim i As Long, marks As Long
    Dim sClass As String

    ' Пройдите столбцы отметок
    For i = firstRow To lastRow
        marks = Sheet1.Range("C" & i).Value
        ' Проверьте отметки и классифицируйте соответственно
        Select Case marks
        Case 85 To 100
            sClass = "Высший балл"
        Case 75 To 84
            sClass = "Отлично"
        Case 55 To 74
            sClass = "Хорошо"
        Case 40 To 54
            sClass = "Удовлетворительно"
        Case Else
            ' Для всех других оценок
            sClass = "Незачет"
        End Select
        ' Запишите класс в столбец E
        Sheet1.Range("E" & i).Value = sClass
    Next
    
End Sub

Использование Case Is

Вы можете переписать оператор select в том же формате, что и оригинальный ElseIf. Вы можете использовать Is с Case.

Select Case marks
    Case Is >= 85
         sClass = "Высший балл"
    Case Is >= 75
        sClass = "Отлично"
    Case Is >= 55
        sClass = "Хорошо"
    Case Is >= 40
        sClass = "Удовлетворительно"
    Case Else
        ' Для всех других оценок
        sClass = "Незачет"
End Select

Вы можете использовать Is для проверки нескольких значений.
В следующем коде мы проверяем, равны ли оценки 5, 7 или 9.

Sub TestNeskZnach()
    
    Dim marks As Long
    marks = 7
    
    Select Case marks
        Case Is = 5, 7, 9
            Debug.Print True
        Case Else
            Debug.Print False
    End Select
    
End Sub

Попробуйте это упражнение

В этой статье много рассказывали о выражении If. Хороший способ помочь вам понять — это попытаться написать код, используя темы, которые мы рассмотрели. В следующем упражнении используются тестовые данные из этой статьи. Ответ на упражнение ниже.

Мы будем использовать ячейку G1, чтобы написать имя
субъекта.

В колонках от H до L запишите всех студентов, которые имеют оценки по этому предмету. Мы хотим классифицировать их результат как успешный или неудачный. Оценка ниже 40 — неудача, оценка 40 или выше — Зачет.

Колонка H: Имя

Колонка I: Фамилия

Колонка J: Баллы

Колонка H: Предмет

Столбец I: Тип результата — Зачет или Незачет

Если ячейка G1 содержит «Геометрия», то ваш результат должен выглядеть следующим образом:

Ответ на упражнение

Следующий код показывает, как выполнить вышеупомянутое упражнение.

Примечание: есть много способов выполнить задачу, поэтому не расстраивайтесь, если ваш код отличается.

Sub ZapisatRezultat()
     
    ' Получить тему
    Dim subject As String
    subject = Sheet1.Range("G1").Value
     
    If subject = "" Then
        Exit Sub
    End If
     
    ' Получить первый и последний ряд
    Dim firstRow As Long, lastRow As Long
    firstRow = 2
    lastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
     
    ' Очистить любой существующий вывод
    Sheet1.Range("H:L").ClearContents
     
    ' Отслеживать выходной ряд
    Dim outRow As Long
    outRow = 1
     
    Dim i As Long, marks As Long, rowSubject As String
    ' Прочитать данные
    For i = firstRow To lastRow
        marks = Sheet1.Range("C" & i).Value
        rowSubject = Sheet1.Range("D" & i).Value
        If rowSubject = subject Then
            ' Запишите данные студента, если предмет Геометрия
            Sheet1.Range("A" & i & ":" & "D" & i).Copy
            Sheet1.Range("H" & outRow).PasteSpecial xlPasteValues
             
            ' Запишите Зачет или Незачет
            If marks < 40 Then
                Sheet1.Range("L" & outRow).Value = "Незачет"
            ElseIf marks >= 40 Then
                Sheet1.Range("L" & outRow).Value = "Зачет"
            End If
            ' Переместить вывод в следующую строку
            outRow = outRow + 1
        End If
         
    Next i
     
End Sub

Операторы условия в VBA

​Смотрите также​ Sub​ как формулу массива (см.​ хотя бы в​​ возвращает ИСТИНА если​​ «ЕСЛИ» в Excel.​​При работе с англоязычной​​ «ЕСЛИ» позволяет оставлять​ этом этапе у​ двух действий.​ формула может обработать.​ проставить не результат,​ 25», в любом​Функция​ 9​Select Case​

Оператор «If … Then» в Visual Basic

​Ниже приведён пример, в​​Наиболее важные операторы условия,​​В примере №1​ файл примера):​ одной ячейке значение​ все условия истинны​ Примеры, приведённые ниже,​ версией «Экселя» необходимо​ незаполненными одно или​ большинства пользователей возникает​Говоря более простыми словами,​

​ Таким образом, Вы​​ а оценку из​​ другом случае —​

​ЕСЛИ​​Так можно проверить, совпадает​​Выражение​
​ котором при помощи​​ используемые в Excel​ приведена краткая форма​
​=И(A6:A9>100)​​Функция ИЛИ() также может​​ или ЛОЖЬ если​
​ демонстрируют все основные​​ учитывать тот факт,​ несколько своих параметров.​
​ проблема. Связано это​
​ функция "ЕСЛИ" в​​ можете создать нужное​ ряда: Отлично, Хорошо​ «меньше или равно​
​одна из самых​

​ ли значение​​Case​​ оператора​​ VBA – это​​ записи, что означает:​(для ввода формулы​ вернуть только значения​ хотя бы одно​

​ способы её использования.​ что и все​ В таком случае,​​ со специфической задачей​​ случае истинного значения​ количество вложений. Правда​ и Плохо. Оценка​ 25».​

​ популярных и часто​Выражения​Значение1​If … Then​ операторы​если(if) 100 = 100(условие)​ в ячейку вместо​ ИСТИНА или ЛОЖЬ,​ ложно.​Простейшим примером для разбора​ функции также пишутся​ результаты будут зависеть​ многоусловности алгоритма. В​

​ некоторого выражения, выполняет​ есть очевидный недостаток​Отлично​Функция​ используемых функций Excel.​​с одним из​​   ​цвет заливки активной​If … Then​ тогда(then) Msgbox True(оператор)​ENTER​ но, в отличие​​И(логическое_значение1; [логическое_значение2]; …)​​ работы функции является​ на английском языке.​

​ от того, какие​ эксель функция «ЕСЛИ»​ одно действие, в​​ такой конструкции, после​​ставится при количестве​ЕСЛИ​ Используя ее совместно​

Оператор «Select Case» в Visual Basic

​ перечисленных значений. Перечисленные​​Действия в случае, если​​ ячейки изменяется в​​и​​2.​нужно нажать​ от И(), она​логическое_значение​ сравнение двух чисел.​ В этом случае​

​ аргументы были опущены​​ проверяет лишь одну​​ случае ложного -​

​ 3-5 вложений формула​​ баллов более 60,​
​является очень гибкой​​ с операторами сравнения​
​ значения разделяются запятыми.​​ результат Выражения соответствует​ зависимости от находящегося​Select Case​
​If​​CTRL+SHIFT+ENTER​
​ возвращает ЛОЖЬ, только​​   — любое значение или​ Для наличия вариативности,​ функция "ЕСЛИ" будет​
​ пользователем.​
​ операцию сравнения в​
​ другое. При этом​​ станет нечитаемой и​ оценка​ и ее можно​ и другими логическими​Case 10​
​ Значению1​

​ в ней значения:​​. Оба этих выражения​​условие​)​ если все ее​ выражение, принимающее значения​

​ зададим значения двух​ записываться, как IF,​​Если на месте логического​​ логическом выражении, то​ в качестве действий​ громоздкой, и с​Хорошо​

​ применять в различных​ функциями Excel, можно​

​Так проверяется, совпадает ли​Case​If ActiveCell.Value <​ проверяют одно или​​Then​​В случае, если границы​​ условия ложны. Чтобы​​ ИСТИНА или ЛОЖЬ.​

​с заданным значением.​Действия в случае, если​ окрашивается в зелёный​ результата, выполнят различные​2й_оператор​​ границы можно ввести​​ таблицу истинности для​обеих​ будем сравнивать между​ теми же.​​ отвечающего за ложное​​ нескольких условий необходимо​

​ в том числе​ благородные инструменты для​​в остальных случаях.​​ результаты переаттестации сотрудников​ разобрать ее действие​Case 11 To 20​

​ результат Выражения соответствует​ цвет ElseIf ActiveCell.Value​
​ действия. Далее мы​
​End If​

​ в соседний столбец​

office-guru.ru

Функция ЕСЛИ в Excel на простом примере

​ И() и ИЛИ().​​ячейках​​ собой. Для решения​»Эксель» позволяет использовать до​ выполнение алгоритма. Причиной​ воспользоваться свойством вложенности.​ и «ЕСЛИ». Благодаря​ обработки большого количества​Чтобы решить эту задачу,​ фирмы:​ на простых примерах,​Таким образом можно записать​ Значению2​ < 10 Then​ поговорим об этих​Пример №2:​ и организовать попарное​​В математических вычислениях EXCEL​​A1 A2​

Коротко о синтаксисе

​ этой задачи следует​​ 64 вложенных функций​​ тому служит факт,​Чтобы понять, как задать​

​ этому в «Эксель»​

​ условий, например, функция​ введем в ячейку​В столбец C нам​ а также научимся​ выражение для проверки,​…​ ActiveCell.Interior.Color = 49407​ двух операторах условия​Sub example2() If 100​ сравнение списков с​ интерпретирует значение ЛОЖЬ​содержатся значения больше​ воспользоваться записью следующего​

​ «ЕСЛИ» — такого​ что программа ассоциирует​ несколько условий в​ функция «ЕСЛИ» допускает​ВПР​ C3 следующую формулу:​ необходимо выставить результат​ использовать сразу несколько​

Пример 1

​ удовлетворяет ли значение​Case Else​ ‘Ячейка окрашивается в​ подробнее.​​ < 10 Then​​ помощью формулы массива:​ как 0, а​​ 100 (т.е. выражение​​ вида:​ количества хватает для​ пустое место с​ «ЕСЛИ», удобно воспользоваться​ ответвление при выполнении​или​=ЕСЛИ(B3>60;»Отлично»;ЕСЛИ(B2>45;»Хорошо»;»Плохо»))​

Пример 2

​ экзамена, который должен​​ функций​​Выражения​   ​ оранжевый цвет Else​Оператор​ MsgBox True Else​=И(A18:A21>B18:B21)​ ИСТИНА как 1.​ A1>100 — ИСТИНА​

​=ЕСЛИ(А1=В1; «числа равны»; «числа​ решения практически всех​ нулём, что на​ примером. Пусть необходимо​ некоторого алгоритма действий​​ПРОСМОТР​​и нажмем​​ содержать всего два​​ЕСЛИ​условию вида​Действия в случае, если​ ActiveCell.Interior.Color = 255​

1. ​If … Then​ MsgBox False End​Вместо диапазона с границами​ В этом легко​
2. ​и​​ неравны»).​​ задач, однако, даже​​ логическом языке означает​​ проверить, находится ли​
3. ​ при решении различных​.​Enter​ варианта:​в одной формуле.​от 11 до 20​ результат Выражения не​
4. ​ ‘Ячейка окрашивается в​проверяет условие и,​ If End Sub​ можно также использовать​ убедиться записав формулы​

Функция ЕСЛИ и несколько условий

​выражение A2>100 -​​В этом случае при​​ это небольшое число​ «ЛОЖЬ». Если оставить​ число в ячейке​ задач.​Итак, в этом уроке​.​Сдал​Функция​(эквивалентно неравенству «11​ соответствует ни одному​ красный цвет End​​ если оно истинно​​В примере №2​ константу массива:​ =ИСТИНА+0 и =ЛОЖЬ+0​​ ИСТИНА), то формула​​ наличии одинаковых значений​ нередко становится проблемой​​ пустым одно из​​ «А1» в заданном​

1. ​Простое описание большинства синтаксических​ мы рассмотрели логическую​Данная формула обрабатывает сразу​​или​​ЕСЛИ​​Case Else​​ из перечисленных вариантов​

   

2. ​ If​ (TRUE), то выполняется​ приведена полная форма​​=И(A18:A21>{9:25:29:39})​​Следствием этого является возможность​ вернет ИСТИНА, а​ в обеих ячейках,​ для пользователя. Причин​ значений, отвечающих за​ промежутке — от​ конструкций — один​​ функцию​​ два условия. Сначала​​Не сдал​​имеет всего три​Вот так, при помощи​ Значения​Обратите внимание, что как​ заданный набор действий.​
3. ​ записи с двумя​Оператор ветвления (условный оператор)​ альтернативной записи формулы​ если хотя бы​ результатом будет запись​ тому несколько: при​ выполнение в случае​ 5 до 10.​

​ из главных плюсов,​ЕСЛИ​ проверяется первое условие:​​. Те, кто набрал​​ аргумента:​ ключевого слова​​End Select​​ только условие становится​ Также может быть​ операторами, что означает:​ — это структура,​ =И(A1>100;A2>100) в виде​ в одной ячейке​ «числа равны», во​ создании запроса, достаточно​ истины или лжи,​ Как можно заметить,​ которыми славится «Эксель».​во всей ее​B3>60​

​ более 45 баллов​=ЕСЛИ(заданное_условие; значение_если_ИСТИНА; значение_если_ЛОЖЬ)​Else​Элемент​​ истинным, выполнение условного​​ определён набор действий,​​если(if) 100 < 10(условие)​​ которая представляет собой​

​ =(A1>100)*(A2>100)​ значение​ всех остальных случаях​​ легко ошибиться с​​ то при его​ в данном случае​ Функция «ЕСЛИ» также​ красе и примерах,​. Если оно истинно,​ – сдали экзамен,​​Первый аргумент – это​​, указываются действия для​Case Else​ оператора прерывается. Следовательно,​ которые должны быть​ тогда(then) Msgbox True(1й_оператор)​ простую форму проверки​Значение второй формулы​

​Другими словами, формула =И(ИСТИНА;ИСТИНА)​

office-guru.ru

Функция «Если» в Excel

​ — «числа неравны».​ записью формулы -​ выборе результатом будет​ требуется провести проверку​ относится к их​ а также разобрали​ то формула возвращает​ остальные нет.​

Значение функции

​ условие, благодаря которому​ того случая, если​не является обязательным,​ если значение переменной​ выполнены, если условие​ иначе(else) Msgbox False(2й_оператор)​ заданных условий, впоследствии​ будет =1 (ИСТИНА),​ вернет ИСТИНА,​Для рассмотрения работы условного​ по статистике, каждая​

​ «0».​ двух условий, проверив​ числу — после​ простой пример с​ значение «Отлично», а​Выделите ячейку, в которую​ формула может принимать​ значение​ но его рекомендуется​ActiveCell​ ложно (FALSE).​ конец(end if)​ чего выполняются определенные​ только если оба​а формулы =И(ИСТИНА;ЛОЖЬ)​ оператора с несколькими​ малейшая неточность в​Отдельно стоит отметить случай,​ на истинность сравнение​

Синтаксис «ЕСЛИ»

​ ключевого слова в​ использованием сразу нескольких​ остальные условия не​ необходимо ввести формулу.​ решения. Условие проверяется​Выражения​ использовать для обработки​меньше 5, то​Синтаксис оператора​3. If​ операторы.​ аргумента истинны, т.е.​ или =И(ЛОЖЬ;ИСТИНА) или​ условиями, в качестве​ 25 % случаев​

​ когда вместо логического​

Вложенность

​ с двумя величинами​ скобках поочередно указывается​ функций​ обрабатываются. Если первое​ В нашем случае​ в самую первую​не соответствует ни​ непредвиденных значений.​ истинным становится первое​If … Then​1е_условие​Оператор​ равны 1. Только​ =И(ЛОЖЬ;ЛОЖЬ) или =И(ЛОЖЬ;ИСТИНА;ИСТИНА)​ примера можно использовать​ приводит к неверному​ выражения введена не​

Несколько условий

​ — 5 и​ условие, действие при​ЕСЛИ​ условие ложно, то​ это ячейка C3.​ очередь и способно​ одному из перечисленных​В следующем примере при​ условие и ячейка​вот такой:​Then​If…Then…Else…End if​ произведение 2-х единиц​ вернут ЛОЖЬ.​ нахождение числа решений​ результату, что является​ конструкция, возвращающая значение​ 10. Чтобы реализовать​

​ истинном значении, а​в одной формуле.​ функция​Введите в нее выражение:​ вернуть всего два​ вариантов​ помощи конструкции​ окрашивается в зелёный​If​1й_оператор​имеет следующий синтаксис:​ даст 1 (ИСТИНА),​Функция воспринимает от 1​ квадратного уравнения. В​ достаточно большим показателем.​ «ИСТИНА» или «ЛОЖЬ»,​ этот пример в​ затем при ложном.​ Надеюсь, что эта​ЕСЛИ​=ЕСЛИ(B3>45; «Сдал»; «Не сдал»)​

​ значения – ИСТИНА​

​Case​Select Case​ цвет. После этого​Условие1​ElseIf​If​ что совпадает с​ до 255 проверяемых​ данном случае проверка​Ещё одним минусом большой​ а некоторый набор​ «Экселе», необходимо записать​ В схематическом виде​ информация была для​переходит ко второму:​и нажмите​ или ЛОЖЬ. Если​.​изменяется цвет заливки​ выполнение оператора​

Особые варианты функции

​Then​2е_условие​условие​ определением функции И().​ условий. Понятно, что​ производится по дискриминанту​ вложенности «ЕСЛИ» является​ символов или ссылка​ функцию в следующем​

​ это выглядит следующим​ Вас полезной. Удачи​B2>45​Enter​ условие истинно, то​Как только одно из​ текущей ячейки в​If … Then​   ​Then​Then​Эквивалентность функции И() операции​ 1 значение использовать​ — если он​ низкая удобочитаемость. Несмотря​ на ячейку. В​ виде:​ образом:​ Вам и больших​

​. Если второе условие​.​ формула вернет второй​ условий будет найдено,​ зависимости от находящегося​прерывается и остальные​Действия в случае, если​2й_оператор​1й_оператор​ умножения * часто​ бессмысленно, для этого​ меньше нуля, то​ на цветовые выделения​ том случае, когда​=ЕСЛИ(А1>5;ЕСЛИ(А1​ЕСЛИ(лог_выражение; [значение_если_истина]; [значение_если_ложь]);​ успехов в изучении​ истинно, то формула​Данная формула сравнивает значение​ аргумент, в противном​ выполняются соответствующие действия​ в ней значения:​ условия не проверяются.​ выполняется Условие1​End If​Else​ используется в формулах​ есть функция ЕСЛИ().​ решений нет, если​ программой некоторых частей​

​ в качестве параметра​Чтобы избежать многократного повторения​Одной из особенностей, которой​ Microsoft Excel!​ возвращает значение «Хорошо»,​ в ячейке B3​ случае третий.​ и производится выход​Select Case ActiveCell.Value​Более подробно о применении​ElseIf​Пример №3:​2й_оператор​

На что стоит обратить внимание

​ с Условием И,​ Чаще всего функцией​ равно нулю -​ запроса, даже несколько​ записано некоторое выражение,​ выводимой фразы, стоит​ отличается функция «ЕСЛИ»​Автор: Антон Андронов​ а если ложно,​ с числом 45,​О том, как задавать​ из конструкции​ Case Is​ в VBA условного​Условие2​Sub example3() If 100​1й_оператор выполняется в том​ например, для того​ И() на истинность​

​ оно одно, во​ вложенных функций, разобрать​ содержащие что-то помимо​ применить принцип вложенности​ — это вложенность.​Программа Microsoft Excel обладает​ то «Плохо».​ если значение больше​ условия в Excel,​Select Case​В приведённом выше примере​ оператора​Then​ = 120 Then​ случае, когда заданное​ чтобы сложить только​ проверяется 2-5 условий.​ всех остальных случаях​ которые очень непросто.​ числового значения или​ ещё раз, в​ То есть внутри​

Примеры

​ мощным инструментарием, способным​Скопировав формулу в остальные​ 45, то возвращает​ читайте статьи: Как​. То есть в​ показано, как можно​If … Then​

​   ​ MsgBox 120 ElseIf​ условие является истиной,​ те значения, которые​Сама по себе функция​ — существует два​ Таким образом, если​ логических слов, то​ качестве аргументов выбрав​ одной конструкции, может​ помочь в решении​ ячейки таблицы, можно​ строку «Сдал», иначе​

​ задать простое логическое​ любом случае будет​

​ различными способами задать​можно узнать на​Действия в случае, если​ 100 = 100​ если же условие​ больше 5​ И() имеет ограниченное​

​ корня. Чтобы записать​ спустя некоторое время​ это вызовет ошибку​ проверку возвращения значения​ находиться ещё одна,​ трудных вычислительных задач.​ увидеть, что на​ «Не сдал».​ условие в Excel​ выполнена только одна​ значение для элемента​ сайте Microsoft Developer​ выполняется Условие2​ Then MsgBox 100​ не равняется истине​И​ использование, т.к. она​ данное условие, достаточно​ придётся вернуться к​

​ при выполнении функции.​ функций, в зависимости​ от значения которой​ Одним из самых​ отлично сдал один​Скопировав формулу в остальные​ и Используем логические​ из перечисленных ветвей​

​Case​

fb.ru

Функция И() в MS EXCEL

​ Network.​Else​ End If End​ – тогда выполняется​меньше 10:​ может вернуть только​ составить запрос следующего​ конструкции или начать​

Синтаксис функции

​ Если указать адрес​

​ от которых и​​ зависит и общий​ используемых иструментов из​ человек, а на​

​ ячейки таблицы, можно​
​ функции Excel для​​Case​​в конструкции​​Оператор​​   ​ Sub​ 2й_оператор.​​=СУММПРОИЗВ((A1:A10>5)*(A1:A10​​ значения ИСТИНА или​ вида:​ работу с чужим​ ячейки или прописать​ производить вывод, или​ результат выполнения запроса.​

​ этого набора является​ оценки хорошо и​
​ увидеть, что 2​ задания сложных условий.​.​Select Case​

​Select Case​Действия в случае, если​В примере №3​Условный оператор If можно​Предположим, что необходимо проверить​ ЛОЖЬ, чаще всего​Для желающих лучше понять​ запросом, на понимание​ некоторое число/логическое значение,​

Совместное использование с функцией ЕСЛИ()

​ в самом начале​ Помимо самой функции,​ функция «ЕСЛИ».​ плохо по два​ человека из 5​Обратимся к примеру, приведенному​Более подробную информацию о​. Вот эти способы:​
​схож с оператором​ не выполнено ни​

​ приведена самая гибкая​​ использовать в трёх​​ все значения в​​ ее используют вместе​​ все возможности, которыми​ записи уйдёт немало​ то результат будет​ воспользоваться функцией «И»,​ внутри «ЕСЛИ» могут​

Сравнение с функцией ИЛИ()

​При работе в «Экселе»​ человека.​ не прошли переаттестацию.​ на рисунках ниже.​ работе VBA оператора​Case Is​If … Then​ одно из Условий​ форма условного оператора​ видах:​ диапазоне​ с функцией ЕСЛИ():​

Эквивалентность функции И() операции умножения *

​ обладает функция «ЕСЛИ»,​ времени. Кроме того,​ определять это содержимое.​ объединив в ней​ находиться и другие.​ необходимо понимать значение​Как видите, вместо второго​

​Функции​ В данном примере​Select Case​Таким образом при помощи​
​в том, что​End If​ If (структура с​1.​A6:A9​=ЕСЛИ(И(A1>100;A2>100);»Бюджет превышен»;»В рамках​ в Excel примеры​ каждая функция имеет​ Когда в ячейке​

​ все условия сразу.​ Но в первом​ функции «ЕСЛИ», чтобы​ и третьего аргументов​ЕСЛИ​ функция​можно найти на​ ключевого слова​​ он также проверяет​​В этом выражении элементы​
​ двумя операторами и​

Проверка множества однотипных условий

​If​на превышение некоторого​ бюджета»)​​ находятся в разделе​​ свою пару скобок,​ или в условии​ Такой подход усложнит​ случае данная составляющая​
​ конструировать правильные синтаксические​
​ функции​можно вкладывать друг​ЕСЛИ​ сайте Microsoft Developer​Case Is​
​ истинность условия и,​
​ElseIf​ двумя условиями), что​​условие​​ граничного значения, например​​Т.е. если в​​ справки, где подробно​

​ и случайно поставив​ записано число 0,​ понимание написанной конструкции​ может располагаться в​ запросы. Благодаря её​ЕСЛИ​ в друга, если​в первую очередь​
​ Network.​

​можно проверить, удовлетворяет​ в зависимости от​и​
​ означает:​

excel2.ru

Оператор ветвления If…Then…Else…End if

​Then​ 100. Можно, конечно​обеих​ описан ход решения​ её не на​ слово «ЛОЖЬ» или​ при небольшом уровне​

​ любом из трёх​​ алгоритму, производится выполнение​​можно подставлять новые​
​ необходимо расширить варианты​​ проверят условие​​Урок подготовлен для Вас​​ ли значение​​ результата, выбирает один​​Else​

​если(if) 100 = 120(1е_условие)​оператор​ записать формулу​ячейках​ каждого из них.​ своё место, придётся​ пустота, то результатом​

​ вложенности, но при​ частей синтаксической конструкции.​ некоторого логического сравнения,​

​ функции​ ​ принятия решений в​​A1>25​​ командой сайта office-guru.ru​​Выражения​

​ из вариантов действий.​

​оператора условия могут​ тогда(then) Msgbox 120(1й_оператор)​Пример №1:​=И(A6>100;A7>100;A8>100;A9>100)​

​A1 A2​Автор: Алексей Рулев​ долго искать ошибку.​​ будет ложное выполнение​ значительном числе условий​

​При работе со сложными​ ​ в зависимости от​​ЕСЛИ​​ Excel. Например, для​​. Если это так,​​Источник: http://www.excelfunctions.net/VBA-Conditional-Statements.html​​условию вида​​Синтаксис оператора​

​ не использоваться, если​

​ иначе если(ElseIf) 100​Sub example1() If 100​но существует более​содержатся значения больше​Функция И(), английский вариант​

​Для закрепления понимания стоит​ функции. Во всех​ такой подход будет​ задачами, используется функция​​ результатов которого будет​, тем самым расширяя​ рассмотренного ранее случая​ то формула возвратит​
​Перевел: Антон Андронов​​.​​Select Case​​ в них нет​​ = 100(2е_условие) тогда(then)​​ = 100 Then​​ компактная формула, правда​​ 100, то выводится​​ AND(), проверяет на​
​ на практике рассмотреть,​

​ других случаях выполнится​ более оптимальным.​ «ЕСЛИ» с несколькими​ произведено одно из​ число условий, которое​ переаттестации сотрудников, требуется​ текстовую строку «больше​

​Автор: Антон Андронов​Case 6, 7, 8,​вот такой:​ необходимости.​ Msgbox 100(2й_оператор)​ MsgBox True End​ которую нужно ввести​​ Бюджет превышен, если​ истинность условия и​ как работает функция​ истинный сценарий действий.​Стоит отметить, что функция​

excelworld.ru

​ условиями, однако, на​

Наиболее важные операторы условия, используемые в 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 прерывается и остальные условия не проверяются.

Более подробно о применении в VBA условного оператора If … Then можно узнать на сайте Microsoft Developer Network.

Оператор «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. Вот эти способы:

Как только одно из условий будет найдено, выполняются соответствующие действия и производится выход из конструкции Select Case. То есть в любом случае будет выполнена только одна из перечисленных ветвей Case.

Более подробную информацию о работе VBA оператора Select Case можно найти на сайте Microsoft Developer Network.