Snasui Excel Forum

ขอบคุณครับ นั่งหาสาเหตุอยู่เป็นเพราะว่า ผมได้แปลงไฟล์จาก PDF เพื่อให้เป็น Database บน Excel
ซึ่งได้พบสาเหตุของเป็นหาแล้วคือว่า บาง Cells ที่แปลงออกมา Format มันไม่ถูกต้องเลยทำให้เกิด Error ครับ
จึงได้จัดรูปแบบของ Format ใหม่ แล้วได้ลอง Run Code ดูอีกทีไม่พบปัญหาอีกแล้วครับ
อย่างไรก็ต้องขอขอบคุณท่านอาจารย์ที่ช่วยทดสอบให้ด้วยครับ

:D ผมทดสอบ Run ที่ 82791 บรรทัด ไม่พบว่า Error ครับ

Sub test1()
Dim r As Range
For Each r In Range("B1", Range("B" & Rows.Count).End(xlUp))
    If r.Offset(0, 11) = "" And r.Offset(0, 10) = "" And r.Offset(0, 9) = "" And r.Offset(0, 8) = "" And r.Offset(0, 7) = "" And r.Offset(0, 6) = "" Then        
        r.Offset(0, 2).Resize(1, 4).Copy r.Offset(0, 8)
        r.Offset(0, 2).Resize(1, 4).Clear
    End If
Next r
End Sub

Code Excel VBA ขึ้นข้อความ Error ว่า Overflow จากไฟล์ตัวอย่างที่แนบมานี้ Code VBA สามารถรันได้เป็นปกติ
แต่พอนำไปใช้กับข้อมูลจริง ซึ่งมีประมาณ 60,000 แถว ขึ้นฟ้องว่า Overflow ไม่ทราบว่าควรปรับ Code อย่างไรดีครับ
[code]Sub test1()
Dim r As Range
For Each r In Range("B1", Range("B" & Rows.Count).End(xlUp))
If r.Offset(0, 11) = "" And r.Offset(0, 10) = "" And r.Offset(0, 9) = "" And r.Offset(0, 8) = "" And r.Offset(0, 7) = "" And r.Offset(0, 6) = "" Then
r.Offset(0, 2).Resize(1, 4).Copy r.Offset(0, 8)
r.Offset(0, 2).Resize(1, 4).Clear
End If
Next r
End Sub[/code]
Error ตรง If r.Offset(0, 11) = "" And r.Offset(0, 10) = "" And r.Offset(0, 9) = "" And r.Offset(0, 8) = "" And r.Offset(0, 7) = "" And r.Offset(0, 6) = "" Then