VBA Array Population with a Single Line of Code

  • Thread starter Thread starter James B
  • Start date Start date
J

James B

I'm trying to figure out how to populate an array variable
in VBA without using something similar to the code below:

ReDim a(1 To 4)
a(1) = 2
a(2) = 3
a(3) = 5
a(4) = 7

Can this be done with a single line of code? Also, can I
populate a single section of a multidimensional array with
something like the following?

beta(7,3 to 14)= ..... the values for those points in the
array

Any help is certainly appreciated. I've been doing this
the long way for years, and it is driving me crazy!
 
Hi James,

Single dimension

Dim a

a = Array(2,3,5,7)

Multi-dimension

Dim beta

beta = [{7,3;8,4;9,5;10,6;11,7;12,8;13,9;14,10}]

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
As for your first question

Option Base 1
___________________
Sub junk()
Dim a()
a=Array(2,3,5,7)
End Sub

As for your second, with the functions in the freelydownloadable file at
http://home.pacbell.net/beban available to your workbook

Option Base 1
___________________
Sub junk2()
Dim beta, arr
beta = Range("a1:p13")
arr = Array(103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114)
ReplaceSubArray beta, arr, 7, 3
End Sub

Simply, replace that portion of beta beginning at row index 7, column
index 3 with the elements of arr.

Alan Beban
 
Reading Bob Phillips's response made it clear that there is some
ambiguity in what you requested in your second inquiry. I assumed that
you had a 2-D array variable, beta, and you wanted to repopulate row 7,
column 3 to 14, with the unspecified list of values. In any event,
that's what my last post assumed.

Alan Beban
 
Thanks, Alan.

These VBA functions should add a lot of firepower to the
array manipulation I've been working on (reservoir
simulation).

- James
 
Thanks, Bob.

I'll now be able to quickly load in a multidimensional
array and then shift or paste it as needed via Alan's
toolkit.

- James

-----Original Message-----
Hi James,

Single dimension

Dim a

a = Array(2,3,5,7)

Multi-dimension

Dim beta

beta = [{7,3;8,4;9,5;10,6;11,7;12,8;13,9;14,10}]

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

I'm trying to figure out how to populate an array variable
in VBA without using something similar to the code below:

ReDim a(1 To 4)
a(1) = 2
a(2) = 3
a(3) = 5
a(4) = 7

Can this be done with a single line of code? Also, can I
populate a single section of a multidimensional array with
something like the following?

beta(7,3 to 14)= ..... the values for those points in the
array

Any help is certainly appreciated. I've been doing this
the long way for years, and it is driving me crazy!
Click to expand...


.
Click to expand...
 
Don't get too excited. <g> This is extremely limited as to the number of
elements you can load.

--
Regards,
Tom Ogilvy

Thanks, Bob.

I'll now be able to quickly load in a multidimensional
array and then shift or paste it as needed via Alan's
toolkit.

- James

-----Original Message-----
Hi James,

Single dimension

Dim a

a = Array(2,3,5,7)

Multi-dimension

Dim beta

beta = [{7,3;8,4;9,5;10,6;11,7;12,8;13,9;14,10}]

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

I'm trying to figure out how to populate an array variable
in VBA without using something similar to the code below:

ReDim a(1 To 4)
a(1) = 2
a(2) = 3
a(3) = 5
a(4) = 7

Can this be done with a single line of code? Also, can I
populate a single section of a multidimensional array with
something like the following?

beta(7,3 to 14)= ..... the values for those points in the
array

Any help is certainly appreciated. I've been doing this
the long way for years, and it is driving me crazy!
Click to expand...


.
Click to expand...
Click to expand...
 
James,

Curious, what is reservoir simulation?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top