Помогите с матрицей

[rogge]

Даны целые положительные числа M, N, число D и набор из M чи-
сел. Сформировать матрицу размера M × N, у которой первый столбец
совпадает с исходным набором чисел, а элементы каждого следующего
столбца равны сумме соответствующего элемента предыдущего столбца
и числа D (в результате каждая строка матрицы будет содержать элементы
арифметической прогрессии

на vba

[Aleksandr H.]

Sub smth()
    Dim m As Integer, n As Integer, d As Integer
    Dim r As Integer, c As Integer
    n = InputBox("N=?", , 5)
    m = InputBox("M=?", , 7)
    d = InputBox("D=?", , 1)
    For r = 1 To n
     Cells(r, 1) = Int(21 * Rnd)
     For c = 2 To m
      Cells(r, c).Value = Cells(r, c - 1).Value + CInt(d)
     Next
    Next
End Sub

[rogge]

в Вашем коде, не выполняется условие: первый столбец
совпадает с исходным набором чисел, а элементы каждого следующего
столбца равны сумме соответствующего элемента предыдущего столбца
и числа D

[Aleksandr H.]

Тогда потрудись вложить xlsx файла с входными данными и результатом который должен получиться.

[rogge]

Sub zadacha_muchacha()
Const D = 5     'шаг прогрессии
Const N = 10    'столбцов
Static b()      'массив элементов 1-й строки
b = Array(5, 5, 5, 5, 5, 5, 5, 5, 5, 5) 'M элементов (высота матрицы)
Dim M As Integer    'строк (столько, сколько элементов зададите выше, в b)
M = UBound(b)       'объяснение - в предыдущем комменте
ReDim A(1 To M, 1 To N) As Integer
Dim i, j 'индексы (если надо Integer, то так: i As Integer, j As Integer)
Dim Ashow As String 'строка для показа полученной матрицы
 
'ввод матрицы
    For i = 1 To M
            A(i, 1) = b(i) 'это вместо проверки If j = 1
            Ashow = Ashow & b(i)
        For j = 2 To N
            A(i, j) = b(i) + (j - 1) * D 'вместо A(i, j) = A(i, j - 1) + D
            Ashow = Ashow & vbTab & A(i, j)
        Next j
            Ashow = Ashow & vbCr & vbCr 'перевод строки (дважды)
    Next i
    
'вывод матрицы
    MsgBox Ashow 
   
End Sub

типо такого, но чтобы с клавиатуры считывалось, не могу додуматься,помогите

[Aleksandr H.]

так ты ж в соседней теме писал

For i = 1 To m
a(i) = InputBox("A(" & i & ")")

разве это не ввод с клавиатуры?