[VBA] Przekazywanie tablicy jako parametr funkcji

[Dorota]

Witajcie.

Czy można przekazywać tablicę napisów jako parametr funkcji? Jeśli się nie
da, to zadeklaruję zmienną globalną, ale wolałabym uniknąć takiego
rozwiązania.
Pozdrawiam
Dorota

[Tajan]

Post by Dorota
Witajcie.
Czy można przekazywać tablicę napisów jako parametr funkcji? Jeśli
się nie da, to zadeklaruję zmienną globalną, ale wolałabym uniknąć
takiego rozwiązania.

Owszem,da się. Przykładowo:

Sub test()
Dim tbl(1 To 3) As String
tbl(1) = "jeden"
tbl(2) = "dwa"
tbl(2) = "trzy"
MojaFunkcja tbl
End Sub

Function MojaFunkcja(tablica() As String)
Dim i As Integer
For i = LBound(tablica) To UBound(tablica)
MsgBox tablica(i)
Next
End Function

Tajan

[Dorota]

Dziękuję bardzo

Dorota

[Marcin Miga]

Post by Dorota
Witajcie.
Czy można przekazywać tablicę napisów jako parametr funkcji? Jeśli
się nie da, to zadeklaruję zmienną globalną, ale wolałabym uniknąć
takiego rozwiązania.

A czemu nie? Można, ale tylko ByRef i tylko w VB6 (i zgodnym z nim VBA
z office 2k i wyższym)

Private Function foo(ByRef astrTablica() as string) as Integer

pozdrawiaMM