решить матрицу в VBA

[Stepan2000]

Всем привет))

Народ срочно нужна помощь) пожалуйста) вот задание: В матрице А(5,7) найти количество элементов,расположенных после минимального элемента. есть ориентировочная прога,но она запортачена. Нужно,чтобы индекс минимального был не числом,а координатами этой точки и минимальные значения в матрице должны быть выделены цветом) очень прошу о помощи,товарищи программисты!))


Option Explicit

Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
For i = 2 To 6
For j = 1 To 7
Cells(i, j) = Int(Rnd * 11 - 5)
Next
Next

End Sub

Private Sub Выполнить_Click()
Dim A(1 To 5, 1 To 7), i, j, k, min, i_min, j_min As Integer

For i = 1 To 5
For j = 1 To 7
A(i, j) = Cells(i + 1, j)
Next j
Next i

min = A(1, 1)
For i = 1 To 5
For j = 1 To 7
If A(i, j) < min Then min = A(i, j): i_min = i: j_min = j
Next j
Next i
k = (5 - i_min) * 7 + 7 - j_min
Cells(9, 1) = i_min & j_min
Cells(11, 4) = k

End Sub

[Vja4eslav]

Option Explicit

Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer

For i = 2 To 6
For j = 1 To 7
Cells(i, j) = Int(Rnd * 11 - 5)
Next
Next

Call Выполнить_Click
End Sub

Sub Выполнить_Click()
Dim A(1 To 5, 1 To 7), i, j, k, min, i_min, j_min As Integer

'For i = 1 To 5
'For j = 1 To 7
'A(i, j) = Cells(i + 1, j)
'Next j
'Next i

min = [A2].Value

For i = 1 To 5
For j = 1 To 7
If Cells(i, j).Value < min Then min = Cells(i, j).Value: i_min = i: j_min = j
Next j
Next i

k = (5 - i_min) * 7 + 7 - j_min

' Cells(9, 1) = i_min & j_min
Cells(10, 1) = min
Cells(9, 1) = Cells(i_min, j_min).Address
Cells(11, 4) = k

End Sub

[Stepan2000]

выдает какую-то ошибку((

run-time error "1004"
Application-defined or object-defined error.

[Vja4eslav]

Замени, пожалуйста:
min = [A2].Value
на
min = 12

[Stepan2000]

ага,спасибо)
а как сделать атк,чтобы в матрице эти значения цветом выделялись,не знаешь случаем?))

[Vja4eslav]

Извини, забыл про цвет:

Option Explicit

Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer

For i = 2 To 6
For j = 1 To 7
Cells(i, j) = Int(Rnd * 11 - 5)
Next
Next

Call Выполнить_Click
End Sub

Sub Выполнить_Click()
Dim A(1 To 5, 1 To 7), i, j, k, min, i_min, j_min As Integer
min = 12

Range(Cells(1, 1), Cells(5, 7)).Interior.ColorIndex = xlNone

For i = 1 To 5
For j = 1 To 7
If Cells(i, j).Value < min Then min = Cells(i, j).Value: i_min = i: j_min = j
Next j
Next i

k = (5 - i_min) * 7 + 7 - j_min
Cells(10, 1) = min
Cells(9, 1) = Cells(i_min, j_min).Address
Cells(i_min, j_min).Interior.ColorIndex = 3
Cells(11, 4) = k

End Sub

[Stepan2000]

огромное спасибо)) очень помог) благодарствую))