Excel Forum

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

ตอนนี้ก็ใช้แบบนี้อยู่ครับ แล้ว VBA จะปิดไฟล์ที่เปิดไว้แล้ว เปิดขึ้นมาใหม่แบบ Read Only (ReadOnly:=True) บางทีบางไฟล์มันใหญ่โหลดช้า กว่าจะเปิดได้ เลยอยากหาวิธีอื่นที่ไม่ต้องปิดแล้วเปิดใหม่ ถ้าเปิดอยู่ก็ดึงข้อมูลมาได้เลยครับ

สอบถามหน่อยครับ ต้องการเปิดไฟล์ชื่อตาม cell A1 แต่ถ้าไฟล์ตามชื่อนั้นเปิดอยู่แล้ว ไม่ว่าจะเป็นเปิดปกติ หรือ Read Only ก็ให้นำมาใช้งานเลย ต้องแก้ไข Code ยังไงครับ เพราะเวลาไฟล์นั้นเปิดปกติ ไม่ใช่ Read Only จะมี massage ขึ้นมา yes = ปิดแล้วเปิดใหม่ให้เป็น Read Only no = error Sub test() Dim cbook As Wo...

ขอบคุณครับ ตอนนี้แก้ไขปัญหาได้แล้วครับตาม Code นี้เลยครับ

มีไฟล์เยอะครับ เวลาจะไช้ต้องคอยมาลบเลข ก็ไม่เข้าใจว่าเขาทำไมทำต่างคอลัมน์กัน ทั้งที่ข้อมูลภายในเหมือนกัน

ลักษณะงานคือเปิดไฟล์ไว้ แล้วเลือก Sheet ที่จะดึงข้อมูลเข้ามา ตอนนี้ผมใช้การใส่เลข 1 หรือ ลบเลข 1 ออกจาก Cell C1 เพื่อเลือกการดึงจาก Column ที่ต่างกัน เนื่องจากต้องการดึง Code,Name,Qty จากในไฟล์ ซึ่งไฟล์ทั้ง 2 ชนิด (มีคำว่า TSS นำหน้า และไม่มีคำว่า TSS) รายการที่ต้องการดึงอยู่ต่าง Column กัน หากจะไม่...

รบกวนสอบถามครับ พอดีมีไฟล์อยู่ 2 อย่างที่มีข้อมูล Code, Name, Qty แต่อยู่คนละคอลัมภ์ โดยทั้ง 2 ไฟล์ต่างกันที่ชื่อ ไฟล์หนึ่งมีแต่ตัวเลข อีกไฟล์หนึ่งมีคำว่า TSS นำหน้า หากใส่ข้อมูลตามชื่อไฟล์ใน B1 แล้วมีคำว่า TSS.... ให้ดึงจากคอลัมภ์ C,D,N แต่ถ้าใน B1 ไม่มีคำว่า TSS ให้ดึงจาก คอลัมภ์ D,E,Q ต้องแก้ Cod...

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

ช่อง A1 ใส่คำที่ต้องการค้นหา ซึ่งจะไปค้นหาในช่อง F:F ซึ่งมีทั้งพิมพ์เล็กและพิมพ์ใหญ่ ผลที่ต้องการตามช่อง A3:B5 ครับอาจารย์ รบกวนด้วยครับ

รอบกวนสอบถามหน่อยครับ ถ้าต้องการค้นหาชื่อที่เป็นพิมพ์เล็กหรือพิมพ์ใหญ่ ต้องแก้โค๊ดยังไงครับ

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

ขอโทษครับอาจารย์ ที่ไม่ได้แนบไฟล์ หรืออธิบายขาดตกไป ตามไฟล์ที่ได้ Download จากคำตอบของอาจารย์มาและได้ทดลองแล้วยังติดปัญหาอยู่ มีรายละเอียดชี้แจงด้านในไฟล์แนบครับ รบกวนด้วยครับ

ยังไม่ได้เลยครับ สูตรเก่ากับใหม่ ได้ค่าเหมือนเดิมครับ E00SX31000S02Ab จาก Code คือตัด E00 ด้านหน้า (หรือรายละเอียดคำที่ต้องตัดใน E3:E10) ส่วนด้านท้าย Code ให้ตัดอักษร (Revison Part) ออกให้หมด (AB) ที่ต่อจากตัวเลข ซึ่งลักษณะ Code หากไม่มีการอัพ Revision ก็จะไม่มีตัวอักษรต่อท้าย ถ้าไม่มีก็ไม่ต้องตัดอะ...

สอบถามเพิ่มเติมครับ ในกรณีให้ลบตัวอักษรด้านหลัง ถ้าหากด้านหลังไม่มีตัวอักษรไม่ต้องลบ และหากเป็นอักษรมากกว่า 1 ตัว เช่น AB จะแก้ไขยังไงครับ

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

รบกวนสอบถามหน่อยครับ คือต้องการตัดคำด้านหน้าตามที่กำหนดในช่อง E3:E6 และคำด้านหลังที่เป็นตัวอักษรทั้งหมดออกจาก A3:A6 โดยจะได้ผลลัพธ์ตามช่อง B3:B6 ต้องใช้สูตรแบบไหนครับ

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

ตามไฟล์แนบ ต้องการเปลี่ยน Code SX31000W02 (M1) เป็น SX31000W03 (N1) ถ้าหาก filter ไว้ในบาง Bom (A:A) ให้เปลี่ยนเฉพาะที่ filter ไว้เท่านั้น แต่หากไม่ได้ filter ไว้เลย ให้เปลี่ยนทุก Bom ครับ ขอคำแนะนำด้วยครับอาจารย์ Sub updata() Dim i As Long Dim r As Long Application.ScreenUpdating = False r = Range(...

รบกวนสอบถามหน่อยครับ พอดีว่ามีรายการ Bom จำนวนมาก ในแต่ละ Bom มี Part หลายรายการ ถ้าต้องการเปลี่ยน Part ใน Bom หากไม่ได้ Filter ไว้ ให้เปลี่ยนทุก Bom หาก Filter ไว้ ให้เปลี่ยนเฉพาะ Bom ที่ Filter เท่านั้น ต้องแก้ไข Code ยังไงครับ r = Range("c" & Rows.Count).End(xlUp).Offset(1, 0).Row F...

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