Задача по VBA!!

[NitriNKa]

СРОЧНО!! пожалуйста, помогите сделать задачу! Задан массив с количеством элементов N. Найти все положительные значения элементов массива, среди положительных значений выбрать наименьшее.

[ViNcHeStEr]

Вот так:
на листе Excel ставится кнопка и в ней пишется:

Option Explicit
Dim mas(1 To 10, 1 To 10) As Integer
Dim i As Integer
Dim j As Integer
Dim min As Integer

Private Sub CommandButton1_Click()
Randomize
For i = 1 To 10
For j = 1 To 10
mas(i, j) = Fix(Rnd(1) * 20) - 10
Cells(i, j) = mas(i, j)
Next j
Next i
For i = 1 To 10
For j = 1 To 10
If mas(i, j) > 0 Then
min = mas(i, j)
GoTo metka
End If
Next j
Next i
metka:
For i = 1 To 10
For j = 1 To 10
If ((mas(i, j) < min) And (mas(i, j) > 0)) Then min = mas(i, j)
Next j
Next i
Cells(15, 1) = min
End Sub

[NitriNKa]

а мне для Word надо, это подойдёт????

[ViNcHeStEr]

Скорее всего нет, там как-то по другому надо выводить на экран.