从VBA中的函数返回一个数组

我想编写一个接受数组作为参数的函数，然后函数填充一些元素，最后，由函数填充的数组变得可见。

sub main1() Dim A(1,3) as string F(A) '???How to get the value of each array element here? ... End Sub Function F(X(1,3) as string) string() X(1,1)=3.14 End Function 

我看了以下文章，但没有得到它，一些如何的问题是不一样的。 从VBA中的函数返回数组

Answer 1

一个解决scheme是只传递数组ByRef

 Sub main1() Dim A(1, 3) As String Call F(A) Debug.Print A(1, 1) End Sub Sub F(ByRef x() As String) x(1, 1) = 3.14 End Sub