Ако тогава изявление | Друго изявление
Използвай Ако тогава изявлението в Excel VBA за изпълнение на кодови редове, ако е изпълнено определено условие.
Ако тогава изявление
Поставете команден бутон на работния си лист и добавете следните кодови редове:
Dim score As Integer, резултат As String
score = Range ("A1"). Стойност
Ако резултат> = 60 Тогава резултат = "пас"
Диапазон ("B1"). Стойност = резултат
Обяснение: ако резултатът е по -голям или равен на 60, Excel VBA връща пропуск.
Резултат, когато щракнете върху командния бутон на листа:
Забележка: ако резултатът е по -малък от 60, Excel VBA поставя стойността на резултата от празната променлива в клетка В1.
Друго изявление
Поставете команден бутон на работния си лист и добавете следните кодови редове:
Dim score As Integer, резултат As String
score = Range ("A1"). Стойност
Ако резултат> = 60 Тогава
result = "pass"
Иначе
резултат = "неуспех"
Край Ако
Диапазон ("B1"). Стойност = резултат
Обяснение: ако резултатът е по -голям или равен на 60, Excel VBA връща преминаване, в противен случай връщането на Excel VBA се проваля.
Резултат, когато щракнете върху командния бутон на листа:
Забележка: само ако имате един ред код след Тогава и няма инструкция Else, е позволено да поставите код код директно след Тогава и да пропуснете (пропуснете) End If (първи пример). В противен случай започнете нов ред след думите Then и Else и завършете с End If (втори пример).