“运行时错误”424“：Object Required”

我想要一个函数采取两个参数，一个search单元格和一个单元格进行search，其中search单元格包含一个逗号分隔的列表。 我想要testing每个元素，看它是否在“search”单元格中。 例如：

List_of_String: word1, word2, word3 Where_to_Search: bbbbbword1 'Return TRUE' Where_to_Search: bbbbhhhhhmmmmm 'Return FALSE 

我已经写了：

 Function Search_in_String(List_of_Strings_to_Search As String, Where_to_Search As String) String_array = Split(List_of_Strings_to_Search, ",") Dim is_in_num As Integer Dim is_in As Boolean is_in = False For i = 0 To (UBound(String_array) - 1) is_in_num = InStr(Where_to_Search, Trim(String_array(i))) If is_in_num > 0 Then is_in = True If is_in Then Exit For Next i Search_in_String = is_in End Function Sub test() MsgBox Search_in_String(BJ7.Value, Bk7.Value) End Sub 

我正在使用test（）函数来testing我的Search_in_String函数（我相信这也是行不通的）。 当我走进（F8），我得到的错误：

运行时错误“424”：需要的对象

Answer 1

改变这个子testing（）：

 Sub test() MsgBox Search_in_String(Range("BJ7").Value, Range("BJ7").Value) End Sub