Цикл Excel UDF для поиска определенного значения из строки в диапазоне

Question

В ячейке A1 у меня есть описание компьютера (HDD, Proccessor, GFX и т. Д.), А в ячейках B1-10 у меня есть список обработчиков, что мне нужно, так это UDF Excel, который будет выглядеть следующим образом в ячейке C1:

GetProccessor (A1, B1: B10)

Я знаю, что мне нужно проанализировать в VBA:

Функция GetProccessor (текст как вариант, rRange как диапазон)

Тогда я застрял, потому что я очень беден петлями диапазона, кто-нибудь может дать мне несколько советов?

Answer 1

Получи функцию запчастей, разобрался сам!

Function GetPart(text As Variant, rCells As Range)
  Dim txt As String
  Dim rRange As Range
  Dim SubjCell

  For Each rRange In rCells
    SubjCell = rRange
    txt = text

    If InStr(txt, SubjCell) <> 0 Then
      GetPart = SubjCell
      Exit For
    Else
      GetPart = "Not Found"
    End If
  Next rRange

End Function