從VBA中的函數返回數組

Question

我想編寫一個接受數組作為參數的函數。 然后，該函數將填充一些元素。 最后，該函數填充的數組對調用者可見。

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

一種解決方案是只傳遞數組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