Snasui Excel Forum

Sub optimize()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Sheets(3).Range("B2:M65536").ClearContents
Sheets(4).Range("B2:M65536").ClearContents
Sheets(5).Range("B2:M65536").ClearContents

Sheets(3).Select
Dim frI, toI, frJ, toJ, frK, toK As Integer

frI ...

รบกวนผู้รู้หน่อยครับ พอดีว่าผมเขียน Macro มาให้ทำงานก้อปตัวเลขไปมาแต่ทำงานเป็นลูป ตอนแรกเขียนใน 2003 ทำงานได้ปกติ แต่พอนำไฟล์ไปเิปิดใน 2007 หรือ 2010 แ้ล้วการวนลูปมันจะขึ้น debug ตลอด ถ้าให้ทำงานต้องกดปุ่ม continue ทุกครั้ง

หมายเหตุ ผมปรับ Trust center๖2007/2010) -> Macro Setting -> Enable แล้ว

ต ...