Квадратная матрица, произвольного вектора - VBA

Формулировка задачи:

Помогите написать программу в VBA, буду очень благодарен. Выделяем произвольный горизонтальный вектор (Строка в Exel) После этого запускаем программу и данный вектор заполняется случайными числами и формируется квадратная матрица,а числа следующих строк в 2 раза больше предыдущих.

Код к задаче: «Квадратная матрица, произвольного вектора - VBA»

textual
Sub matrix()
i = 0
For Each mycell In Selection
mycell.Value = Int(Rnd() * 10)
i = i + 1
Next mycell
For Each mycell In Selection
For j = 1 To i - 1
mycell.Offset(j, 0).Value = mycell.Value * 2 * j
Next j
Next mycell
End Sub

13   голосов, оценка 4.154 из 5


СОХРАНИТЬ ССЫЛКУ