VBA Ussing Arrays
 

I have an array in VBA, and I want to find the inverse using the

"MINVERSE", but I want to do this in VBA, and not use values from the
worksheet.

Sub MatrixFormuls()

Dim Array1(2, 2), Array2(2, 1), Array3(2, 2), Array4(2, 1), X(2, 2) As Double

Array1(1, 1) = 3
Array1(1, 2) = 4
Array1(2, 1) = 4
Array1(2, 2) = 8

Array2(1, 1) = 8
Array2(2, 1) = 1

'Array3(1, 1) = Application.Index(Application.MInverse(Array1), 1, 1)
X(1, 1) = Application.MInverse(Array1(2, 2))


I am trying to set X = to the inverse of Array1(2,2)

Since X will have 4 values = a 2 x 2 array I want to use the "Index"
function to get each of the inverse values and assign it to a 2x2 array.

My current code does not work

Thanks for your help

VBA Ussing Arrays
 

Dim Array1(2, 2),

Hi. As a technique, as you step thru your code, pull up the "Locals
Window." You will see that your lower bound of Array1 is 0, and probably
not your expected value of 1.
Perhaps one of a few ways...

Sub MatrixFormuls()
Dim Array1(1 To 2, 1 To 2)
Dim X As Variant

Array1(1, 1) = 3
Array1(1, 2) = 4
Array1(2, 1) = 4
Array1(2, 2) = 8

X = WorksheetFunction.MInverse(Array1)
End Sub

HTH. :)
--
Dana DeLouis
Win XP & Office 2003


"Jeff" wrote in message
...
I have an array in VBA, and I want to find the inverse using the

"MINVERSE", but I want to do this in VBA, and not use values from the
worksheet.

Sub MatrixFormuls()

Dim Array1(2, 2), Array2(2, 1), Array3(2, 2), Array4(2, 1), X(2, 2) As
Double

Array1(1, 1) = 3
Array1(1, 2) = 4
Array1(2, 1) = 4
Array1(2, 2) = 8

Array2(1, 1) = 8
Array2(2, 1) = 1

'Array3(1, 1) = Application.Index(Application.MInverse(Array1), 1, 1)
X(1, 1) = Application.MInverse(Array1(2, 2))


I am trying to set X = to the inverse of Array1(2,2)

Since X will have 4 values = a 2 x 2 array I want to use the "Index"
function to get each of the inverse values and assign it to a 2x2 array.

My current code does not work

Thanks for your help

VBA Ussing Arrays
 

Forgot to mention...If you would like a slightly different approach for
small arrays...

Sub Demo()
Dim Array1, X

Array1 = [{3,4;4,8}]
X = WorksheetFunction.MInverse(Array1)
End Sub

HTH ;)
--
Dana DeLouis
Win XP & Office 2003


"Dana DeLouis" wrote in message
...
Dim Array1(2, 2),

Hi. As a technique, as you step thru your code, pull up the "Locals
Window." You will see that your lower bound of Array1 is 0, and probably
not your expected value of 1.
Perhaps one of a few ways...

Sub MatrixFormuls()
Dim Array1(1 To 2, 1 To 2)
Dim X As Variant

Array1(1, 1) = 3
Array1(1, 2) = 4
Array1(2, 1) = 4
Array1(2, 2) = 8

X = WorksheetFunction.MInverse(Array1)
End Sub

HTH. :)
--
Dana DeLouis
Win XP & Office 2003


"Jeff" wrote in message
...
I have an array in VBA, and I want to find the inverse using the

"MINVERSE", but I want to do this in VBA, and not use values from the
worksheet.

Sub MatrixFormuls()

Dim Array1(2, 2), Array2(2, 1), Array3(2, 2), Array4(2, 1), X(2, 2) As
Double

Array1(1, 1) = 3
Array1(1, 2) = 4
Array1(2, 1) = 4
Array1(2, 2) = 8

Array2(1, 1) = 8
Array2(2, 1) = 1

'Array3(1, 1) = Application.Index(Application.MInverse(Array1), 1, 1)
X(1, 1) = Application.MInverse(Array1(2, 2))


I am trying to set X = to the inverse of Array1(2,2)

Since X will have 4 values = a 2 x 2 array I want to use the "Index"
function to get each of the inverse values and assign it to a 2x2 array.

My current code does not work

Thanks for your help