Проблема с матрицей

[fedr777]

Я получаю в Exele квадратную матрицу и мне нужно найти определитель каждого алгебраического дополнения этой матрицы, т.е. из матрицы 1 2 3
4 1 5
6 7 1
для первого элемента нужно получить матрицу 1 5
7 1 и найти ее определитель для второго элемента матрица 4 5
6 1 и т.д.
Может кто знает как это сделать.???

[uhm]

Матрица фиксированного размера? Какие средства разрешается применять? Задача выполняется один раз или многократно?

[fedr777]

Матрица фиксированного размера? Какие средства разрешается применять? Задача выполняется один раз или многократно?

Матрица не фиксированного размера. Задача выполняется многократно. На выходе должна бать матрица исходного размера. А на счет средств применения я немного не понял.

[fedr777]

Небольшая поправка к вопросу!!!
Определитель не нужен.
надо только найти матрицы алгебраических дополнений
вот что у меня получается

Код: Выделить всё

Sub algdop()
  Dim UserRange As Range
  Dim y() As Double
  Dim w As Integer
  Dim i As Integer
  Dim j As Integer
  Dim k As Integer
Set UserRange = Range("A6:pos")
k = UserRange.Columns.Count
ReDim y(k * k)
w = 1
For i = 1 To k - 1
For j = 1 To k - 1
y(w) = UserRange.Cells(i + 1, j + 1)
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = y(w)
w = w + 1
Next j
ActiveCell.Offset(-k + 1, 1).Select
Next i
End Sub

Выводит только для первого элемента. А как получить все дополнения я не знаю