Watch out for upper and lower case!
You may want to check out StrComp where you can specify a text comparison.
HTH
Lisa
Sent: Sat, Aug 18, 2012 1:23 pm
Subject: Re: [ExcelVBA] specfic character pick
Now I got it. attach function selected Tay,Lay & www from the sentenence.
Function FindText(txt) As String
Dim a As String
If (InStr(txt, "tay") > 0) Then
FindText = "tay"
ElseIf (InStr(txt, "lay") > 0) Then
FindText = "lay"
ElseIf (InStr(txt, "www") > 0) Then
FindText = "www"
Else
FindText = "Nothing"
End If
End Function
[Non-text portions of this message have been removed]
__._,_.___
----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.
----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA
----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com
----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.
----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA
----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com
----------------------------------
.
__,_._,___
Tidak ada komentar:
Posting Komentar