Excel Forum

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

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

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

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

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

ใช้ได้ดีเลยครับ ประมวลผลได้เร็วดี ขอบคุณมากๆครับอาจารย์

ขอบคุณมากครับอาจารย์ เดี๋ยววันจันทร์จะลองทดสอบดูครับ

จากไฟล์แนบ MainBOM นำเข้าข้อมูลจาก BOM LIST NEW MODEL ครับ โดยที่ข้อมูลในเซล N2 ใน MainBOM และเซล B:B ใน BOM LIST NEW MODEL ตรงกัน ให้ดึงข้อมูลบางคอลัมภ์ (รายละเอียดตามโค๊ดเดิมใน MainBOM) มาวางใน MainBOM ครับ รบกวนแนะนำการใช้ Array ด้วยครับ

ได้ตามต้องการเลยครับอาจารย์ แต่ตอน Run Code ถ้ามี Part เยอะ จะใช้เวลานาน เกิดจากการเขียนโค๊ดหรือป่าวครับ หรือว่าถึงจะเปลี่ยนวิธีการเขียนโค๊ด ก็ใช้เวลาเท่ากัน

โค๊ดช่วงนี้ สามารถปรับเปลี่ยนให้ดีกว่านี้ได้มั้ยครับ และเวลา Pasts ไปเจอเซลว่าง สามารถทำให้นับจากเซลที่ว่างต่อไปได้มั้ยครับ For i = 4 To 60000 If dbbook.Sheets("BOM List").Range("B" & i).Value = mybook.Sheets("MainBOM").Range("N2").Value Then dbbook.Sheets...

แก้ไข โพสต์ แล้วครับอาจารย์ ตามด้านบนครับ

แบบนี้ใช้มั้ยครับอาจารย์ ตามโค๊ดสามารถ Run ได้ครับ แต่ไม่รู้ถูกหลักการหรือเปล่า คำถามมี 2 ข้อครับ 1. มีวิธีเขียนให้กระชับกว่านี้หรือป่าวครับ โดยเฉพาะช่วง Copy แล้ว Paste 2. ติดปัญหาตอน Paste เซลที่ไม่มีข้อมูล อยากให้ข้าม เซลนั้นไปเลย ไม่ต้องอ่านซ้ำ มีแนวทางแบบไหนบ้างครับ Sub MainBOM() MsgBox "I...

ขนาดไฟล์ 2 MB กว่าครับอาจารย์ เอาแค่โค๊ดประมาณนี้ได้มั้ยครับ For i = 4 To 60000 If dbbook.Sheets("BOM List").Range("B" & i).Value = mybook.Sheets("MainBOM").Range("N2").Value Then dbbook.Sheets("BOM List").Range("K" & i, "L&quo...

ตามโค๊ดด้านล่าง Copy เซล K ถึง N ถ้าผมอยาก Copy เซล T ถึง Y ด้วย ต้องเขียนโค๊ดแบบไหนให้ Copy พร้อมกันใน Code บันทัดเดียวครับ พอดีว่ามือใหม่ด้วย พยายามหาข้อมูลแล้วแต่ไม่ได้เลยครับ

dbbook.Sheets("BOM List").Range("K" & i & ":N" & i).Copy