|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.04.2016, 14:17 | #1 |
Почемучка-новичок
Пользователь
Регистрация: 08.10.2010
Сообщений: 67
|
Синтаксис Else without If
Добрый день!
Не могу понять в чем проблема. Вот кусок где, спотыкается выполнение кода с ошибкой "Next without For". "Подозрительное" место выделил красным. step = 2 For i = 1 To b For k = 1 To a If PL_b(i, 1) = PL_a(k, 1) And PL_b(i, 2) = PL_a(k, 2) And PL_b(i, 3) = PL_a(k, 3) And PL_b(i, 4) = PL_a(k, 4) And PL_b(i, 5) = PL_a(k, 5) Then GoTo Metka Else: c = 1 Next kMetka: If c = 1 Then Cells(step, 1) = "-" Cells(step, 2) = PL_b(i, 1) Cells(step, 3) = PL_b(i, 2) Cells(step, 4) = PL_b(i, 3) Cells(step, 5) = PL_b(i, 4) Cells(step, 6) = PL_b(i, 5) step = step + 1 c = 0Next i P.S. a и b определены и массивы заполнены. |
06.04.2016, 14:21 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
а так:
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
06.04.2016, 14:33 | #3 |
Почемучка-новичок
Пользователь
Регистрация: 08.10.2010
Сообщений: 67
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Синтаксис | nikelpower | Помощь студентам | 0 | 20.12.2013 05:21 |
Синтаксис | KrockodilL | Общие вопросы Delphi | 1 | 21.11.2011 17:08 |
Синтаксис | Gen_r_questions | PHP | 2 | 05.03.2011 17:33 |
Синтаксис... | webber9989 | SQL, базы данных | 1 | 29.07.2010 12:40 |