Срочно нужна помощь по VBA Excel
Задание.
Нужно перемножить несколько матриц, ввод значений с листа Excel, вывод всех промежуточных значений. Были даны примеры.
1 Умножение матриц:
Sub MultM((NrowA%, NcolA%, NcolB%,A!(), B!(), C!())
Dim i%, j%, s!, l%
For i = 1 to NrowA
For j = 1 to NcolB
s = 0
For l = 1 to NcolA: s = s + A(i, l) * B(l, j): Next l
C(i, j)=s
Next j
Next i
End Sub
Транспонирование я сделал вот так:
Sub TranspD()
Dim D(), Dt()
D = Range(Cells(2, 1), Cells(4, 1)).Value
Dt = Application.Transpose(D)
Range(Cells(7, 1), Cells(7, 3)) = Dt
End Sub
Очень срочно, не получается совместить все.
Задание.
Нужно перемножить несколько матриц, ввод значений с листа Excel, вывод всех промежуточных значений. Были даны примеры. 1 Умножение матриц:
Sub MultM((NrowA%, NcolA%, NcolB%,A!(), B!(), C!())
Dim i%, j%, s!, l%
For i = 1 to NrowA
For j = 1 to NcolB
s = 0
For l = 1 to NcolA: s = s + A(i, l) * B(l, j): Next l
C(i, j)=s
Next j
Next i
End Sub
Транспонирование я сделал вот так:
Sub TranspD()
Dim D(), Dt()
D = Range(Cells(2, 1), Cells(4, 1)).Value
Dt = Application.Transpose(D)
Range(Cells(7, 1), Cells(7, 3)) = Dt
End Sub
Очень срочно, не получается совместить все.