If then with range in excel

Пьер Корнель

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

Краткое руководство по 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

To perform complicated and powerful data analysis, you need to test various conditions at a single point in time. The data analysis might require logical tests also within these multiple conditions.

For this, you need to perform Excel if statement with multiple conditions or ranges that include various If functions in a single formula.

Those who use Excel daily are well versed with Excel If statement as it is one of the most-used formula. Here you can check various Excel If or statement, Nested If, AND function, Excel IF statements, and how to use them. We have also provided a VIDEO TUTORIAL for different If Statements.

There are various If statements available in Excel. You have to know which of the Excel If you will work at what condition. Here you can check multiple conditions where you can use Excel If statement.

1) Excel If Statement

If you want to test a condition to get two outcomes then you can use this Excel If statement.

=If(Marks>=40, “Pass”)

2) Nested If Statement

Let’s take an example that met the below-mentioned condition

• If the score is between 0 to 60, then Grade F
• If the score is between 61 to 70, then Grade D
• If the score is between 71 to 80, then Grade C
• If the score is between 81 to 90, then Grade B
• If the score is between 91 to 100, then Grade A

Then to test the condition the syntax of the formula becomes,

=If(B5<60, “F”,If(B5<71, “D”, If(B5<81,”C”,If(B5<91,”B”,”A”)

3) Excel If with Logical Test

There are 2 different types of conditions AND and OR. You can use the IF statement in excel between two values in both these conditions to perform the logical test.

AND Function: If you are performing the logical test based on AND function, then excel will give you TRUE as an outcome in every condition else it will return false.

OR Function: If you are using OR condition for the logical test, then excel will give you an outcome as TRUE if any of the situations match else it returns false.

For this, multiple testing is to be done using AND and OR function, you should gain expertise in using either or both of these with IF statement. Here we have used if the function with 3 conditions.

How to apply IF & AND function in Excel

• To perform this multiple if and statements in excel, we will take the data set for the student’s marks that contain fields such as English and Math’s Marks.
• The score of the English subject is stored in the D column whereas the Maths score is stored in column E.
• Let say a student passes the class if his or her score in English is greater than or equal to 20 and he or she scores more than 60 in Maths.
• To create a report in matters of seconds, if formula combined with AND can suffice.
• Type =IF( Excel will display the logical hint just below the cell F2. The parameters of this function are logical_test, value_if_true, value_if_false.
• The first parameter contains the condition to be matched. You can use multiple If and AND conditions combined in this logical test.
• In the second parameter, type the value that you want Excel to display if the condition is true. Similarly, in the third parameter type the value that will be displayed if your condition is false.

• Apply If & And formula, you will get =IF(AND(D2>=20,E2>=60),”Pass”,”Fail”).

• Add Pass/Fail column in the current table.

• After you have applied this formula, you will find the result in the column.
• Copy the formula from cell F2 and paste in all other cells from F3 to F13.

How to use If with Or function in Excel

To use If and Or statement excel, you need to apply a similar formula as you have applied for If & And with the only difference is that if any of the condition is true then it will show you True.

To apply the formula, you have to follow the above process. The formula is =IF((OR(D2>=20, E2>=60)), “Pass”, “Fail”). If the score is equal or greater than 20 for column D or the second score is equal or greater than 60 then the person is the pass.

How to Use If with And & Or function

If you want to test data based on several multiple conditions then you have to apply both And & Or functions at a single point in time. For example,

Situation 1: If column D>=20 and column E>=60

Situation 2: If column D>=15 and column E>=60

If any of the situations met, then the candidate is passed, else failed. The formula is

=IF(OR(AND(D2>=20, E2>=60), AND(D2>=20, E2>=60)), “Pass”, “Fail”).

4) Excel If Statement with other functions

Above we have learned how to use excel if statement multiple conditions range with And/Or functions. Now we will be going to learn Excel If Statement with other excel functions.

• Excel If with Sum, Average, Min, and Max functions

Let’s take an example where we want to calculate the performance of any student with Poor, Satisfactory, and Good.

If the data set has a predefined structure that will not allow any of the modifications. Then you can add values with this If formula:

=If((A2+B2)>=50, “Good”, If((A2+B2)=>30, “Satisfactory”, “Poor”))

Using the Sum function,

=If(Sum(A2:B2)>=120, “Good”, If(Sum(A2:B2)>=100, “Satisfactory”, “Poor”))

Using the Average function,

=If(Average(A2:B2)>=40, “Good”, If(Average(A2:B2)>=25, “Satisfactory”, “Poor”))

Using Max/Min,

If you want to find out the highest scores, using the Max function. You can also find the lowest scores using the Min function.

=If(C2=Max($C$2:$C$10), “Best result”, “ “)

You can also find the lowest scores using the Min function.

=If(C2=Min($C$2:$C$10), “Worst result”, “ “)

If we combine both these formulas together, then we get

=If(C2=Max($C$2:$C$10), “Best result”, If(C2=Min($C$2:$C$10), “Worst result”, “ “))

You can also call it as nested if functions with other excel functions. To get a result, you can use these if functions with various different functions that are used in excel.

So there are four different ways and types of excel if statements, that you can use according to the situation or condition. Start using it today.

So this is all about Excel If statement multiple conditions ranges, you can also check how to add bullets in excel in our next post.

I hope you found this tutorial useful

You may also like the following Excel tutorials:

• Multiple If Statements in Excel
• Excel Logical test
• How to Compare Two Columns in Excel (using VLOOKUP & IF)
• Using IF Function with Dates in Excel (Easy Examples)

Many people usually asked that how to write an excel nested if statements based on multiple ranges of cells to return different values in a cell? How to nested if statement using date ranges? How to use nested if statement between different values in excel 2013 or 2016?

• Nested IF statements based on multiple ranges
• Nested IF Statement Using Date Ranges
• Nested IF Statements For A Range Of Cells
• Nested IF Statement between different values

This post will guide you how to understand excel nested if statements through some classic examples.

Nested IF statements based on multiple ranges

Assuming that you want to reflect the below request through nested if statements:

a) If 1<B1<0, Then return 0.1

b) If 0.99<B1<5, then return 0.15

