子程序'Test'中的语法错误

我在VBA中有以下子function：

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

这调用了开始的函数：

 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 

当我编译时，我得到错误信息：

编译错误：语法错误

我怀疑这是与第二个参数，范围一，但我不知道？

Answer 1

'Data Series返回types是Variant，将table_array更改为Variant'函数在Array中，将Function index_match_array更改为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