VBA: ошибка компилятора или функции не определена при использовании поиска

Question

Я очень застрял, связал поиск, но не могу найти удовлетворительное решение

Ниже мой код

Dim i As Integer    
Dim k As Integer    
Dim Values As String    
Dim x As String

Worksheets("Pivot").Activate

Values = Range("B3").Value    
'Values = Mid(Values, 5, 16)    
'k = Search("|", Values)

x = Mid(Value, Search("|", Value) + 1, Search("|", Value, Search("|", Value) + 1) - Search("|", Value) - 1)))

MsgBox "" & x

Примечание:

Ошибка «Sub или Функция не определена», я получаю эту ошибку компилятора, только если я использую формулу поиска, когда я использую формулу Mid (та, которая прокомментирована, я не получаю ошибку), у кого-нибудь есть решение, которое может помочь мне В коде я пытаюсь извлечь строку, содержащуюся в ячейке между появлением "|" содержится во всей строке в ячейке.

Answer 1

Поиск - это функция рабочего листа. Это эквивалентно в VBA является Instr.

Но в этом случае использование Split вернет то, что вы хотите, с меньшими усилиями:

Dim Values As String    
Dim x As String

Values = Worksheets("Pivot").Range("B3").Value 

x=split(Values,"|")(1)

MsgBox "" & x