จะตรวจสอบขนาดของสมุดงานแต่ละแผ่นได้อย่างไร?
สมมติว่าคุณมีสมุดงานขนาดใหญ่ซึ่งมีแผ่นงานหลายแผ่นและตอนนี้คุณต้องการหาขนาดของแผ่นงานแต่ละแผ่นเพื่อพิจารณาว่าจะต้องลดขนาดแผ่นงานใด มีวิธีการที่รวดเร็วในการจัดการกับงานนี้หรือไม่?
ตรวจสอบขนาดของแต่ละแผ่นงานด้วยรหัส VBA
ตรวจสอบขนาดของแต่ละแผ่นงานด้วย Kutools for Excel
ตรวจสอบขนาดของแต่ละแผ่นงานด้วยรหัส VBA
ด้วยรหัส VBA ต่อไปนี้คุณสามารถรับขนาดของแต่ละแผ่นงานในสมุดงานของคุณได้อย่างรวดเร็ว กรุณาทำตามนี้:
1. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: ตรวจสอบขนาดของแต่ละแผ่นงานในสมุดงาน </ p>
Sub WorksheetSizes()
'Update 20140526
Dim xWs As Worksheet
Dim Rng As Range
Dim xOutWs As Worksheet
Dim xOutFile As String
Dim xOutName As String
xOutName = "KutoolsforExcel"
xOutFile = ThisWorkbook.Path & "\TempWb.xls"
On Error Resume Next
Application.DisplayAlerts = False
Err = 0
Set xOutWs = Application.Worksheets(xOutName)
If Err = 0 Then
xOutWs.Delete
Err = 0
End If
With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
.Name = xOutName
.Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size")
End With
Set xOutWs = Application.Worksheets(xOutName)
Application.ScreenUpdating = False
xIndex = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xOutName Then
xWs.Copy
Application.ActiveWorkbook.SaveAs xOutFile
Application.ActiveWorkbook.Close SaveChanges:=False
Set Rng = xOutWs.Range("A1").Offset(xIndex, 0)
Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile))
Kill xOutFile
xIndex = xIndex + 1
End If
Next
Application.ScreenUpdating = True
Application.Application.DisplayAlerts = True
End Sub
3. จากนั้นกด F5 คีย์เพื่อรันโค้ดนี้และเวิร์กชีตใหม่ชื่อ KutoolsforExcel จะถูกแทรกลงในสมุดงานปัจจุบันซึ่งมีชื่อแผ่นงานและขนาดไฟล์แต่ละแผ่นและหน่วยคือ Bit ดูภาพหน้าจอ:
ตรวจสอบขนาดของแต่ละแผ่นงานด้วย Kutools for Excel
ถ้าคุณมี Kutools สำหรับ Excelเดียวกันกับที่ แยกสมุดงาน ยูทิลิตี้คุณสามารถแบ่งสมุดงานทั้งหมดออกเป็นไฟล์แยกกันจากนั้นไปที่โฟลเดอร์เฉพาะเพื่อตรวจสอบขนาดของแต่ละไฟล์
Kutools สำหรับ Excel มีเครื่องมือ Excel ที่มีประโยชน์มากกว่า 300 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now.
หลังจากติดตั้ง Kutools for Excel แล้วให้ทำตามขั้นตอนต่อไปนี้:
1. เปิดเวิร์กบุ๊กที่คุณต้องการตรวจสอบขนาดของแต่ละเวิร์กชีตแล้วคลิก Enterprise > เครื่องมือสมุดงาน > แยกสมุดงานดูภาพหน้าจอ:
2. ใน แยกสมุดงาน โต้ตอบตรวจสอบแผ่นงานทั้งหมดแล้วคลิก แยก จากนั้นระบุโฟลเดอร์ที่จะใส่ไฟล์สมุดงานใหม่ ดูภาพหน้าจอ:
 |
 |
 |
3. จากนั้นแผ่นงานแต่ละแผ่นของสมุดงานปัจจุบันของคุณจะถูกบันทึกเป็นไฟล์ Excel แยกกันคุณสามารถไปที่โฟลเดอร์เฉพาะของคุณเพื่อตรวจสอบขนาดของสมุดงานแต่ละเล่ม
หากต้องการทราบข้อมูลเพิ่มเติมเกี่ยวกับคุณลักษณะ Split Workbook นี้
บทความที่เกี่ยวข้อง:
วิธีแบ่งสมุดงานเพื่อแยกไฟล์ Excel ใน Excel
วิธีการส่งออกและบันทึกแผ่นงานและแผ่นงานเป็นสมุดงานใหม่ใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
