Mi lehet a gond a következő vba funkcióval? Lefuttatom, és #ÉRTÉK hibát jelez az adott cellában. Alapvetően a funkció lényege lenne, hogy válasszon egy generátor értéket, és egy "a" mátrix adott értékével végezze el a műveletet.

Function bazist(a)

n = a.Rows.Count

m = a.Columns.Count

For j = 1 To m

For i = 1 To n

If a(i, j) <> 0 Then

gen = a(i, j)

Exit For

End If

Next i

If a(i, j) <> 0 Then

gen = a(i, j)

Exit For

End If

Next j

a(u, v) = gen

x = 1

y = 1

bazist = a(x, y) - a(u, y) * a(x, v) / a(u, v)

End Function