จะตรวจสอบขนาดของสมุดงานแต่ละแผ่นได้อย่างไร?

สมมติว่าคุณมีสมุดงานขนาดใหญ่ซึ่งมีแผ่นงานหลายแผ่นและตอนนี้คุณต้องการหาขนาดของแผ่นงานแต่ละแผ่นเพื่อพิจารณาว่าจะต้องลดขนาดแผ่นงานใด มีวิธีการที่รวดเร็วในการจัดการกับงานนี้หรือไม่?

ตรวจสอบขนาดของแต่ละแผ่นงานด้วยรหัส 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. เปิดเวิร์กบุ๊กที่คุณต้องการตรวจสอบขนาดของแต่ละเวิร์กชีตแล้วคลิก Kutools พลัส > สมุดงาน > แยกสมุดงาน

2. ใน แยกสมุดงาน โต้ตอบตรวจสอบแผ่นงานทั้งหมดแล้วคลิก แยก จากนั้นระบุโฟลเดอร์ที่จะใส่ไฟล์สมุดงานใหม่ ดูภาพหน้าจอ:

3. จากนั้นแผ่นงานแต่ละแผ่นของสมุดงานปัจจุบันของคุณจะถูกบันทึกเป็นไฟล์ Excel แยกกันคุณสามารถไปที่โฟลเดอร์เฉพาะของคุณเพื่อตรวจสอบขนาดของสมุดงานแต่ละเล่ม

หากต้องการทราบข้อมูลเพิ่มเติมเกี่ยวกับคุณลักษณะ Split Workbook นี้

บทความที่เกี่ยวข้อง:

วิธีแบ่งสมุดงานเพื่อแยกไฟล์ Excel ใน Excel

วิธีการส่งออกและบันทึกแผ่นงานและแผ่นงานเป็นสมุดงานใหม่ใน Excel