VBA：如何從函數傳遞字符串數組

Question

我不能很好地處理數組與函數的結合。 我想在外部函數中編輯字符串數組。 （稍后也用保留重新修改它）但在我的測試中我得到一個錯誤：

 Sub test()
        Dim test() As Variant
        Dim testnew() As Variant
        ReDim Preserve test(1 To 4)
        test(1) = "one"
        test(2) = "two"
        test = testfunc(test)
        Debug.Print test(3)
    End Sub
    
Function testfunc(test() As Variant) As Variant
test(3) = "three"
End Function

Answer 1

你沒有返回你的數組：

Sub test()
    Dim test() As Variant
    Dim testnew() As Variant
    ReDim Preserve test(1 To 4)
    test(1) = "one"
    test(2) = "two"
    test = testfunc(test)
    Debug.Print test(3)
End Sub
    
Function testfunc(test() As Variant) As Variant
    test(3) = "three"
    testfunc = test
End Function

或如評論所述更改為 sub 並執行 byRef：

Sub test()
    Dim test() As Variant
    Dim testnew() As Variant
    ReDim Preserve test(1 To 4)
    test(1) = "one"
    test(2) = "two"
    testfunc test
    Debug.Print test(3)
End Sub
    
Sub testfunc(ByRef test() As Variant)
    test(3) = "three"
End Sub

Answer 2

通過引用返回數組：

Public Sub test()

    Dim test() As Variant
    Dim testnew() As Variant

    ReDim Preserve test(1 To 4)
    test(1) = "one"
    test(2) = "two"
    testfunc test

    Debug.Print test(3)
    
End Sub
    
Public Sub testfunc(test() As Variant)
    
    test(3) = "three"
    
End Sub