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
________________________________
From: Tayyab <sheikhtayyab@yahoo.com>
To: "ExcelVBA@yahoogroups.com" <ExcelVBA@yahoogroups.com>
Sent: Wednesday, August 15, 2012 9:39 AM
Subject: Re: [ExcelVBA] specfic character pick
I am stuck, how to pick word and match with given condition, word size and position varies in the sentence.
________________________________
From: David Smart <smartware.consulting@gmail.com>
To: ExcelVBA@yahoogroups.com
Sent: Wednesday, August 15, 2012 1:55 AM
Subject: Re: [ExcelVBA] specfic character pick
This looks like a programming exercise. We won't do your homework for you.
What have you written so far?
Regards, Dave S
----- Original Message -----
From: "Tayyab" <sheikhtayyab@yahoo.com>
To: <ExcelVBA@yahoogroups.com>
Sent: Wednesday, August 15, 2012 5:12 AM
Subject: [ExcelVBA] specfic character pick
> Hello
> I want to make a function that search specific character pick form cell.
> The character position on cell may various. for example
> This is John pen.
> John leaves America.
>
> John will be the searching word, The function search John if find return
> "find" other wise "not find"
> Help me I am beginner user of VBA.
>
> thanks
>
> Regards
> Tayyab
>
>
>
> ------------------------------------
>
> ----------------------------------
> 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
>
> ----------------------------------Yahoo! Groups Links
>
>
>
>
>
> -----
> No virus found in this message.
> Checked by AVG - www.avg.com
> Version: 10.0.1424 / Virus Database: 2437/5199 - Release Date: 08/13/12
>
[Non-text portions of this message have been removed]
[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
----------------------------------
Tidak ada komentar:
Posting Komentar