Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Условие If... then выдает ошибку. Неверный синтаксис?
 
#1
11.12.2018 16:34:39
Добрый день,
что-то запуталась в трех соснах.
Макрос ругается на предмет End If, мол нету для него IF, хотя вроде бы для каждого есть..
Это кусок кода, без него макрос работает нормально. Взгляните плиз, где ошибка?


Код
...
If checkcolumn Then 'если стоит чекбокс - то проверяются 3 нижестоящие условия. Если Нет- то проверку пропускаем.
        If r1.Column <> 5 Then MsgBox "error r1", vbCritical
          Exit Sub 
        End If
        If r2.Column <> 6 Then MsgBox "error r2", vbCritical
          Exit Sub 
        End If
        If r3.Column <> 7 Then MsgBox "error r13", vbCritical
           Exit Sub 
        End If       
End If
'если соблюдены все 3 условия- выполняется код ниже. если любое из 3 не соблюдено- показываем ошибку и выходим. 
...
Изменено: ЕжеВика - 11.12.2018 16:36:12
 
 
 
#2
11.12.2018 16:36:39
ЕжеВика, перевод строки имеет значение

Код
If checkcolumn Then 'если стоит чекбокс - то проверяются 3 нижестоящие условия. Если Нет- то проверку пропускаем.
        If r1.Column <> 5 Then 
          MsgBox "error r1", vbCritical
          Exit Sub
        End If
…...
По вопросам из тем форума, личку не читаю.
 
 
 
#3
11.12.2018 16:45:11
Цитата
БМВ написал:
ЕжеВика , перевод строки имеет значение
БМВ Спасибо!  Работает.
 
 
 
#4
11.12.2018 16:48:58
ЕжеВика, после Then нужно писать все в одну строку ( что относится к Then) или все с новой строки. Если нет ELSE. :)
П.С. если все в одну строку то end if не нужно.
Код
If r1.Column <> 5 Then MsgBox "error r1", vbCritical: Exit Sub
Изменено: V - 11.12.2018 16:51:42
 
 
 
#5
11.12.2018 16:55:28
ЕжеВика, Да, как написано выше, для таких конструкций можно употреблять иную запись , но вот это не сильно экономит время и объем при написании, а вот читаемость может пострадать + не все так можно записывать а значит лучше классический вариант.
Изменено: БМВ - 11.12.2018 16:56:32
По вопросам из тем форума, личку не читаю.
 
 
 
#6
11.12.2018 16:59:51
Цитата
V написал:
Если нет ELSE.
Код
If 0 <> 0 Then Else MsgBox "Ой!"

:D
 
 
 
#7
11.12.2018 17:05:33
RAN, я имел ввиду такой вариант. :)
Код
If r1.Column <> 5 Then MsgBox "error r1", vbCritical: Exit Sub
Else
    MsgBox "Ой!"
end if
End If

П.С. Вот не хотел писать про ELSE. :)
 
 
 
#8
11.12.2018 17:23:12
Цитата
V написал: или все с новой строки. Если нет ELSE
Почеу же?
Код
If a = 1 Then b=2 Else: b = 3
 
 
 
#9
11.12.2018 17:31:13
Цитата
vikttur написал:
b=2 Elle: b = 3
Виктор,   :D тогда уж сразу

По вопросам из тем форума, личку не читаю.
 
 
 
#10
11.12.2018 17:33:50
Нет, тогда будет логическое ИЛИ :)
Подправил.
 
 
 
#11
11.12.2018 17:51:37
Цитата
V написал:
RAN , я имел ввиду такой вариант.
Такой вариант вообще не работает.

Вить, зачем двоеточие? Оно, правда, работать вроде не мешает, но и смысла в нем нет.
 
 
 
#12
11.12.2018 17:58:18
По привычке. Часто короткие строки и логически связанные пишу в одной строке.
 
 
 
Страницы: 1
Наверх