Объекты в VBA(Excel)

[dimok5]

Разработать подпрограмму нахождения в выделенном диапазоне рабочей таблицы максимального и минимального значения по строкам и по столбцам. Элементы массива задать самостоятельно через функцию Inputbox.

Ввод элементов массива получился, но как найти остальное....

Public Sub r()
Dim stl As Integer
Dim str As Integer
Dim i As Integer
Dim j As Integer
stl = InputBox("Введите количество столбцов")
str = InputBox("Введите количество строк")
For i = 1 To stl
For j = 1 To str
Sheets("Лист1").Cells(i, j) = InputBox("Введите" & j & "элемент" & i & "строки")
Next j
Next i
End Sub

[OLOSO]

Сам по бейсику задал вопрос, но вот не много копипасты

'1.найти наименьшее из 3х чисел, введенных с Клавы
Sub prog002()

Dim i, j, k As Integer

i = CInt(Val(InputBox("BBEDITE i")))
j = CInt(Val(InputBox("BBEDITE j")))
k = CInt(Val(InputBox("BBEDITE k")))

If i < j Then
  If i < k Then MsgBox i Else MsgBox k
Else
  If j < k Then MsgBox j Else MsgBox k
End If

End Sub

Sub prog015()
Dim i As Integer, sum As Integer, otr As Integer
Dim m() As Integer


'8. * Ввести одномерный массив (8 элементов) и вывести в строку на экран.
'* Найти сумму всех переменных
'* Найти сумму отрицательных
'* Вывести числа стоящие на чётных местах
'* Заменить положительные элементы нулями и вывести результат
'''''''''''''i = CInt(Val(InputBox("BBEDITE i")))

For i = 1 To 8
m(i) = CInt(Val(InputBox("BBEDITE m(i)")))
Next i

sum = 0
otr = 0
 
For i = 1 To 8
  sum = sum + m(i)
  If m(i) < 0 Then otr = otr + m(i)
Next
MsgBox m(i)

MsgBox "SUM(m(i))= " & sum
MsgBox "SUM(m(i) < 0)= " & otr
 
For i = 1 To 8
  If (i Mod 2) = 0 Then MsgBox m(i)
Next
 
For i = 1 To 8
  If m(i) > 0 Then m(i) = 0
  MsgBox m(i)
Next

End Sub

[dimok5]

как можно разбить код, чтобы выделение диапазона ячеек происходило после ввода массива?

Sub m_1()
Dim myArray As Variant
Dim i As Long
Dim j As Long
Dim Max As Variant
Dim Min As Variant
Dim stl As Integer
Dim str As Integer
 stl = InputBox("Введите количество столбцов")
 str = InputBox("Введите количество строк")
 For i = 1 To stl
  For j = 1 To str
   Sheets("Лист1").Cells(i, j) = InputBox("Введите" & j & "элемент" & i & "строки")
 Next j
 Next i
myArray = Selection
For i = 1 To UBound(myArray, 1)
    Max = myArray(i, 1)
    Min = myArray(i, 1)
    For j = 1 To UBound(myArray, 2)
        If myArray(i, j) > Max Then
            Max = myArray(i, j)
        ElseIf myArray(i, j) < Min Then
            Min = myArray(i, j)
        End If
    Next j
    Cells(i, 10).Value = "max" & " " & Max & " " & "min" & " " & Min
Next i
End Sub