ต้องการค้นหาค่าที่ชีทอื่น ที่ตรงกับค่าในชีทหลัก โดยค่าที่พบอาจมีค่าว่างหรืออักษรอื่นๆต่อท้ายด้วย
Posted: Sat Sep 11, 2021 4:26 pm
ผมต้องการค้นหาค่าในชีทอื่นๆ ที่ตรงกับค่าที่เซลล์ A1ซึ่งเป็นค่าที่เป็นคีย์หลักในการค้นหาที่ชีทชื่อ Master ถ้าพบแล้วให้เลือกชีทที่พบและเลือกบรรทัดที่พบค่านั้นด้วย โดยค่าที่ชีทอื่นที่ทำการค้นหาจะมีค่าที่เท่ากับเซลล์ A1 ทุกคำ หรือ เท่ากับเซลล์ A1และมีคำอื่นๆต่อด้วย เช่น
ที่ชีท Master เซลล์ A1 มีค่าเท่ากับ “A1” ที่ชีทอื่นถ้าหากพบคำว่า “A1_01” ก็ถือว่าถูกต้อง แล้วให้ทำการเลือกบรรทัดที่พบค่านั้น
ซึ่งผมได้ลองใช้โค้ดอยู่ในไฟล์ตัวอย่าง ที่ได้แนบมานี้แล้วค้นหาได้เฉพาะค่าที่ตรงกันทุกคำเท่านั้น
ถ้าหากมีคำอื่นหรือค่าว่างต่อท้ายจะค้นหาไม่ได้ครับ
ขอรบกวนช่วยชี้แนะด้วยครับ
ขอบคุณมากครับ
ที่ชีท 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
ขอรบกวนช่วยชี้แนะด้วยครับ
ขอบคุณมากครับ