ต้องการค้นหาค่าที่ชีทอื่น ที่ตรงกับค่าในชีทหลัก โดยค่าที่พบอาจมีค่าว่างหรืออักษรอื่นๆต่อท้ายด้วย

[apinomon]

ผมต้องการค้นหาค่าในชีทอื่นๆ ที่ตรงกับค่าที่เซลล์ A1ซึ่งเป็นค่าที่เป็นคีย์หลักในการค้นหาที่ชีทชื่อ Master ถ้าพบแล้วให้เลือกชีทที่พบและเลือกบรรทัดที่พบค่านั้นด้วย โดยค่าที่ชีทอื่นที่ทำการค้นหาจะมีค่าที่เท่ากับเซลล์ A1 ทุกคำ หรือ เท่ากับเซลล์ A1และมีคำอื่นๆต่อด้วย เช่น

ที่ชีท Master เซลล์ A1 มีค่าเท่ากับ “A1” ที่ชีทอื่นถ้าหากพบคำว่า “A1_01” ก็ถือว่าถูกต้อง แล้วให้ทำการเลือกบรรทัดที่พบค่านั้น

ซึ่งผมได้ลองใช้โค้ดอยู่ในไฟล์ตัวอย่าง ที่ได้แนบมานี้แล้วค้นหาได้เฉพาะค่าที่ตรงกันทุกคำเท่านั้น

Code: Select all

Sub ActiveCellEntireRow()
Totalsheets = Worksheets.Count
mykeyword = Worksheets("Master").Cells(1, 1).Value

    For i = 1 To Totalsheets
    If Worksheets(i).Name <> "Master" Then
        finalrow = Worksheets(i).Cells(Rows.Count, 1).End(xlUp).Row
            For j = 1 To finalrow
            If Worksheets(i).Cells(j, 1).Value = mykeyword & "" Then
        Worksheets(i).Activate
        Cells(j, 1).Activate
        ActiveCell.EntireRow.Select
        
        End If
        Next
        
    End If
    Next
End Sub

ถ้าหากมีคำอื่นหรือค่าว่างต่อท้ายจะค้นหาไม่ได้ครับ

ขอรบกวนช่วยชี้แนะด้วยครับ

ขอบคุณมากครับ

[apinomon]

อันนี้ไฟล์แนบครับ ลืมแนบมาในโพสครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
For j = 1 To finalrow
    If InStr(Worksheets(i).Cells(j, 1).Value, mykeyword) Then
        Worksheets(i).Activate
        Cells(j, 1).EntireRow.Select
    End If
Next
'Other code

[apinomon]

ขอบคุณมากเลยครับ

โค้ดที่ให้มาลองเอาไปใช้แล้ว
ใช้ค้นหาได้ตามต้องการเลยครับ


ขอบคุณอีกครั้งครับ