ปัญหาพิมพ์ตัวหนังสือเพิ่มไม่ได้ เพราะเหตุใด แก้ไขได้อย่างไร

[nankob]

ทำงานข้อมูลอยู่ชุดหนึ่ง พิมพ์ไปๆ ปรากฏขึ้นหน้าต่างมาว่า เพิ่มอักษรอีกไม่ได้ ( ตามไฟล์แนบ )งงครับ
ว่าเกิดปัญหาอะไร แล้วก็พิมพ์ตัวไหนไปก็มีหน้าต่างนี้โชว์ตลอดครับ ช่วยแนะนำหน่อยครับ

[snasui]

เข้าใจว่าใช้ Excel 2003 เนื่องจากมีข้อจำกัดการใช้รูปแบบ รวมทั้งหมดแล้วต้องไม่เกิน 4000 รูปแบบ ยกตัวอย่างเช่น รูปแบบตัวอักษร ใส่สี ตีเส้น ตัวหนา ตัวเอียง ขีดเส้นใต้ ฯลฯ

ลองเข้าเมนู Format > Style ตรง Style name ลองคลิก Drop down ดูว่ามี Style อยู่จำนวนมากหรือไม่ครับ หากมีจำนวนมากจำเป็นต้องลบออกให้เหลือเท่าที่จะเป็น ซึ่งหากลบเองไม่ไหวคงต้องพึ่ง VBA ด้านล่างเข้ามาช่วยลบครับ

Code: Select all

Sub DelStyles()
Dim s As Style
On Error Resume Next
For Each s In Styles
    s.Delete
Next s
End Sub

[nankob]

ผมใช้ 2003 ครับ ตอนนี้ลองทำตามคำแนะนำด้วยการลบข้อมูลออกแล้วครับ
ขอบคุณท่านอาจารย์เป็นอย่างยิ่ง สำหรับ VBA นั้น ไม่เคยได้ลองใช้เลยครับ
ยังไม่มีความรู้ ไม่ทราบจะเริ่มต้นอย่างไร ตอนนี้เวลาอ่านเจอโค้ดที่อาจารย์พูด
ถึง VBA ผมจะเปิดผ่านไปอ่านเรื่องอื่นก่อน กะว่ามีเวลาว่าง ๆ จะเริ่มศึกษาครับ