Excel VBA Ако след това изявление
Ако след това изявление | Друга декларация
Използвай Ако след това изявление в Excel VBA да изпълнява кодови редове, ако е изпълнено конкретно условие.
Ако след това изявление
Поставете командния бутон на работния лист и добавете следните кодови редове:
score = Range("A1").Value
If score >= 60 Then result = "pass"
Range("B1").Value = result
Обяснение: ако резултатът е по-голям или равен на 60, Excel VBA връща пропуск.
Резултат, когато кликнете върху командния бутон на листа:

Забележка: Ако резултатът е по-малък от 60, Excel VBA поставя стойността на резултата от празната променлива в клетка B1.
Друга декларация
Поставете командния бутон на работния лист и добавете следните кодови редове:
score = Range("A1").Value
If score >= 60 Then
result = "pass"
Else
result = "fail"
End If
Range("B1").Value = result
Обяснение: ако резултатът е по-голям или равен на 60, Excel VBA връща пропуск, в противен случай Excel VBA returns fail.
Резултат, когато кликнете върху командния бутон на листа:

Забележка: само ако имате една кодова линия след Тогава и никакъв друг изречение, е позволено да поставите кодова линия непосредствено след Тогава и да пропуснете (излезте) Край Ако (първи пример). В противен случай започнете нов ред след думите "Тогава" и "Други" и завършете с "End If" (втори пример).