If Then Заявление | Else себе

Используйте Если заявление Тогда в Excel VBA для выполнения строк кода, если условие конкретных удовлетворяется.

Если заявление Тогда

Поместите ссылка: VBA Create-A-макро-# командной кнопки [Кнопка управления] / на листе и добавьте следующие строки кода:

Dim score As Integer, result As String

score = Range("A1").Value

If score >= 60 Then result = "pass"

Range("B1").Value = result

Объяснение: если оценка больше или равна 60, Excel VBA возвращается пройти.

Результат при нажатии на кнопку управления на листе:

Excel VBA If Then Statement

Примечание: если оценка составляет менее 60, Excel VBA помещает значение результата пустого переменного в ячейке B1.

Else Statement

Поместите ссылка: VBA Create-A-макро-# командной кнопки [Кнопка управления] / на листе и добавьте следующие строки кода:

Dim score As Integer, result As String

score = Range("A1").Value

If score >= 60 Then

result = "pass"

Else

result = "fail"

End If

Range("B1").Value = result

Объяснение: если оценка больше или равна 60, Excel VBA возвращается пройти, в противном случае возвращает Excel VBA неудачу.

Результат при нажатии на кнопку управления на листе:

Excel VBA Else Statement

Примечание: только если у вас есть один строку кода после Тогда и не другое заявление, разрешается разместить строку кода непосредственно после того, как потом и опускаем (опустить) End If (первый пример). В противном случае начать новую строку после слов Тогда и прочее и заканчиваться End If (второй пример).