Przekazywanie tablic pomiędzy procedurami i zmiennymi

Praca z tablicami może bywać problematyczna szczególnie dla początkujących programistów VBA. W niniejszym blogu powstało już wiele wpisów dot. pracy z tablicami. Ostatnio jednak trafiłem na pytanie dot. przekazywania tablicy stałoelementowej pomiędzy różnymi procedurami, innymi zmiennymi, itp. Myślę, że warto krótko podsumować obowiązujące zasady szczególnie, że nie są to zasady skomplikowane. Zacznijmy od prostej definicji bazowej tablicy:

view sourceprint?

1	Dim arrStart(8) As Double

2	'oraz w celu kontroli z wykorzystaniem okna Locals

3	'ustawiamy jeden element tablicy na określoną wartość

4	arrStart(8) = 1

Problem 1. Jak przekazać powyższą tablice do innej zmiennej? Istnieją dwa i tylko dwa dostępne scenariusze:

view sourceprint?

1	'przekazyjemy tablicę do zmiennej typu Variant

2	'jednocześnie nie deklarujemy tej zmiennej jako tablicy

3	Dim arrVariant As Variant

4	arrVariant = arrStart

oraz wariant drugi:

view sourceprint?

1	'deklarujemy zmienną tablicową dynamiczną nie określając ilości elementów

2	'w tym wariancie tablica może być określonego typu (tu: double)

3	Dim arrEmpty() As Double

4	arrEmpty = arrStart

Problem 2. Jak przekazać tablicę do funkcji, procedury parametryzowanej lub właściwości? Tu obowiązują identyczne zasady jak w przekazywaniu tablicy pomiędzy zmiennymi:

view sourceprint?

1	'na początek definicja funkcji

2	Function FunctionArray(arrInternal() As Double, arrOtherInternal As Variant)

3	'...tu nasze obliczenia i zwracany wynik

4	End Function

5

6	'wywołanie funkcji i pobranie jej wyniku

7	'z wykorzystaniem uprzednio utworzonych zmiennych

8	Dim arrFunction() As Double

9	arrFunction = FunctionArray(arrStart, arrVariant)

Problem 3. Jak utworzyć funkcję, która będzie zwracać tablicę o określonej ilości elementów? W praktyce nie ma takiej możliwości. Jeżeli jednak przypiszemy do zwracenj wartości odpowiednią tablicę to funkcja stanie się funkcją tablicową.

view sourceprint?

1	'przykład na bazie powyższych fragmentów kodu

2	Function FunctionArray(arrInternal() As Double, arrOtherInternal As Variant) As Variant

3	FunctionArray = arrInternal

4	End Function