Code นับจำนวนวัตถุ, Named range และ Styles ในไฟล์ Excel

[snasui]

ท่านที่ประสบปัญหาไฟล์คำนวณนาน ทำงานช้า สามารถตรวจสอบสุขภาพไฟล์เพื่อทราบจำนวนวัตถุ, Named range และ Styles พร้อมกันในคราวเดียวเพื่อจัดการกับส่วนที่เกินความจำเป็นในภายหลัง โดยมีวิธีดังนี้ครับ⁣

1. คลิก SELECT ALL แล้วกดแป้น Ctrl+C เพื่อคัดลอกเอาไว้ก่อน⁣⁣

   Code: Select all

   set wb = workbooks.open(application.getopenfilename("(*.xls*),*.xls*")): i = 0: for each sh in wb.worksheets: for each o in sh.shapes: i = i + 1 : next o: next sh: msgbox "File path: " & wb.fullname & vbcrlf & string(30,"-") & vbcrlf & "Objects: " & string(2,vbtab) & i & " item(s)" & vbcrlf & "Named range: " & vbtab & wb.names.count & " item(s)" & vbcrlf & "Styles: " & string(2,vbtab) & wb.styles.count & " item(s)": wb.close false:

   ⁣
2. เปิดโปรแกรม Excel แล้วกดแป้น Alt+F11 เพื่อไปยังหน้าจอ VBE ตามด้วย Ctrl+G เพื่อเปิดหน้าต่าง Immediate window จากนั้นกดแป้น Ctrl+V เพื่อวาง Code ตามข้อ 1 แล้วกดแป้น Enter⁣⁣
3. เลือกไฟล์ที่ต้องการตรวจสอบแล้วคลิก Open⁣⁣
4. ผลลัพธ์จะแสดงใน Message Box⁣