การนำเข้า Part Code ทุก Revision

[Jirawat namrach]

สอบถามหน่อยครับอาจารย์ หาเราต้องการค้นหา Part Code ที่มี ภาษาอังกฤษ ต่อท้ายด้วย โดยที่เราพิมพ์เพียงแค่โค๊ดตั้งต้น แล้วกำหนดให้ค้นหา และนำเข้า ทั้งที่ไม่มีภาษาอังกฤษต่อท้าย และไม่มีภาษาอังกฤษต่อท้ายด้วย เช่น Code AA1234 แต่ในฐานข้อมูลอาจจะมี AA1234A,AA1234B ตามการ Revise ต้องการให้ดึงมาแสดงทั้งหมด ต้องปรับยังไงครับ

Code: Select all

        With Bbook.Worksheets("BOM List SX3000II")
            Set rAll = .Range("R5", .Range("R" & .Rows.Count).End(xlUp))
        End With
        With Qbook.Worksheets("QTY")
            For Each r In rAll
                If r.Value = .Range("F2").Value Then
                    l = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Row
                    For i = 0 To UBound(IIrs)
                       .Range(Qrs(i) & l).Value = r.Parent.Cells(r.Row, IIrs(i)).Value
                    Next i
                End If
            Next r
        End With
        Bbook.Close

[snasui]

ตัวอย่างการหาบางส่วนของคำครับ

Code: Select all

'Other code...
With Qbook.Worksheets("QTY")
    For Each r In rAll
'                If r.Value = .Range("F2").Value Then
        If VBA.InStr(r.Value, .Range("f2").Value) > 0 Then
            l = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Row
            For i = 0 To UBound(Fors)
               .Range(Qrs(i) & l).Value = r.Parent.Cells(r.Row, Fors(i)).Value
            Next i
        End If
    Next r
End With

'Other code...

[Jirawat namrach]

ตามไฟล์แนบใหม่ครับอาจารย์

[snasui]

กรุณาอธิบายมาพอสังเขปว่าต้องการทำอะไร ที่ไหน อย่างไร ด้วยเงื่อนไขใด สิ่งที่ทำมาแล้วติดปัญหาใด ยกตัวอย่าง Code ที่ติดปัญหามาด้วย จะได้สะดวกต่อการตอบและการค้นหาของเพื่อนสมาชิกในภายหลังครับ

[Jirawat namrach]

ตามไฟล์แนบ book3 F2 กำหนดชื่อ Part แล้ว จะไปค้นหา Part จาก BOM LIST NEW MODEL N:N เมื่อพบข้อมูลเดียวกัน (อาจจะมีมากกว่า 1 Part) ให้นำข้อมูลแถวนั้น ๆ ในบางเซล (ระบุใน Code VBA) มาใส่ใน Book3 แต่ติดปัญหาบาง Part มีการอัพ Revision A,B... แต่ก็เป็น Part เดียวกัน ตอนนี้ทำได้แค่ดึง Part ตามชื่อที่กำหนดไว้คือ SX31000O38 แต่ไม่สามารถนำ SX31000O38A-D มาได้ รบกวนอาจารย์แนะนำด้วยครับ

[snasui]

ตามไฟล์แนบ book3 F2 กำหนดชื่อ Part แล้ว จะไปค้นหา Part จาก BOM LIST NEW MODEL N:N เมื่อพบข้อมูลเดียวกัน (อาจจะมีมากกว่า 1 Part) ให้นำข้อมูลแถวนั้น ๆ ในบางเซล (ระบุใน Code VBA) มาใส่ใน Book3 แต่ติดปัญหาบาง Part มีการอัพ Revision A,B... แต่ก็เป็น Part เดียวกัน...

ผมตอบไปแล้วตามโพสต์นี้ viewtopic.php?p=114518#p114507 ไม่ทราบว่าได้ทดลองแล้วได้ผลเป็นอย่างไร ติดขัดตรงไหน กรุณาจับภาพ Error พร้อมแนบไฟล์ที่มี Code ล่าสุดที่ได้แนะนำไปแล้วมาด้วยครับ

[Jirawat namrach]

ได้แล้วครับอาจารย์ ขอโทษทีโพสซ้ำนึกว่าอาจารย์ต้องการตัวอย่างเพิ่มเติม ขอบคุณมากครับ

[Jirawat namrach]

ขอเพิ่มเติมหน่อยครับอาจารย์ คำค้นหา ตอนนี้ต้องตัวใหญ่เหมือนกัน ถึงจะหาเจอ พอจะมีวิธีพิมพ์เล็ก หรือใหญ่ก็หาเจอได้มั้ยครับ

[snasui]

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

If VBA.InStr(VBA.LCase(r.Value), VBA.LCase(.Range("f2").Value)) > 0 Then

[Jirawat namrach]

ขอบคุณมากครับอาจารย์