c) If 4.99<B1<15, then return 0.2

d) If 14.99<B1<30, then return 0.5

So if B1 cell was “14.5”, then the formula should be returned “0.2” in the cell.

From above logic request, we can get that it need 4 if statements in the excel formula, and there are multiple ranges so that we can combine with logical function AND in the nested if statements.  The below is the nested if statements that I have tested.

=IF(AND(B1>0,B1<1),0.1,IF(AND(B1>0.99, B1<5),0.15, IF(AND(B1>4.99,B1<15),0.2, IF(AND(B1>14.99,B1<30),0.5,””))))

If you don’t want to use AND function in the above nested if statement, can try the below formula:

=IF(B1<1,0.1, If(B1<5,0.15,IF(B1<15,0.2,IF(B1<30,0.5,””))))

Nested IF Statement Using Date Ranges

I want to write a nested IF statement to calculated the right Quarter based one the criteria in the below table.

According to the request, we need to compare date ranges, such as: if B1<E2<C1, then return A1.

So we can consider to use AND logical function in the nested if statement. The formula is as follows:

=IF(AND(E2>B1,E2<C1),A1,IF(AND(E2>B2,E2<C2),A2,IF(AND(E2>B3,E2<C3),A3,IF(AND(E2>B4,E2<C3),A4))))

Or we can use INDEX function and combine with MATCH Function to get the right quarter.

=INDEX($A$1:$A$4,MATCH(E2,$B$1:$B$4,1))

Nested IF Statements For A Range Of Cells

If you have the following requirement and need to write a nested IF statement in excel:

If any of the cells A1 to C1 contain “excelhow”, then return “excelhow” in the cell E1.

If any of the cells A1 to C1 contain “google”, then return “excelhow” in the cell E1.

