Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ошибка применения циклов FOR
 
#1
11.03.2015 19:36:55
Уважаемые знатоки! Пытаюсь написать макрос который возвращает таблицу умножения на листе. Однако макрос возвращает ошибку, то есть не срабатывает.
Код
Sub Test()
For Stroka = 1 To 10
    For Stolbec = 1 To 10
       Cells(Stroka, Stolbec) = Stroka * Stolbec
           Next Stroka
               Next Stolbec
End Sub

Стоить мне поменять местами и сначала написать Next Stolbec  а потом Next Stroka,то макрос работет правильно. В чем фишка? Какая разница если я первым напишуNext Stroka  а потом Next Stolbec ?

Вот этот макрос работает правильно
Код
Sub Test()

For Stroka = 1 To 10
    For Stolbec = 1 To 10
       Cells(Stroka, Stolbec) = Stroka * Stolbec
           Next Stolbec
               Next Stroka
End Sub
Спасибо за ответы заранее.

С уважением Самир, Баку
 
 
 
#2
11.03.2015 19:40:54
Вы уже сами нашли ошибку.
Вложенные функции должны быть вложенными, а не перекрывать друг друга:
Код
1
   2
      3
      3
   2
1
 
 
 
#3
11.03.2015 19:43:12
Честно говоря не совсем понял :( Как это перекрывать?
 
 
 
#4
11.03.2015 19:43:15
Каждый Next отвечает за свой For. И он должен закрывать именно его. Т.е если поменяли Next - надо менять местоположение и For. Или неверно понял проблему.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#5
11.03.2015 19:49:38
Кажется дошло! Позднее зажигание как говорится! Спасибо большое Vikktur и The_Prist !  Вы находки этого форума!
 
 
 
#6
11.03.2015 21:56:42
Можно было после Next вообще не указывать Stolbec и Stroka - VBA сам разберётся, где какой Next ))
 
 
 
#7
12.03.2015 08:02:44
Спасибо Юрий ! Очень оригинально! Я написал просто Next Next и все получилось. Это только в этом случае или в других кодах тоже можно так делать?
 
 
 
#8
12.03.2015 09:02:38
Цитата
Самир Мамедов написал: Это только в этом случае или в других кодах тоже можно так делать?
на вба - везде можно просто Next
Указание на переменную вида "Next Stroka" только для удобочитаемости кода, чтобы самому не запутаться, где какой цикл заканчивается.
Bite my shiny metal ass!      
 
 
 
#9
12.03.2015 09:23:59
Лузер, спасибо за ответ. Для меня это было открытием. Что по мне, то мне удобно наоборот везде только Next Next писать.
 
 
 
#10
12.03.2015 10:03:18
Самир Мамедов, еще вариант
Код
Sub Test()

  For Stroka = 1 To 10
    For Stolbec = 1 To 10
      Cells(Stroka, Stolbec) = Stroka * Stolbec
  Next Stolbec, Stroka
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх