В чем ошибка? - Microsoft Office Excel - Страница 2

Ast4 · 25.02.2011, 14:21

Делает но ошибка есть.

kuklp · 25.02.2011, 16:07

Ошибка из-за того, что Вы втулили текст в математические операции. Попробуйте так:

Код:

Sub Макрос1()
On Error Resume Next
    For i = 2 To [f2].End(xlDown).Row
        If Cells(i, 8).Value <> 0 Then Cells(i, 8).Value = _
           Cells(i, 8).Offset(0, -3) / Cells(i, 8).Offset(0, -2)
    Next
End Sub

25.02.2011, 16:07	#12
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Ошибка из-за того, что Вы втулили текст в математические операции. Попробуйте так: Код: `Sub Макрос1() On Error Resume Next For i = 2 To [f2].End(xlDown).Row If Cells(i, 8).Value <> 0 Then Cells(i, 8).Value = _ Cells(i, 8).Offset(0, -3) / Cells(i, 8).Offset(0, -2) Next End Sub` mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
В чем ошибка!?	Файзулка	Помощь студентам	5	17.01.2011 10:27
В чем ошибка?	DartDayring	Visual C++	5	09.11.2010 23:39
В чем ошибка?	Angelic_fiend	Помощь студентам	12	02.06.2010 15:52
В чем ошибка?	hitman12	Паскаль, Turbo Pascal, PascalABC.NET	13	04.11.2009 12:38
В ЧЕМ ОШИБКА?	salmanbaz	Общие вопросы C/C++	5	11.01.2009 13:21