Engineer123
New Member
- Joined
- Nov 21, 2019
- Messages
- 8
Hello, I need to have a large Public Array that is manipulated and displayed by different procedures in VBA. However, Excel is giving me an error message that says that "Arrays are not allowed as Public Members of Object Modules". Below is example code that I need to get to work...
--------------------------------------------------------
Public Matrix() As Single
Private Sub DoEverything()
'Start Here
Call SetMatrixToOnes
Call DoubleMatrix
Call DisplayMatrix
'Finished
End Sub
Private Sub SetMatrixToOnes()
Dim i, j, k As Single
ReDim Matrix(2, 2)
For i = 1 To 2
For j = 1 To 2
Matrix(i, j) = 1
Next j
Next i
End Sub
Private Sub DoubleMatrix()
Dim i, j, k As Single
For i = 1 To 2
For j = 1 To 2
Matrix(i, j) = 2 * Matrix(i, j)
Next j
Next i
End Sub
Private Sub DisplayMatrix()
Dim i, j, k As Single
Dim a, b, c As String
For i = 1 To 2
a = a & "//"""
For j = 1 To 2
a = a & " / "
a = a & Matrix(i, j)
Next j
Next i
MsgBox a
End Sub
--------------------------------------------
If anyone could help, I would greatly appreciate it.
Thank you.
--------------------------------------------------------
Public Matrix() As Single
Private Sub DoEverything()
'Start Here
Call SetMatrixToOnes
Call DoubleMatrix
Call DisplayMatrix
'Finished
End Sub
Private Sub SetMatrixToOnes()
Dim i, j, k As Single
ReDim Matrix(2, 2)
For i = 1 To 2
For j = 1 To 2
Matrix(i, j) = 1
Next j
Next i
End Sub
Private Sub DoubleMatrix()
Dim i, j, k As Single
For i = 1 To 2
For j = 1 To 2
Matrix(i, j) = 2 * Matrix(i, j)
Next j
Next i
End Sub
Private Sub DisplayMatrix()
Dim i, j, k As Single
Dim a, b, c As String
For i = 1 To 2
a = a & "//"""
For j = 1 To 2
a = a & " / "
a = a & Matrix(i, j)
Next j
Next i
MsgBox a
End Sub
--------------------------------------------
If anyone could help, I would greatly appreciate it.
Thank you.