Алгоритм для составления матрицы

[seryzabello]

Помогите пожалуйста написать алгоритм для кнопки "Решение".
при нажатии на кнопку на второй странице должна появляться матрица которая создается по следующему условию.
По оси Y это узлы, по оси X ветки, если ветка входит в узел,то ячейка равна 1, выходит -1, не связаны никак = 0, каждая строка это узел,а столбец ветка.Остальные ячейки остаются незаполнены вокруг матрицы
на первой страницы их взаимосвязь в столбцах H,J,K. Увых-это ветка выходит из узла, Увх-входит в него. Узел ) никак не надо учитавать,начало с 1го узла.Предел матрицы 200*200.
загрузил два файла,в первом я реализовал задачу при помощи условия "Если",но мне нужно,чтобы матрица составлялась по наажатию кнопки,для этого скидываю второй файл

[VictorM]

мне нужно,чтобы матрица составлялась по наажатию кнопки

раз уж у Вас все готово (формулы), по нажатию кнопки просто заполняйте Вашу матрицу формулами и всех делов)

[doober]

Дополнил ваш код

Private Sub CommandButton2_Click()
Dim Rw As Integer, C1 As Integer, C2 As Integer
l = [d9]
n = [d7]
m = [d7]
ReDim Matrix(1 To l, 1 To n) As Integer
For i = 1 To n
For j = 1 To m
If i = j Then
Worksheets(4).Cells(i, j) = Cells(i + 8, 9)
Else
Worksheets(4).Cells(i, j) = 0
End If
Next
Next
'-------------------------------------
For i = 1 To n
C1 = Cells(i + 8, 10)
C2 = Cells(i + 8, 11)
Rw = Cells(i + 8, 8)

If C1 > 0 Then
Matrix(C1, Rw ) = -1
End If
If C2 > 0 Then
Matrix(C2, Rw ) = 1
End If
Next
Worksheets(2).Range("A1").Resize(l, n) = Matrix