4X4 Matrix 1

[misterminis]

Hey all,
I am trying to rite a sub that makes a simple 4 X 4 array that is full of values I/anyone have input and then puts those values on the spreadsheet. I first tried doing a dynamic array and that did not work. I read some tips elsewhere that would suggest a fixed array instead, but I have no idea how to do this with a fixed array...I'm guessing a fixed array has values that do not change, but that just did not make sense to me in coding.

 

[Rofeu]

Hi,

first of all: a fixed array does not have fixed values. It has fixed dimensions.

What have you tried so far? How will the data be entered on the spreadsheet? What do you intend to do with the data in the array?

Cheers,

Roel

 

[macropod]

Hi misterminis,

How many input values do you have? A 4*4 matrix implies 4 input values, but 4 unique digits (eg 1,2,3,4) gives 24 possible results:
1234 4123 3412 2341
1342 2134 4213 3421
4321 1432 2143 3214
2431 1243 3124 4312
4132 2413 3241 1324
2314 4231 1423 3142

Any sequence of n digits will yeild n! unique permutations.

Cheers

[MS MVP - Word]

 

[CautionMP]

misterminis,
Hopefully an example will help get you moving in the right direction.

Sub PopArray()
Dim intRow As Integer, intColumn As Integer
Dim MyArray(1 To 4, 1 To 4) As String
Dim strMsg As String
For intRow = 1 To 4
  For intColumn = 1 To 4
    strMsg = "Row: " & intRow & vbCrLf & "Column: " & intColumn
    MyArray(intRow, intColumn) = InputBox(strMsg, "Enter value for...")
  Next intColumn
Next intRow
'Point to a 4 x 4 range on the active sheet
ActiveSheet.Range("A1:D4") = MyArray
End Sub

Hope this helps,
CMP

[small]For the best results do what I'm thinking, not what I'm saying.[/small]
(GMT-07:00) Mountain Time (US & Canada)

 

[misterminis]

Thanks a bunch CautionMP

I more or less looked at your code and came up with the following....

Option Explicit
Option Base 1
Dim i As Integer, j As Integer, column1 As Double, column2 As Single, column3 As Single, column4 As Single, rowtotals As Double
Dim total As Single
Dim matrix(4, 4)

Sub lab8()
For i = 1 To 4
For j = 1 To 4
'entering you values
matrix(i, j) = InputBox("Please enter your values for the array and 1337 to quit")
'exit if tyhey enter 1337
If matrix(i, j) = 1337 Then
Exit Sub
End If
'placing values into the matrix
Cells(i, j).value = matrix(i, j)
Next j
Next i
'adding up the values in each column and totaling them
For i = 1 To 4
total = 0
For j = 1 To 4
total = total + matrix(j, i)
Next j
Range("A6").Offset(0, i - 1).value = total
Next i
End Sub