Matrix v Array

[Jezza]

I hope I am explaining this right so feel free to ask questions

I have a matrix I wish to act as parameters for an array like so:

a_1.1, a_1.2, a_1.3
a_2.1, a_2.2, a_2.3
a_3.1, a_3.2, a_3.3

so the matrix could hold values like so

1,0,0
0,1,0
0,0,1

I want each "row" of the matrix to be the parameter values of a function so that it will act as an input, then move to the next row and then the next.

How do I loop through this matrix row by row? ....or am I going about it wrong?

[Rick Rothstein]

Can you describe this "matrix" for us? What exactly is it and where are its members located at? How did you load it up with values?

[HansV]

Does this do what you want?

Code: Select all

Dim i As Integer
For i = 1 To 3
    Call MyFunction(a(i, 1), a(i, 2), a(i, 3))
Next i

Here MyFunction expects either 3 arguments, or a ParamArray of an arbitrary number of arguments.

[Jezza]

Does this do what you want?

Code: Select all

Dim i As Integer
For i = 1 To 3
    Call MyFunction(a(i, 1), a(i, 2), a(i, 3))
Next i

Here MyFunction expects either 3 arguments, or a ParamArray of an arbitrary number of arguments.

Thanks Hans
Here is where I am a bit fluffy on the way to store the matrix within MyFunctionwould it be something similar to:
a(1,1)=1
a(1,2)=0
a(1,3)=0
a(2,1)=0
a(2,2)=0
...

[HansV]

Could you provide a more detailed description of what you have / what you want to accomplish?

[sdckapr]

Something like this perhaps (if your question is specific)?
Steve

Code: Select all

Option Explicit
Sub Play()
  Dim x As Integer
  Dim y As Integer
  Dim iRow As Integer
  Dim iCol As Integer
  Dim vArray
  iRow = 3
  iCol = 3
  ReDim vArray(1 To iRow, 1 To iCol)
  For x = 1 To iRow
    For y = 1 To iCol
      vArray(x, y) = -(x = y)
    Next
  Next
End Sub

[Jezza]

That will work great Steve, sorry for the vaguity of my original question as to why I am doing this but I have created a game and I want this matrix to act as a series of logic switches (hence the 1's and 0's) that will be used to start another function depending on the state.

I will adapt your code to pick up values stored in cells on a hidden worksheet.

[sdckapr]

You can load the contents of a range directly into an array without looping, if that is your intent:

Dim vArray()
vArray = Worksheets("Sheet1").Range("A1:C15")

Steve