If any of the cells A1 to C1 contain “ibm”, then return “ibm” in the cell E1.

If any of the cells A1 to C1 contain “Cloud”, then return “ibm” in the cell E1.

How to check if cell ranges A1:C1 contain another string, using “COUNTIF” function is a good choice.

Countif function: Counts the number of cells within a range that meet the given criteria

Let’s try to test the below nested if statement:

=IF(OR(COUNTIF(A3:C3,"excelhow")>0,COUNTIF(A3:C3,"google")>0),"excelhow",IF(OR(COUNTIF(A3:C3,"ibm")>0,COUNTIF(A3:D3,"cloud")>0),"ibm",""))

Nested IF Statement between different values

Assuming you have the following different range values, if the B1 has the value 65, then expected to return “under average”in cell C1, if the Cell B1 has the value 75, then return “average” in cell C1. And if the Cell B1 has the value 85, then return “above average” in the cell C1.

How do I format the nested if statement in Cell C1 to display the right value? Just try to use the below nested if function or using INDEX function.

=IF(B1< 0,"",IF(B1<= 70, "under average",IF(B1<=80, "Average", IF(B1<=100,"Above Average",""))))

• Excel IF function
  The Excel IF function perform a logical test to return one value if the condition is TRUE and return another value if the condition is FALSE. The IF function is a build-in function in Microsoft Excel and it is categorized as a Logical Function.The syntax of the IF function is as below:= IF (condition, [true_value], [false_value])….
• Excel nested if function
  The nested IF function is formed by multiple if statements within one Excel if function. This excel nested if statement makes it possible for a single formula to take multiple actions…
• Excel AND function
  The Excel AND function returns TRUE if all of arguments are TRUE, and it returns FALSE if any of arguments are FALSE.The syntax of the AND function is as below:= AND (condition1,[condition2],…) …
• Excel COUNTIF function
  The Excel COUNTIF function will count the number of cells in a range that meet a given criteria.This function can be used to count the different kinds of cells with number, date, text values, blank, non-blanks, or containing specific characters.etc.The syntax of the COUNTIF function is as below:= COUNTIF (range, criteria) …
• Excel INDEX function
  The Excel INDEX function returns a value from a table based on the index (row number and column number)The INDEX function is a build-in function in Microsoft Excel and it is categorized as a Lookup and Reference Function.The syntax of the INDEX function is as below:= INDEX (array, row_num,[column_num])…
• Excel MATCH  function
  The Excel MATCH function search a value in an array and returns the position of that item.The MATCH function is a build-in function in Microsoft Excel and it is categorized as a Lookup and Reference Function.The syntax of the MATCH function is as below:= MATCH  (lookup_value, lookup_array, [match_type])….

Пьер Корнель

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

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

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

Если Sheet1.Range («A1») Value> 5, то Debug.Print «Значение больше 5». ElseIf Sheet1.Range («A1») Значение Что такое 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 и End If

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

Ниже… Конец ниже
Если Тогда… Конец Если
Если То… ElseIf… Else… Endif
Для следующего
Делай, пока… Цикл
Выбрать дело… Конец дела

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

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

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

В следующем коде печатаются имена всех студентов, набравших больше 50 баллов.

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

Полученные результаты:

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

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

Условия IF

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

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

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

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

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

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

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

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

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

[x] [=] [5]

[b] [=] [6 = 5]

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

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

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

Sub IspElseIf () Если оценок> = 85, то Debug.Print «Наивысший балл» ElseIf Marks> = 75 Then Debug.Print «Отлично» End If End Sub

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

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

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

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

Sub IspElseIfNeverno () ‘Этот код неверен, потому что ElseIf никогда не будет истинным Если Marks> = 75 Then Debug.Print «Отлично» ElseIf Marks> = 85 Then’ Код никогда не попадет сюда Debug.Print «Best Score» End If End Sub

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

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

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

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

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

