Difficulty assigning values to array elements

[huggybear]

Please help me. I am having difficulty assigning values to array elements.

When I use this method:

Dim y
y = Array(7,6,5,4,etc)

I get an error when I try to compile, "Invalid outside procedure"

I get the same error when I use this method:

Option Base = 1

Dim y(4) As Integer
y(1) = 1

I don't get it. Do you?

Thanks

 

[MajP]

Are you trying to use the array function outside of a procedure? You can not, just like any other function.

Public Sub test()
Dim y() As Variant
y = Array(1, 2, 3, 4, 5)
Debug.Print y(4)

Dim z(1 To 4) As Integer
z(1) = 123
Debug.Print z(1)
End Sub

output
5
123

 

[CautionMP]

Invalid outside procedure

You can declare the variable outside a procedure, but you can't set it. Here is an example:

Option Explicit

[green]'Global declaration[/green]
Dim y

Sub SetGlobalArray()
y = Array(7,6,5,4)
End Sub

Sub SetLocalArray()
Dim z(4) As Integer
z(1) = 1
End Sub

Hope this helps,
CMP

(GMT-07:00) Mountain Time (US & Canada)

 

[huggybear]

I must be losing my mind. You guys nailed it. Thanks for your help.

Bear