Здравствуйте. Прошу помощи по вложенным циклам. В ниже приведённом куске кода в цикле с вложенным циклом ошибка "Next without For". Не могу понять в чём дело, что не так. Помогите пожалуйста, буду весьма признателен. [vba]
Код
nBxO = box Подтяг: Do While ldAll <= lidPR m = nBxO For m = box To 32 k = m + 1 Do While ZrBx(m) <= ZrBx(k) KBx(m) = KBx(m) + 1 ZrBx(m) = ZBx(m) * KBx(m) ldAll = ldAll + ld(m) msAll = msAll + ms(m) prAll = prAll + pr(m) If ldAll > lidPR Then GoTo Вывод Loop If m = 1 Then Exit For If ZrBx(m) >= ZrBx(m - 1) Then mPosl = ZrBx(m) For mPod = nBxO To 32 If m <> 0 Then Do While ZrBx(mPod) <= ZrBx(mPosl) KBx(m) = KBx(m) + 1 ZrBx(m) = ZBx(m) * KBx(m) ldAll = ldAll + ld(m) msAll = msAll + ms(m) prAll = prAll + pr(m) If ldAll > lidPR Then GoTo Вывод Loop End If Next mPod Next m GoTo Подтяг
[/vba]
Здравствуйте. Прошу помощи по вложенным циклам. В ниже приведённом куске кода в цикле с вложенным циклом ошибка "Next without For". Не могу понять в чём дело, что не так. Помогите пожалуйста, буду весьма признателен. [vba]
Код
nBxO = box Подтяг: Do While ldAll <= lidPR m = nBxO For m = box To 32 k = m + 1 Do While ZrBx(m) <= ZrBx(k) KBx(m) = KBx(m) + 1 ZrBx(m) = ZBx(m) * KBx(m) ldAll = ldAll + ld(m) msAll = msAll + ms(m) prAll = prAll + pr(m) If ldAll > lidPR Then GoTo Вывод Loop If m = 1 Then Exit For If ZrBx(m) >= ZrBx(m - 1) Then mPosl = ZrBx(m) For mPod = nBxO To 32 If m <> 0 Then Do While ZrBx(mPod) <= ZrBx(mPosl) KBx(m) = KBx(m) + 1 ZrBx(m) = ZBx(m) * KBx(m) ldAll = ldAll + ld(m) msAll = msAll + ms(m) prAll = prAll + pr(m) If ldAll > lidPR Then GoTo Вывод Loop End If Next mPod Next m GoTo Подтяг
Hugo, сработало! Конечно же, многострочный If оставил без End If. Вы правы, здесь, лучше, в одну строку упаковать. Огромная благодарность за помощь. Сижу днями за кодом, глаза, мозги замыливаются. Теряется острота восприятия - ошибку не увидел, Большое спасибо за науку. Вопрос решён!
Hugo, сработало! Конечно же, многострочный If оставил без End If. Вы правы, здесь, лучше, в одну строку упаковать. Огромная благодарность за помощь. Сижу днями за кодом, глаза, мозги замыливаются. Теряется острота восприятия - ошибку не увидел, Большое спасибо за науку. Вопрос решён!