Sub IspElse () Если оценки> = 85, то Debug.Print «Лучший результат», ElseIf Marks> = 75 Then Debug.Print «Отлично», ElseIf Marks> = 55 Then Debug.Print «Good» ElseIf Marks> = 40 Then Debug.Print «Удовлетворительно» Иначе »Для всех остальных оценок Debug.Print« Failed »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’ Проверить оценки и присвоить соответствующий рейтинг Если Marks> = 85 Then sClass = «Highest Score» ElseIf Marks> = 75 Затем sClass = «Отлично» ElseIf Marks> = 55 Then sClass = «Good» ElseIf Marks> = 40 Then sClass = «Satisfactory» Else ‘Для всех остальных оценок sClass = «Failed» End If’ Запишите класс в столбец E Sheet1. Диапазон («E» & i) .Value = sClass Next End Sub

Результаты такие: в столбце E — выставление оценок

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

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

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

Давайте еще раз взглянем на наши образцы данных. Теперь мы хотим вывести всех студентов, набравших от 50 до 80 баллов.

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

Sub ProverkaStrokiOcenok () Dim i As Long, mark As Long For i = от 2 до 11 ‘Сохраняет оценки для текущих оценок учащихся = Sheet1.Range («C» & i). Value’ Проверяет, если оценки больше 50 и меньше 75 Если вы отмечаете> = 50 и отмечает Отображать имя и фамилию в результатах:

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

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

Sub ChitatObektOcenki () Dim i As Long, mark As Long ‘Пропустить столбцы знаков For i = 2 До 11 mark = Sheet1.Range («D» & i). Value’ Проверяет, больше ли баллов 50 и меньше 80 Если признаки = «История» или признаки = «Геометрия» Тогда ‘Введите имя и фамилию в непосредственном окне (Ctrl + G) Debug.Print Sheet1.Interval («A» & i) .Value & «» & Sheet1. Диапазон («B» и i). Значение End If Next End Sub

Полученные результаты:

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

Использование более чем одного из этих условий часто является источником ошибок. Запомните практическое правило: старайтесь делать это как можно проще.

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

А работает это так:

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

Использование SE O

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

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

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

Sub OrSAd () Dim subject As String, flags As Long object = «History» flags = 5 If (object = «Geometry» Or object = «History») And flags> = 6 Then Debug.Print «TRUE» Else Debug.Print «FALSE» End If End Sub

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

Также есть оператор НЕ. Возвращает результат, противоположный условию.

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

Если он набрал = 40 Тогда

а также

Если это правда, то если не ложь, то

а также

Если ложь, то если не правда, то

Заключение условия в круглые скобки упрощает чтение кода

Если нет (знаки> = 40), то

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

Dim mySheet As Worksheet »Здесь есть код

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

Если mySheet ничего не значит, тогда

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

Если не мой лист — ничто, тогда

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

Если нет (mySheet Is Nothing), то

Функция IIF

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

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

Формат

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

VBA имеет функцию IIf, которая работает точно так же. Посмотрим на пример. В следующем коде мы используем IIf для проверки значения переменной val. Если значение больше 10, мы печатаем TRUE, иначе мы печатаем FALSE.

Sub ProveritVal () Dim result As Boolean Dim val As Long ‘Print TRUE val = 11 result = IIf (val> 10, TRUE, FALSE) Debug.Print result’ print FALSE val = 5 result = IIf (val> 10, TRUE, FALSE) Debug Print result End Sub

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

Sub ProveritDiapazonOcenok () Dim i As Long, mark As Long For i = 2–11 ‘Сохраняет оценки для оценок текущего учащегося = Sheet1.Range («C» & i) .Value’ Проверяет, сдал ли учащийся или нет Если оценки> = 40 Then ‘Запишите имена для столбца F Sheet1.Range («E» & i) = «Satisfactory» Else Sheet1.Range («E» & i) = «Failed» End If Next End Sub

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

Sub ProveritDiapazonOcenok () Dim i As Long, пометить As Long For i = 2–11 ‘Сохраняет оценки для текущих оценок учащегося = Sheet1.Interval («C» & i)’ Проверяет, сдал ли учащийся Sheet1.Interval («E» & i) .Value = IIf (знаки> = 40, «Удовлетворительно», «Неудачно») Next End Sub

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

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

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

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

Sub ProveritRezultatiTip2 () Dim i As Long, mark As Long For i = 2–11 ‘Сохраняет оценки для текущих оценок учащегося = Sheet1.Interval («C» & i) .Value Если оценки> = 75 Then Sheet1.Interval («E «& i) .Value =» Отлично «ElseIf mark> = 40 Then ‘Запишите имена для столбца F Sheet1.Range (» E «& i) .Value =» Satisfactory «Else Sheet1.Range (» E «& i) Значение = «Неудачно» Конец Если Следующий Конец Подп

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

Sub IspNestedIIF () Dim i As Long, отмечает As Long, результат как String Для i = от 2 до 11 mark = Sheet1.Range («C» ei). Value result = IIf (mark> = 55, «OK», IIf (знаки> = 40, «Удовлетворительно», «Неудачно»)) Sheet1.Interval («E» & i) .Value = result Next End Sub

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

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

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

В приведенном ниже примере мы хотим разделить на результат, если он не равен нулю. Если это ноль, мы хотим вернуть ноль.

оценки = 0 всего = IIf (баллы = 0, 0, 60 / баллы)

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

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

знаки = 0 Если знаки = 0 Тогда ‘Выполнять эту строку только тогда, когда знаки равны нулю total = 0 Иначе’ Выполнять только эту строку, когда знаки не являются общим числом ноль = 60 / знаков Конец Если

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

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

SE v IIf

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

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

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

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

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

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

Формат

Выбор случая [переменная] Случай [условие 1] Случай [условие 2] Случай [условие n] Случай Другое Конец Выбрать

Давайте возьмем наш пример 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’ Проверить оценки и присвоить соответствующий рейтинг Если Marks> = 85 Then sClass = «Самый высокий балл» ElseIf Marks> = 75 Затем sClass = «Отлично» ElseIf Marks> = 55 Then sClass = «Good» ElseIf Marks> = 40 Then sClass = «Satisfactory» Else ‘Для всех остальных оценок sClass = «Failed» End If’ Запишите класс в столбец E Sheet1. Диапазон («E» & i) .Value = sClass Next End Sub

Ниже приведен тот же код, который использует оператор Select Case. Главное, что вы заметите, это то, что мы используем «Case 85 to 100» вместо «знаков> = 85 и знаков = 85 И знаков Sub DobavitClassSSelect () ‘получить первую и последнюю строку Dim firstRow As Long, lastRow As Long firstRow = 2 lastRow = Cells (Cells.Rows.Count, 1) .End (xlUp) .Row Dim i As Long, отметить As Long Dim sClass As String ‘Пропустить столбцы знаков For i = firstRow To lastRow mark = Sheet1.Range («C» & i) .Value’ Выбрать знаки и ранжировать соответственно Выбрать Case mark Case 85 To 100 sClass = «Наивысший балл» Case 75 To 84 sClass = «Отлично» Вариант с 55 по 74 sClass = «Хороший» Случай с 40 по 54 sClass = «Удовлетворительно» Случай Иначе ‘Для всех других оценок sClass = «Неудачный» Конец Выбрать’ Запишите класс в столбец E Sheet1.Range (» E «& i) .Value = sClass Next End Sub

Случай использования

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

Отметить регистр Case Is> = 85 sClass = «Самый высокий балл» Case Is> = 75 sClass = «Отлично» Case Is> = 55 sClass = «Good» Case Is> = 40 sClass = «Satisfactory» Case Else ‘Для всех другие sClass = «Failed» End Select

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

Sub TestNeskZnach () подписывает тусклый цвет As Long Marks = 7 Select Casemarks 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 содержит геометрию, результат должен выглядеть так:

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

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

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