Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
vba adding arrays | Excel Discussion (Misc queries) | |||
Confused about arrays and ranges in functions | Excel Worksheet Functions | |||
Comparing Arrays | Excel Discussion (Misc queries) | |||
How to use linest with variably sized data arrays? | Excel Worksheet Functions | |||
Comparing Arrays | Excel Worksheet Functions |