Excel Forum

เรื่อง Array เข้าใจแล้วครับ ส่วน EnableEvents ลองใส่ตามที่อาจารย์บอกแล้ว Private Sub Worksheet_Change(ByVal Target As Range) ไม่ทำงานเลยครับ เพราะถ้าปิด EnableEvents ไว้เลยตรวจจับการเปลี่ยนของ Worksheet ไม่ได้

ในส่วนของ EnableEvents ได้ใส่ Code ไว้แล้วครับแต่ยังช้าอยู่ แล้ว Array หล่ะครับอาจารย์ ถ้าต้องการกำหนดให้มากกว่ากว่านี้ ต้องแก้ตรงไหนครับ รู้สึกว่าจะได้แค่ 150 เองครับ มีทางที่จะกำหนดให้ได้มากกว่านี้มั้ยครับ

จากตัวอย่าง ชีท Production Order L12 เลือก Spec แล้วกด Create (Code ใน Module2) เลข 1 จะถูกใส่ตามช่อง Spec ที่ต้องการ (ช่องสีดำ) จากนั้นใน Code ในชีท Production Order จะ Run ด้วย Private Sub Worksheet_Change(ByVal Target As Range) เพื่อตรวจสอบเลข 1 แต่ละช่อง แล้วไปนำข้อมูลใน ชีท data bom มาวางในช่อง...

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

รบกวนสอบถามหน่อยครับ เนื่องจากผมได้นำสูตรที่ได้เคยจากที่นี่ไปปรับปรุงใช้ แต่ไม่ได้มีความชำนาญการใช้สูตรมากพอ ทำให้ข้อมูลมาไม่ครบ ช่วงของสูตรอยู่ในชีท LIST (กรอบสีแดง) โดยเทียบช่อง A9 กับ ชีท data bom C:C แล้วดึงข้อมูลที่เหมือนกันมาทั้งหมด ข้อมูลทีควรได้จะอยู่ใน Filter ที่ชีท data bom ต้องปรับแก้ยังไ...

ได้ตามต้องการเลยครับ ขอบคุณมากครับ

ตามไฟล์แนบใหม่ ได้ทำตัวอย่างแล้วครับ จาก Code ที่ให้มาล่าสุดยังไม่ได้ครับ ตัวอย่างเช่น Code in Bom = SX31P0352901A Code ที่ควรได้ คือ SX31P0352901B เพราะเป็น Revision ล่าสุด ตาม filter ใน Sheet Reg ครับ ขอบคุณครับ

สอบถามเพิ่มครับ จากที่ได้ลองใช้งาน มีบาง Code ที่ไม่ตรงกัน สามารถแก้ไขได้หรือเปล่าครับ มีรายละเอียดตามไฟล์แนบครับ

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

adobe acrobat 10.0 type library << เครื่องผม
adobe acrobat 8.0 type library << เครื่องน้อง พอติ๊กออกแล้ว พอติ๊กใช้งานอีกไม่ได้เลย Error dll ให้ IT มา Repair Program แล้วก็ไม่ได้ครับ
Adobe acrobat xi V.11.0.07 เหมือนกัน

ลองทำตาม Link ที่อาจารย์ให้มาแล้ว ยังไม่ได้เลยครับ

รบกวนสอบถามเพิ่มเติมครับ เนื่องจากคอมผมเป็น win 11 แล้วผมส่งไฟล์ให้น้องใช้เป็น win10 โปรแกรม Run Error in loading DLL ต้องแก้ไขยังครับ

ได้ตามต้องการ ขอบคุณมากครับ

รบกวนสอบถามหน่อยครับ ต้องการสูตรที่ดึง Code ที่เป็น Rev. ล่าสุดมาแสดง เพื่อตรวจสอบว่า Code นี้เป็นปัจจุบันหรือยัง มีรายละเอียดเพิ่มเติมใน file แนบครับ ขอบคุณครับ

แก้ไขตามใช้ได้แล้วครับ ขอบคุณทั้งสองท่านมากครับ

ส่วนนี้ต้องแก้ไขยังไงครับ เพราะยังติด Error อยู่ Acro_DestDoc.Open (Select_Files(LBound(Select_Files))) For cntr = LBound(Select_Files) + 1 To UBound(Select_Files) Acro_TargDoc.Open (Select_Files(cntr, 1)) If Acro_DestDoc.InsertPages(Acro_DestDoc.GetNumPages() - 1, Acro_TargDoc, 0, Acro_TargDoc.GetN...

หลังจากทดสอบ Run แล้ว เกิด Error Run-time error ‘13’ Type mismatch ที่แถวนี้ครับ รบกวนด้วยครับอาจารย์

รบกวนสอบถามหน่อยครับ หากต้องการรวมไฟล์ PDF ตามคอลัมน์ A โดยกำหนดหน้า 1,2..... ตามคอลัมน์ B ต้องแก้ไข Code ยังไงครับ

ได้แล้วครับ ขอบคุณมากเลยครับ

ลองแล้วก็ยังไม่ได้เหมือนเดิมครับ