VBA. Где ошибка в коде?

[Саня Новиков]

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

Private Sub CommandButton3_Click()
Answer = MsgBox("Заполнить с помощью генератора случайных чисел?", _
vbQuestion + vbYesNo, "Способ заполнения")
If Answer = vbNo Then
'Формирование исходной матрицы с помощью InputBox
For i = 2 To 8
For j = 1 To 5
 Cells(i, j) = InputBox("Введите элемент Матрицы (" & i & ", " & j & ")")
Next j
Next i
Else
'Формирование исходной матрицы с помощью генератора случайных чисел
 For i = 2 To 8
 For j = 1 To 5
  Cells(i, j) = Rnd(1) * 100
 If Cells(i, j) Mod 2 = 0 Then Cells(i, j) = -Cells(i, j)
 Next j
Next i
End If
9
'Вывод исходной матрицы
For i = 2 To 8
For j = 1 To 5
Cells(i + 1, j).Value = Cells(i, j)
PauseTime = 0.5
 Start = Timer
Do While Timer = Start + PauseTime
 DoEvents
Loop
 Next j
Next i
End Sub

[digitalis]

Я не спец в отстойном Бесике, но последний блок, по-моему, вообще лишний. Интуёвина мне подсказывает, что этот пример тупого переписывания с Паскаля в Бесик без включения мозгов. В Паскале действительно после заполнения массива его нужно вывести отдельным блоком. А если VBA вызывается из Excel, то значения в таблице уже будут сразу заполнены. Почему одинаковы во всем столбце? Блин, да ведь этим идиотским

Cells(i + 1, j).Value = Cells(i, j)

ты и делаешь их их одинаковыми! Коианда эта в переводе на рабоче-крестьянский звучит так: "наплевать, что там было ранее, ты мне тупо перепиши значение из вышестоящей ячейки".
Впрочем, нет, пожалуй. Я с VBA совсем никогда не имел делов, и чем отличается

 Cells(i + 1, j).Value

от просто

Cells(i + 1, j)

- ХЗ . Может, VBA-шники подтянутся, глядишь - подскажут. Вот в теме про Excel их, мабудь, больше кучкуется.
Жаль мне людей, которые мучают не своим делом и себя, и это самое дело.

[Саня Новиков]

Это для курсача, я бы с радостью не делал
Спасибо большое!

[Саня Новиков]

Это для курсача, я бы с радостью не делал
Спасибо большое!