Finding strings within strings

R

Rod

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.
 
J

J.E. McGimpsey

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top