current community

your communities

more stack exchange communities

Stack Exchange
tour help
careers 2.0
Take the 2-minute tour ×
Stack Overflow is a question and answer site for professional and enthusiast programmers. It's 100% free, no registration required.
up vote 1 down vote favorite

I am still new to VBA. here is the code:

Sub Macro1()
Dim NumberSeq() As Integer = {1,2,3,4}
End Sub

It's just the initialization of an array and I saw it work for others. But I always get the warning window: Compile error: Expected: end of statement with highlight on the equal mark"="

Don't know what happened here. Please advice, thank you a lot!!

share|improve this question
3  
VBA doesn't support declaration and assignment in one line. –  Tim Williams Jun 17 '13 at 21:51
    
Closest you could get might be Dim a(): a = [{1,2,3}] - but note that's a variant array not an integer one –  Tim Williams Jun 17 '13 at 21:59
add comment

1 Answer

up vote 2 down vote 
Sub macro1()
Dim NumberSeq() As Variant

NumberSeq = Array(1, 2, 3, 4) 'an allocated array with length 1 to 4

'check output through print
For i = LBound(NumberSeq) To UBound(NumberSeq)
    msg = msg & NumberSeq(i) & vbNewLine
Next i
MsgBox (msg)

End Sub

For implicitly sized 2 dimensional arrays use Array(row start To row end, col start to col end).

Here is a good resource.

share|improve this answer
    
Did you try that code? –  Tim Williams Jun 17 '13 at 21:58
    
thanks for the heads up! @TimWilliams –  agconti Jun 17 '13 at 23:07
    
Thank you so much for both of your help! It works! It seems without the "As Variant" also works. And thank you for sharing the website resource:) –  user2495069 Jun 17 '13 at 23:34
1  
No problem! there is a lot of great information there. If I answered your question please click the check mark next to my answer, thanks! –  agconti Jun 17 '13 at 23:37
add comment

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.