:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

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

ฟอรัมสำหรับแจกจ่ายแบ่งปันไฟล์ รวมทั้งแหล่งความรู้ต่าง ๆ เกี่ยวกับ Excel
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#1

Post by snasui »

:D ท่านที่ประสบปัญหาไฟล์คำนวณนาน ทำงานช้า สามารถตรวจสอบสุขภาพไฟล์เพื่อทราบจำนวนวัตถุ, 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⁣