Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.04.2016, 14:17   #1
Questru
Почемучка-новичок
Пользователь
 
Регистрация: 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 k
Metka:
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 = 0
Next i



P.S.
a и b определены и массивы заполнены.
Questru вне форума Ответить с цитированием
Старый 06.04.2016, 14:21   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

а так:
Код:
For k = 1 To a
  if ... then
    GoTo Metka
  Else
    c = 1
  end if
Next k
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 06.04.2016, 14:33   #3
Questru
Почемучка-новичок
Пользователь
 
Регистрация: 08.10.2010
Сообщений: 67
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
а так:
Код:
For k = 1 To a
  if ... then
    GoTo Metka
  Else
    c = 1
  end if
Next k
Спасибо! За одно спалил и еще одно End If добавил
Questru вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Синтаксис 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