Помогите, пожалуйста, задана задача в VBA. Формирование двумерных массивов. Сформировать...

Question

Помогите, пожалуйста, задана задача в VBA. Формирование двумерных массивов. Сформировать матрицы произвольной размерности на рабочем листе Excel. Вот сама матрица

---

Comments

Чем заполнять сформированную матрицу?

---

не знаю, это всё задание

---

На будущее: никому не интересно, какое задание у Вас. Здесь автор задания - Вы и поэтому ответы "не знаю" считаются некорректными и могут привести к удалению задания, как неполного.

Answer 1

Sub aaa()
    Dim m As Integer, n As Integer
    m = InputBox("Введите число строк в матрице")
    n = InputBox("Введите число столбцов в матрице")
    ReDim a(1 To m, 1 To n) As Variant
    ' Массив создан, теперь его надо заполнить
    ' Ниже - вариант заполнения случайными числами
    Randomize Timer
    For i = 1 To m
        For j = 1 To n
            a(i, j) = 51 * Rnd() - 25
        Next j
    Next i
    ' Собственно, вывод массива на рабочий лист
    Range(Cells(1, 1), Cells(m, n)) = a
End Sub