Вывод случайного массива с параметрами с клавиатуры

[Turistovik]

В общем началась практика и не могу разобраться со следующей задачкой:
Сформировать массив M*N случайным образом.Параметры M и N пользователь вводит с клавиатуры.
Заранее благодарен всем за ответы и советы!

[motorway]

Ну, здесь все просто - для цифр можно сделать ячейки на листе, и в них вводить данные. А дальше цикл по i и j и использование встроенной функции рандомизации.
Что конкретно не получается?

[Turistovik]

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

Ну, здесь все просто - для цифр можно сделать ячейки на листе, и в них вводить данные. А дальше цикл по i и j и использование встроенной функции рандомизации.
Что конкретно не получается?

Просто нужно чтобы это выводилось в MsgBox'e.Не могли бы вы показать на примере?

[motorway]

Что именно выводилось? В нем обычно выводятся результаты

[Turistovik]

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

Что именно выводилось? В нем обычно выводятся результаты

Ну вот и нужно чтобы в начале при запуске приложения пользователь через InputBOx задавал значаения M и N. А затем в MsgBox выводился этот массив.

[motorway]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
M = InputBox("Введите число M")
N = InputBox("Введите число N")
Dim str As String

For i = 1 To M
For j = 1 To N
str = str & Rnd() & " "

Next j
str = str & Chr(13)
Next i

MsgBox str

End Sub

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

UPD: вот так для целых чисел str = str & WorksheetFunction.RandBetween(1, 36) & " "

[Turistovik]

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
M = InputBox("Введите число M")
N = InputBox("Введите число N")
Dim str As String

For i = 1 To M
For j = 1 To N
str = str & Rnd() & " "

Next j
str = str & Chr(13)
Next i

MsgBox str

End Sub

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

UPD: вот так для целых чисел str = str & WorksheetFunction.RandBetween(1, 36) & " "

СПАСИБО ОГРОМНОЕ ЗА ПОМОЩЬ!!!!ОЧЕНЬ ВАМ БЛАГОДАРЕН!)