assigning values to array

[Juggernath]

Is there some elegant way to assign values to array, for ex:
dim A(3) as integer {1,2,4}

instead of
dim A(3) as integer

A(1)=1
A(2)=2
A(3)=4

 

[Norman Jones]

Hi Juggernath,

One possibility:

Dim arr As Variant

arr = Array(1, 2, 4)

 

[Chip Pearson]

Unfortunately not.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Juggernath]

Hi Juggernath,

One possibility:

Dim arr As Variant

arr = Array(1, 2, 4)

I tried it already... it says "cannot assign to array" when it comes to 2nd
line.

 

[Bob Phillips]

Well it worked fine for me, as I am sure it did for Norman.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Norman Jones]

Hi Juggernath,

As Bob suggests, the code worked in my test.

How did you dim your array?

 

[Alan Beban]

Is there some elegant way to assign values to array, for ex:
dim A(3) as integer {1,2,4}

instead of
dim A(3) as integer

A(1)=1
A(2)=2
A(3)=4

If the functions in the freely downloadable file at
http://home.pacbell.net/beban are available to your workbook

Dim A() As Integer
Assign Array(1, 2, 4), A

Alan Beban

 

[Juggernath]

Hi Juggernath,

As Bob suggests, the code worked in my test.

How did you dim your array?

Thanks for trying to help so far...

Here is my code (Custom function in VBA - excel - OfficeXP)

Dim A(11) As Double
A = Array(0.3265, -1.07, -0.5339, 0.01569, -0.05165, 0.5475, -0.7361,
0.1844, 0.1056, 0.6134, 0.721)

and here is my error when i run a function using subroutine on a given
picture
http://www.rgn.hr/~dvulin/myerror.gif

(i tried dim A(10) as double, and (1 to 11)...etc.)

 

[Norman Jones]

Hi Juggernath,

Try changing:

Dim A(11) As Double

to:

Dim A As Variant

 

[Juggernath]

Look again

http://www.rgn.hr/~dvulin/myerror.gif

P.S.

see the part bellow

 

[Bob Phillips]

Read Norman's response again.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Norman Jones]

Hi Juggernath,

Look again

http://www.rgn.hr/~dvulin/myerror.gif

P.S.

see the part bellow

In common with many in this NG, I never open unknown attachments.

Perhaps you could articulate the gif message?

In the meanwhile try the following:

'==============>>
Sub Tester()
Dim arr As Variant
Dim i As Long


arr = Array(0.3265, -1.07, -0.5339, 0.01569, -0.05165, 0.5475, _
-0.7361, 0.1844, 0.1056, 0.6134, 0.721)
For i = LBound(arr) To UBound(arr)
Debug.Print arr(i)
Next i

End Sub
'<<==============

Now check the contents of your immediate window.

 

[Norman Jones]

Hi Bob,

You used a mere four words to convey what took me an entire post!

Unfortunately, when I responded your post was not visible - to me!

 

[Bob Phillips]

Hi Norman,

I try to be to the point )

Bob

Hi Bob,

You used a mere four words to convey what took me an entire post!

Unfortunately, when I responded your post was not visible - to me!

 

[Alan Beban]

Well, with respect to being to the point, the responders are suggesting
code to load a Variant() type array, while the OP is looking to load a
Double() type array, and never the twain shall meet.

As I suggested in my earlier post, if the functions in the freely
downloadable file at http://home.pacbell.net/beban are available to
one's workbook, one might use

Dim A() As Double
Assign Array(1,2,4),A

Alan Beban

 

[Norman Jones]

Hi Alan,

Well, with respect to being to the point, the responders are suggesting
code to load a Variant() type array, while the OP is looking to load a
Double() type array, and never the twain shall meet.

The OP's initial post said:

'========================
Is there some elegant way to assign values to array, for ex:
dim A(3) as integer {1,2,4}

instead of
dim A(3) as integer

A(1)=1
A(2)=2
A(3)=4

'========================

My response was directed to that question.

the responders are suggesting code to load a Variant() type array

Also, if:

the OP is looking to load a Double() type array, and never the twain shall
meet.

why did you suggest a Single() type array in your response?


Regards,
Norman

 

[Alan Beban]

Hi Alan,




The OP's initial post said:

'========================
Is there some elegant way to assign values to array, for ex:
dim A(3) as integer {1,2,4}

instead of
dim A(3) as integer

A(1)=1
A(2)=2
A(3)=4

'========================

My response was directed to that question.

Understood. But the OP's post at 9:28am on 11/24 stated

"I tried it already... it says "cannot assign to array" when it comes to
2nd line."

made it clear (at least to me), when coupled with his original posting
including

Dim A(3) as integer

that the problem was he was continuing to try to load a non-Variant()
type array.

Cheers,
Alan Beban