Консультация № 118065
12.01.2008, 00:56
0.00 руб.
0 5 5
Доброй ночи, уважаемые эксперты.
vba Excel.

Вопрос такой. При компилирование, выдается ошибка, что Next i не может быть без For i.

В чем ошибка кода?

Приложение:
For i = 0 To n - 1If (Worksheets("1").Cells(2, 8 + i) <> "") Then If Worksheets("1").Cells(2, 8 + i) = Worksheets("1").Cells(3, 9 + i) Then Worksheets("1").Cells(3, 8 + i) = Worksheets("1").Cells(3, 8 + i) + Worksheets("2").Cells(4, 9 + i) Worksheets("1").Cells(5, 8 + i) = Worksheets("1").Cells(5, 8 + i) + Worksheets("2").Cells(7, 9 + i) End If If (Worksheets("1").Cells(2, 8 + i) = "") ThenWorksheets("1").Cells(3, 8 + i) = Worksheets("2").Cells(4, 9 + i)Worksheets("1").Cells(5, 8 + i) = Worksheets("2").Cells(7, 9 + i)End IfNext i

Обсуждение

Неизвестный
12.01.2008, 01:11
общий
это ответ
Здравствуйте, yazzer!
у Вас три условия If, следовательно, должно три окончания End if.

фрагмент Вашего текста с дополнением
...
Worksheets("1").Cells(3, 8 + i) = Worksheets("2").Cells(4, 9 + i)
Worksheets("1").Cells(5, 8 + i) = Worksheets("2").Cells(7, 9 + i)
End If
End If ‘добавить это окончание условия if
Next i
Неизвестный
12.01.2008, 01:52
общий
это ответ
Здравствуйте, yazzer!

Не хватает одного "End If"
Неизвестный
12.01.2008, 11:08
общий
это ответ
<font color=blue><b>!!!</b></font>
Здравствуйте, yazzer!
В коде у вас 3 сравнения типа IF. Все они должны кончаться на END IF. "END IF" - только два. Исправьте эту ошибку<p><fieldset style=‘background-color:#EFEFEF; width:80%; border:blue 1px solid; padding:10px;‘ class=fieldset><font color=blue><i>Ответ повторный.</i>
-----
</font><font color=#777777 size=1><b>• Отредактировал: <a href=/info/user/9 target=_blank>Климова Марина Александровна</a></b> (*Мастер-Эксперт)
<b>• Дата редактирования:</b> 12.01.2008, 17:48</font></fieldset>
Неизвестный
12.01.2008, 16:16
общий
это ответ
<font color=blue><b>!!!</b></font>
Здравствуйте, yazzer!
В Вашем коде 3 оператора условия If, но только 2 завершающих End if, добавьте 3ий.<p><fieldset style=‘background-color:#EFEFEF; width:80%; border:blue 1px solid; padding:10px;‘ class=fieldset><font color=blue><i>Ответ повторный.</i>
-----
</font><font color=#777777 size=1><b>• Отредактировал: <a href=/info/user/9 target=_blank>Климова Марина Александровна</a></b> (*Мастер-Эксперт)
<b>• Дата редактирования:</b> 12.01.2008, 17:48</font></fieldset>
Неизвестный
12.01.2008, 17:35
общий
это ответ
<font color=blue><b>!!!</b></font>
Здравствуйте, yazzer!
Перед Next i поставьте ещё один End If<p><fieldset style=‘background-color:#EFEFEF; width:80%; border:blue 1px solid; padding:10px;‘ class=fieldset><font color=blue><i>Ответ повторный.</i>
-----
</font><font color=#777777 size=1><b>• Отредактировал: <a href=/info/user/9 target=_blank>Климова Марина Александровна</a></b> (*Мастер-Эксперт)
<b>• Дата редактирования:</b> 12.01.2008, 17:49</font></fieldset>
Форма ответа