ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   array (https://www.excelbanter.com/excel-programming/324826-array.html)

ΓΙΑΝΝΗΣ Χ.Β.

array
 
In one module, I have written 3 VBA functions.
In each VBA function I have 10 arrays as follow:
Dim Aarr() As Variant: Aarr = Array("a", "¸b", "c", "d")
Dim Barr() As Variant: Barr = Array("aa", "¸bb", "cc", "dd")
Etc
The 10 arrays are exactly the same for the 3 functions and I repeat them for
each function.
Is there away to write only once the arrays in the module in order to work
for the 3 VBA functions?

Τhanks, for the answer.

Bob Phillips[_6_]

array
 
Declare the variables as private variables before the 3 functions, they will
then be in scope of all 3

Private Aarr() As Variant
etc.

Sub rtn1()
....
End Sub

and so on

--

HTH

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


"??????? ?.?." wrote in message
...
In one module, I have written 3 VBA functions.
In each VBA function I have 10 arrays as follow:
Dim Aarr() As Variant: Aarr = Array("a", "b", "c", "d")
Dim Barr() As Variant: Barr = Array("aa", "bb", "cc", "dd")
Etc.
The 10 arrays are exactly the same for the 3 functions and I repeat them

for
each function.
Is there away to write only once the arrays in the module in order to work
for the 3 VBA functions?

?hanks, for the answer.




Dr. Stephan Kassanke[_2_]

array
 

"??????? ?.?." schrieb im Newsbeitrag
...
In one module, I have written 3 VBA functions.
In each VBA function I have 10 arrays as follow:
Dim Aarr() As Variant: Aarr = Array("a", "b", "c", "d")
Dim Barr() As Variant: Barr = Array("aa", "bb", "cc", "dd")
Etc.
The 10 arrays are exactly the same for the 3 functions and I repeat them
for
each function.
Is there away to write only once the arrays in the module in order to work
for the 3 VBA functions?


Declare the arrays on module level instead of declaring them for each
function, thus you will get public variables.

cheers,
Stephan




All times are GMT +1. The time now is 05:10 PM.

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