子程序“测试”中的语法错误

Question

I have the following sub function in VBA:

Sub test()
    index_match_array(Range("D5").Value,Range("BZ:BZ").DataSeries,"Hardware",1,2)
End Sub

This calls the function which starts:

Option Explicit
Function index_match_array(loookup As String, table_array As Range, criteria_search As String, criteria_line_add As Integer, return_line_add As Integer) As String()

Dim lookup_array() As String
Dim result_array() As String
...
...
index_match_array = result_array

End Function

When I compile I get the error message:

Compile error: Syntax error

I suspect it's to do with the second parameter, the range one, but I'm not sure?

Answer 1

' Data Series return type is Variant , Change the table_array to Variant ' Function is in Array, change Function index_match_array to String

Option Explicit
Sub test()

    Dim sString(10) As String
    sString(1) = index_match_array(Range("D5").Value, Range("BZ:BZ").DataSeries, "Hardware", 1, 2)

End Sub


Function index_match_array(loookup As String, table_array As Variant, criteria_search As String, criteria_line_add As Integer, return_line_add As Integer) As String

Dim lookup_array(10) As String
Dim result_array(10) As String

result_array(1) = "Test Value"

index_match_array = result_array(1)

End Function