ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Const Array (https://www.excelbanter.com/excel-programming/381882-const-array.html)

Sören_Marodören

Const Array
 
Hi,

I want to declare some arrays of constants.
One array has 5 elements as String, and some other arrays can have up to 100
elements as Single.
Can I do it in a single statement like: "Const InterestRate as Single =
0.07" but with allot more data?
Or do I have to first define a variable "Dim InterestRate (1 To 100) as
Single" and then assigning it by "InterestRate =
Evaluate("{0.07,0.071,0.06,0.063}") " (I'm not sure if this works...)


Best regards,
/Sören

Bob Phillips

Const Array
 
I don't think that you can do it in the declaration, you need to dim it and
then assign it.

But just dim it as a variant variable, don't bound it.

Dim InterestRate

InterestRate = Activesheet.Evaluate("{0.07,0.071,0.06,0.063}")

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Sören_Marodören" wrote in message
...
Hi,

I want to declare some arrays of constants.
One array has 5 elements as String, and some other arrays can have up to
100
elements as Single.
Can I do it in a single statement like: "Const InterestRate as Single =
0.07" but with allot more data?
Or do I have to first define a variable "Dim InterestRate (1 To 100) as
Single" and then assigning it by "InterestRate =
Evaluate("{0.07,0.071,0.06,0.063}") " (I'm not sure if this works...)


Best regards,
/Sören




Sören_Marodören

Const Array
 
I have found a better soulution:

Dim InterestRate As Variant 'Not needed to do
InterestRate = Array(0.07, 0.071, 0.06, 0.063, 0.055, 0.059)

The Array function is new for me, but I found it in the book 'Excel 2003
Power Programming with VBA', by John Walkenbach, page 295.

BR,
/Sören

"Bob Phillips" wrote:

I don't think that you can do it in the declaration, you need to dim it and
then assign it.

But just dim it as a variant variable, don't bound it.

Dim InterestRate

InterestRate = Activesheet.Evaluate("{0.07,0.071,0.06,0.063}")

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Sören_Marodören" wrote in message
...
Hi,

I want to declare some arrays of constants.
One array has 5 elements as String, and some other arrays can have up to
100
elements as Single.
Can I do it in a single statement like: "Const InterestRate as Single =
0.07" but with allot more data?
Or do I have to first define a variable "Dim InterestRate (1 To 100) as
Single" and then assigning it by "InterestRate =
Evaluate("{0.07,0.071,0.06,0.063}") " (I'm not sure if this works...)


Best regards,
/Sören





Bob Phillips

Const Array
 
Better? Different yes, but not necessarily better.

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Sören_Marodören" wrote in message
...
I have found a better soulution:

Dim InterestRate As Variant 'Not needed to do
InterestRate = Array(0.07, 0.071, 0.06, 0.063, 0.055, 0.059)

The Array function is new for me, but I found it in the book 'Excel 2003
Power Programming with VBA', by John Walkenbach, page 295.

BR,
/Sören

"Bob Phillips" wrote:

I don't think that you can do it in the declaration, you need to dim it
and
then assign it.

But just dim it as a variant variable, don't bound it.

Dim InterestRate

InterestRate = Activesheet.Evaluate("{0.07,0.071,0.06,0.063}")

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Sören_Marodören" wrote in
message
...
Hi,

I want to declare some arrays of constants.
One array has 5 elements as String, and some other arrays can have up
to
100
elements as Single.
Can I do it in a single statement like: "Const InterestRate as Single =
0.07" but with allot more data?
Or do I have to first define a variable "Dim InterestRate (1 To 100) as
Single" and then assigning it by "InterestRate =
Evaluate("{0.07,0.071,0.06,0.063}") " (I'm not sure if this works...)


Best regards,
/Sören








All times are GMT +1. The time now is 11:28 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com