/ / Excel VBA Ако след това изявление

Excel VBA Ако след това изявление

Ако след това изявление | Друга декларация

Използвай Ако след това изявление в Excel VBA да изпълнява кодови редове, ако е изпълнено конкретно условие.

Ако след това изявление

Поставете командния бутон на работния лист и добавете следните кодови редове:

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 Ако след това изявление

Забележка: Ако резултатът е по-малък от 60, Excel VBA поставя стойността на резултата от празната променлива в клетка B1.

Друга декларация

Поставете командния бутон на работния лист и добавете следните кодови редове:

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 returns fail.

Резултат, когато кликнете върху командния бутон на листа:

Excel VBA Else Statement

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

Също така се чете: