ทำปุ่มค้นหาไว้ แต่อยากให้ code หาแบบ ส่วนใดส่วนหนึ่งของคำได้

[bkkrong]

ผมสร้างdialog box ค้นหาแล้ว ถ้า match ตรงทุกคำหาเจอ ถ้าบางคำ หรือ ชื่อมีเว้นวรรค หาไม่เจอ
อ. ช่วยดูให้หน่อยครับ
ขอบคุณครับ

Code: Select all

Dim FindString As String
    Dim Rng As Range
    FindString = InputBox("Enter a Search value")
    If Trim(FindString) <> "" Then
        With Sheets("Sheet1").Range("B:B")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
            Else
                MsgBox "Nothing found"
            End If
        End With
    End If

[puriwutpokin]

ลองปรับตรงนี้ครับ

Code: Select all

'Other code..
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlPart, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
                            'Other code..

[bkkrong]

ได้แล้วครับ ขอบคุณครับ