Макрос для случайного заполнения матрицы

[Elena_123]

Написать макрос, который позволяет ввести матрицу m*n. Случайным образом заполнить её случайными числами из диапазона [-100,200] с количеством знаков после запятой не более двух. Найти сумму элементов, заданного пользователем столбца.

[Aleksandr H.]

Sub matrix()
    Dim m As Integer
    Dim n As Integer
    Dim col As Integer
    Dim i, j
    Dim ar() As Double
    Dim colSum As Double
    Dim sMatrix As String
    m = CInt(InputBox("Input dimension M", "M", 5))
    n = CInt(InputBox("Input dimension N", "N", 4))
    col = CInt(InputBox("Input column C", "col", Abs(n - 1)))
    Randomize
    ReDim ar(m, n)
    sMatrix = "  MATRIX  " & vbNewLine
    colSum = 0
    For i = 0 To m - 1
        For j = 0 To n - 1
            ar(i, j) = FormatNumber(Int(301 * Rnd - 100) + Rnd(), 2)
            sMatrix = sMatrix & CStr(ar(i, j)) & vbTab
            If j + 1 = col Then colSum = colSum + ar(i, j)
        Next j
          sMatrix = sMatrix & vbNewLine
    Next i
    sMatrix = sMatrix & "-------" & vbNewLine & "SumOfColumn " & CStr(col) & " are " & CStr(colSum)
    MsgBox sMatrix
End Sub

[Elena_123]

спасибо) а как это применить? я не понимаю

[Serge_Bliznykov]

Сообщение от Elena_123

а как это применить? я не понимаю

а Вы для чего макрос просили? для MS Excel?
ну так может стоит открыть Excel, открыть редактор макросов и вставить туда текст данного макроса, а затем выполнить его?

или как Вы собирались это применить, когда просили этот макрос Вам написать?

[Elena_123]

я разобралась) всё работает) спасибо