Finding strings within strings

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello everyone

Can anyone help me to determine how to do this: I need to write a macro that will search certain cell to find specific strings that cell *may* contain. For example, say I would like to know exacly what fruits from the group {"apples," "bananas," and "pears"} are listed in each cell. Then, if a cell contains the text "Today I had apples for lunch," or "Yesterday I had pears for lunch," the macro would return "apples" or "pears," respectively

Any clue? Thank you very much in advance.
 
One way:

Public Function CheckForFruit(ByVal rCell As Range) As String
Dim vFruits As Variant
Dim i As Long
vFruits = Array("apples", "bananas", "pears")
For i = 0 To UBound(vFruits)
If InStr(rCell, vFruits(i)) Then
CheckForFruit = vFruits(i)
Exit For
End If
Next i
End Function
 
Back
Top