макрос для ввода значений массива в ячейки

[Olya1985]

Подскажите, пожалуйста, как исправить макрос, чтобы в ячейки вводились значения от - 5 до 5


Sub test()

Dim x(1 To 11)



For j = 1 To 11

For i = -5 To 5

Do

Worksheets(2).Cells(j, 1).Value = j

Loop Until -5 < j < 5


Next i

Next j

End Sub

[IgorGO]

Sub test()

Dim x(1 To 11)

i = -5

For j = 1 To 11

Worksheets(2).Cells(j, 1).Value = i

i = i+1

Next j

End Sub

[Olya1985]

большое спасибо!

[SAS888]

Чуть проще:

For i = 1 To 11: Sheets(2).Cells(i, 1) = i - 6: Next

[kuklp]

И вот это Dim x(1 To 11) там лишнее.

[SAS888]

И вот это Dim x(1 To 11) там лишнее.

Осмелюсь предположить, что это остался какой-то "хвост" от предварительного кода уважаемого IgorGO. Возможно, что предполагалось решить эту задачу с помощью формул в диапазоне ячеек, тем самым, избежать вообще каких-либо циклов. Например, так:

Sub Main()
    [A1] = -5
    [A2:A11].FormulaR1C1 = "=R[-1]C + 1"
    [A2:A11].Value = [A2:A11].Value
End Sub

[IgorGO]

эх, упрощать так упрощать, выкину еще одно слово:
Sub Main()
[A1] = -5
[A2:A11].FormulaR1C1 = "=R[-1]C + 1"
[A2:A11] = [A2:A11].Value
End Sub

Сережа, подходил к зеркалу - никакого хвоста не заметил, и кода не видно, хотя я кодировался, точно, но... не помогло, организм требует своего

Оля бейсик осваивает, а такие примеры уводять ее со светлой тропы познания синтаксиса языка в глухомань хитростей программирования ... или я ошибаюсь?

и самое главное, куда тут теперь Msgbox вставить? не осталось тут места для него, не осталось... хотя... можно в конце написать Msgbox "Готово!"

[Olya1985]

Всем спасибо! нужно было решить эту задачу именно с использованием циклов.