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

Hi Juggernath,

One possibility:

Dim arr As Variant

arr = Array(1, 2, 4)

---
Regards,
Norman



"Juggernath" wrote in message
...
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

Unfortunately not.


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

"Juggernath" wrote in message
...
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" wrote in message
...
Hi Juggernath,

One possibility:

Dim arr As Variant

arr = Array(1, 2, 4)

---
Regards,
Norman



"Juggernath" wrote in message
...
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



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

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)


"Juggernath" wrote in message
...

"Norman Jones" wrote in message
...
Hi Juggernath,

One possibility:

Dim arr As Variant

arr = Array(1, 2, 4)

---
Regards,
Norman



"Juggernath" wrote in message
...
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



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

Hi Juggernath,

As Bob suggests, the code worked in my test.

How did you dim your array?

---
Regards,
Norman



"Juggernath" wrote in message
...

"Norman Jones" wrote in message
...
Hi Juggernath,

One possibility:

Dim arr As Variant

arr = Array(1, 2, 4)

---
Regards,
Norman



"Juggernath" wrote in message
...
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



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

Juggernath wrote:
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

"Norman Jones" wrote in message
...
Hi Juggernath,

As Bob suggests, the code worked in my test.

How did you dim your array?

"Norman Jones" wrote in message
...
Hi Juggernath,

One possibility:

Dim arr As Variant

arr = Array(1, 2, 4)

---
Regards,
Norman


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.)

Hi Juggernath,

Try changing:

Dim A(11) As Double

to:

Dim A As Variant

---
Regards,
Norman


"Juggernath" wrote in message
...

"Norman Jones" wrote in message
...
Hi Juggernath,

As Bob suggests, the code worked in my test.

How did you dim your array?

"Norman Jones" wrote in message
...
Hi Juggernath,

One possibility:

Dim arr As Variant

arr = Array(1, 2, 4)

---
Regards,
Norman


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.)

Look again

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

P.S.

see the part bellow ;)



"Norman Jones" wrote in message
...

Hi Juggernath,



Try changing:



Dim A(11) As Double



to:



Dim A As Variant



---

Regards,

Norman





"Juggernath" wrote in message

...



"Norman Jones" wrote in message

...

Hi Juggernath,



As Bob suggests, the code worked in my test.



How did you dim your array?



"Norman Jones" wrote in message

...

Hi Juggernath,



One possibility:



Dim arr As Variant



arr = Array(1, 2, 4)



---

Regards,

Norman





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.)

Read Norman's response again.

--

HTH

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


"Juggernath" wrote in message
...
Look again

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

P.S.

see the part bellow ;)



"Norman Jones" wrote in message
...

Hi Juggernath,



Try changing:



Dim A(11) As Double



to:



Dim A As Variant



---

Regards,

Norman





"Juggernath" wrote in message

...



"Norman Jones" wrote in message

...

Hi Juggernath,



As Bob suggests, the code worked in my test.



How did you dim your array?



"Norman Jones" wrote in message

...

Hi Juggernath,



One possibility:



Dim arr As Variant



arr = Array(1, 2, 4)



---

Regards,

Norman





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.)

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.

---
Regards,
Norman



"Juggernath" wrote in message
...
Look again

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

P.S.

see the part bellow ;)



"Norman Jones" wrote in message
...

Hi Juggernath,



Try changing:



Dim A(11) As Double



to:



Dim A As Variant



---

Regards,

Norman

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!

---
Regards,
Norman



"Bob Phillips" wrote in message
...
Read Norman's response again.

--

HTH

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

Hi Norman,

I try to be to the point :-))

Bob


"Norman Jones" wrote in message
...
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!

---
Regards,
Norman



"Bob Phillips" wrote in message
...
Read Norman's response again.

--

HTH

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

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

Bob Phillips wrote:
Hi Norman,

I try to be to the point :-))

Bob


"Norman Jones" wrote in message
...

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!

---
Regards,
Norman



"Bob Phillips" wrote in message
...

Read Norman's response again.

--

HTH

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

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" wrote in message
...
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

Bob Phillips wrote:
Hi Norman,

I try to be to the point :-))

Bob


"Norman Jones" wrote in message
...

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!

---
Regards,
Norman



"Bob Phillips" wrote in message
...

Read Norman's response again.

--

HTH

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

Norman Jones wrote:
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.

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