การลบ Style จำนวนมากในคราวเดียวด้วย VBA

😊 กรณีทีใช้ Excel 2007 หรือ Version ที่ใหม่กว่าแล้ว Save กลับมาเป็น Excel 2003 หรือ Version ที่ต่ำกว่า บางครั้งจะพบปัญหาว่ามี Format มากเกินกว่าข้อจำกัดของ Excel 2003 หรือ Version ที่ต่ำกว่า ทำให้เปิดไฟล์ไม่ได้ โปรแกรมจะฟ้องว่า Too many difference formats เนื่องจาก Excel 2003 และ Vession ที่ต่ำกว่ามี Style ได้แค่ 4,000 แบบเท่านั้น แต่ Excel 2007 ขึ้นไป สามารถมีได้ถึง 64,000 แบบ

Styles ได้แก่การจัดรูปแบบเซลล์ทั้งหลาย ไม่ว่าจะเป็นตัวหนา ตัวเอียง ตัวบาง ขีดเส้นใต้ สีตัวอักษร สีเซลล์ ขนาดตัวอักษร ฯลฯ หากทำไว้หลากหลายจนเกินข้อจำกัดที่มีไห้ก็เป็นปัญหาตามด้านบนและทำงานต่อไม่ได้ครับ

การลบ Style มาก ๆ ด้วยมือนั้นย่อมไม่สะดวก เราสามารถใช้ Code ด้านล่างเพื่อลบ Style ทั้งหมดพร้อมกันทีเดียวได้ครับ

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

Video แสดงการลบ Style จำนวนมากในคราวเดียว

กรณีใช้ Excel 2003- หลังจากลบออกด้วย Code แล้วให้จัดรูปแบบใหม่ให้เหลือเฉพาะที่จำเป็นก็พอครับ 😉

Revised: September 23, 2017 at 06:24