Excel Forum

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

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

ขอบคุณครับ

รบกวนแนะนำหน่อยครับ อยากลบ Sheet ที่ไม่ได้ใช้งาน (งานมีหลายไฟล์ลบทีละไฟล์แล้วช้าครับ) โดยจะเลือกลบพวก Sheet1 Sheet2 หรือ Sheet1(1) ประมาณนี้ครับ n = Sheets.Count Do While n > 0 r = Sheets(n).Name If r = "Sheet" Then Application.ScreenUpdating = False Sheets(n).delete Application.ScreenUpda...

สร้าง Sheet ได้ตามต้องการแล้วครับ แต่ติด Error ครับ รบกวนด้วยครับอาจารย์ sbook.Sheets(cnt).Copy after:=Sheets(cnt) ActiveSheet.Name = shName(ActiveSheet.Index - 1) End With End If With sbook.Worksheets("Revised") <<< ติดตรงนี้ครับ For Each r In rAll If upbook.Sheets("UP").Range(&...

สมมติ ก๊อปชีท B ไปวางแล้วเปลี่ยนเป็น C ได้หรือเปล่าครับ ให้รันต่อจาก ชีทที่ก๊อป

ตอนนี้ผมได้แก้ไขไประดับหนึ่งแล้วครับ แต่ยังติดที่การแก้ไขชื่อ Sheet ที่ copy มาให้เป็น Revision ถัดไปอัตโนมัติ แทนคำว่า Revised รบกวนอาจารย์แนะนำด้วยครับ

ขอโทษครับอาจารย์ที่อธิบายไม่ละเอียด สิ่งที่ต้องการคือ >> เปิดไฟล์ 170077 ใน Column B2 ของไฟล์ Test sheet("up") >> copy sheet สุดท้ายของไฟล์ 170077 (แต่ละไฟล์มีจำนวน sheet ไม่เท่ากัน ไล่ตั้งแต่ A,B,C.... ) >> วาง sheet ที่ copy ในไฟล์ 170077 >> เปลี่ยนชื่อ sheet ที่วางเป็นชื่อถัดไป (copy C ...

ขอคำแนะนำหน่อยครับ คือต้องการ copy ข้อมูล(Test)ไปวางในแต่ละไฟล์ที่กำหนด(170077) แต่ติดปัญหาที่แต่ละไฟล์จำนวน sheet ไม่เท่ากัน และต้อง copy sheet สุดท้ายก่อน (เพิ่ม Revised ถ้าเปลี่ยนชื่อต่อได้ก็ดีครับ) ค่อยนำข้อมูลวางในบรรทัดสุดท้าย ของ Sheet ที่เพิ่ง copy ไปครับ ขอบคุณครับ

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

สอบถามหน่อยครับ ทำไมเวลาเรา Run VBA ไฟล์ Excel แล้ว Excel จะไม่ update สูตรให้เราอัตโนมัติครับ ต้องคอยไปกด Automatic update ทุกครั้ง ตั้งไปตั้งค่าตรงไหนครับ

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

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

สอบถามเพิ่มเติมครับอาจารย์ หลังจากลองใช้มาสักพัก วันดีคืนดีดันไม่มีใครใส่ Filter ไว้ VBA ขึ้น Error

Run-time error '1004':
ShowAllData method of Worksheet class failed

แก้ไขยังไงดีครับ รบกวนด้วยครับ

หาวิธีได้แล้วครับ Set Cbook = Workbooks.Open("\\Lbox\meeting\EDS\New EDS\Confirm Spec\SX4000\EDS_BOM LIST SX4000.xlsx", UpdateLinks:=False, ReadOnly:=True) ActiveSheet.ShowAllData << เพิ่ม Code นี้ต่อจากบรรทัดบน แต่จะเกิดปัญหาตอนสั่งให้ปิด ไฟล์ คือต้องคอยกด Don't Save Cbook.Close Savechang...

รบกวนแนะนำหน่อยครับ เวลาสั่งเปิดไฟล์เพื่อค้นหาข้อมูล แต่บางทีมีไฟล์นั้นมีคนกำหนด Filter อยู่ ทำให้ไม่สามารถดึงข้อมูลทั้งหมดมาได้ ได้เฉพาะที่ Filter อยู่เท่านั้น จะแก้ไข Code ยังไงได้ครับ ขอบคุณครับ Set Cbook = Workbooks.Open("\\Lbox\meeting\EDS\New EDS\Confirm Spec\SX4000\EDS_BOM LIST SX4000.xl...

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

เบื้องต้นผมได้แก้ไขปัญหา Code มาครบบ้าง ไม่ครบบ้างแล้วครับ เนื่องจากผมไปแก้ สูตร ผิดเอง

สอบถามเพิ่มเติมครับ =IFERROR(IF(A4>0,VLOOKUP(A4,Rep!A:A,1,0),INDEX(Rep!$A$1:$A$14,AGGREGATE(15,6,ROW(Rep!$A$1:$A$14)/ISERROR(MATCH(Rep!$A$1:$A$14,Sheet1!A:A,0)),ROWS(E$4:E4)-COUNTA($A$4:$A$15)))),"") ตรง COUNTA($A$4:$A$15 สามารถกำหนดอัตโนมัติตาม Code สุดท้าย ได้มั้ยครับ เพราะบางทีจำนวน Cod...

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