Excel-ийн ажлын дэвтэрт ажлын хуудас бүрийн өгөгдлийн хэмжээг хурдан авах 2 арга

Хэрэв та Excel-ийн ажлын дэвтэр дээрх ажлын хуудас бүрийн өгөгдлийн хэмжээг хурдан авахыг хүсвэл энэ нийтлэлийг үзнэ үү. Энд бид танд хэрэгтэй 2 аргыг хуваалцах болно.

Заримдаа, ажлын хүснэгтээс бүрдсэн Excel-ийн ажлын номтой харьцахдаа та ажлын хуудас бүрийн өгөгдлийн хэмжээг авахыг хүсч магадгүй юм. Гэсэн хэдий ч энэ шаардлагын хувьд төрөлхийн шинж чанар гэж байдаггүй. Тиймээс та дараахь аргачлалыг ашиглах хэрэгтэй. Жишээ нь та илүү ухаалаг 1-р аргыг ашиглаж бүх ажлын хуудасны өгөгдлийн хэмжээг бөөнөөр нь авах боломжтой.

Арга 1: Ажлын хуудасны мэдээллийн хэмжээг гараар нэг нэгээр нь авах

1. Эхлээд Excel-ийн тодорхой ажлын номыг нээнэ үү.
2. Дараа нь Excel-ийн ажлын хуудасны агуулгыг хуулж ав.
3. Дараа нь шинэ ажлын дэвтэр хийж, хуулсан ажлын хуудсыг Хуудас 1 дээр буулгана уу.
4. Дараа нь шинэ ажлын номоо Windows хавтсанд хадгална уу.
5. Эцэст нь та шинэ ажлын номын өгөгдлийн хэмжээг ажлын хуудасны өгөгдлийн хэмжээтэй тэнцүү хэмжээгээр Windows Explorer дээрээс дараахь дэлгэцийн агшинд үзүүлж шалгах боломжтой.
6. Одоо та бусад ажлын хуудасны өгөгдлийн хэмжээг нэг нэгээр нь авахын тулд энэ аргыг ашиглаж болно.

Арга 2: Бүх ажлын хуудасны мэдээллийн хэмжээг багцаар VBA-р авах

1. Эхлэхийн тулд Excel VBA редакторыг “VBA кодыг Excel програм дээрээ хэрхэн ажиллуулах вэ".
2. Дараа нь дараахь кодыг төсөл эсвэл модульд оруулна уу.

Sub GetEachWorksheetSize()
    Dim strTargetSheetName As String
    Dim strTempWorkbook As String
    Dim objTargetWorksheet As Worksheet
    Dim objWorksheet As Worksheet
    Dim objRange As Range
    Dim i As Long
    Dim nLastEmptyRow As Integer

    strTargetSheetName = "Sheet Sizes"
    strTempWorkbook = ThisWorkbook.Path & "\Temp Workbook.xls"

    With ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
         .Name = strTargetSheetName
         .Cells(1, 1) = "Sheet"
         .Cells(1, 1).Font.Size = 14
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "Size"
         .Cells(1, 2).Font.Size = 14
         .Cells(1, 2).Font.Bold = True
    End With

    Set objTargetWorksheet = Application.Worksheets(strTargetSheetName)

    For Each objWorksheet In Application.ActiveWorkbook.Worksheets
        If objWorksheet.Name <> strTargetSheetName Then
           objWorksheet.Copy

           Application.ActiveWorkbook.SaveAs strTempWorkbook
           Application.ActiveWorkbook.Close SaveChanges:=False

           nLastEmptyRow = objTargetWorksheet.Range("A" & objTargetWorksheet.Rows.Count).End(xlUp).Row + 1

           With objTargetWorksheet
                .Cells(nLastEmptyRow, 1) = objWorksheet.Name
                .Cells(nLastEmptyRow, 2) = FileLen(strTempWorkbook)
           End With

           Kill strTempWorkbook
         End If
    Next
End Sub

3. Үүний дараа “F5” товчийг дарж энэ макрог шууд ажиллуулна уу.
4. Эцэст нь макро дууссаны дараа ажлын дэвтэрт буцаж очно уу.
5. Та ажлын эхэнд дараахь зураг шиг ажлын хуудас бүрийн хэмжээг агуулсан шинэ хуудсыг харах болно.

харьцуулалт

Гайхамшигтай PST асуудлыг засах

Хэрэглэгчид MS Excel дээр гэнэтийн унтрах эсвэл дахин асаахаас эхлээд ноцтой асуудал хүртэл бүх төрлийн түгшүүртэй асуудлуудтай тулгарч болно. xlsx авлигаХамгийн төвөгтэй асуудал бол эвдэрсэн Excel файл бөгөөд үүнийг амархан шийдэх боломжгүй юм. Энэ нь танаас гадаад Excel засварлах хэрэгслийг ашиглахыг шаарддаг, тухайлбал DataNumen Excel Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. авлигад автсан SQL Server програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com