Excel iş kitabında hər bir iş vərəqinin məlumat ölçüsünü əldə etməyin 2 sürətli yolu

Excel iş kitabında hər bir iş vərəqinin məlumat ölçüsünü tez bir zamanda əldə etmək istəyirsinizsə, bu məqaləyə müraciət edə bilərsiniz. Burada sizinlə 2 faydalı üsul paylaşacağıq.

Bəzən çox sayda iş vərəqindən ibarət Excel iş kitabı ilə işləyərkən hər bir iş vərəqinin məlumat ölçüsünü əldə etmək istəyə bilərsiniz. Ancaq bu tələb üçün yerli xüsusiyyət yoxdur. Beləliklə, siz aşağıdakı 1-ci Metod kimi bəzi həll yollarından istifadə etməlisiniz. Və ya bütün iş vərəqlərinin məlumat ölçülərini toplu şəkildə əldə etmək üçün daha ağıllı Metod 2-dən istifadə edə bilərsiniz.

Metod 1: İş vərəqinin Məlumat Ölçüsünü bir-bir əl ilə əldə edin

1. Əvvəlcə xüsusi Excel iş kitabını açın.
2. Sonra Excel iş vərəqinin məzmununu kopyalayın.
3. Sonra, yeni bir iş kitabı yaradın və kopyalanan iş vərəqini Vərəq 1-ə yapışdırın.
4. Daha sonra yeni iş kitabını Windows qovluğunda saxlayın.
5. Nəhayət, aşağıdakı ekran görüntüsündə göstərildiyi kimi, Windows Explorer-də iş vərəqinin məlumat ölçüsünə bərabər olan yeni iş kitabının məlumat ölçüsünü yoxlaya bilərsiniz.
6. İndi digər iş vərəqlərinin məlumat ölçülərini bir-bir əldə etmək üçün bu üsuldan istifadə edə bilərsiniz.

Metod 2: Toplu Bütün İş Vərəqlərinin Məlumat Ölçülərini VBA vasitəsilə əldə edin

1. Başlamaq üçün Excel VBA redaktorunu “Excel-də VBA kodunu necə işlətmək olar".
2. Sonra, aşağıdakı kodu layihə və ya modula qoyun.

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. Bundan sonra bu makronu dərhal işə salmaq üçün “F5” düyməsini sıxın.
4. Nəhayət, makro bitdikdən sonra iş kitabına qayıdın.
5. Siz ən əvvəlində aşağıdakı şəkil kimi hər bir iş vərəqinin ölçüsünü ehtiva edən yeni iş vərəqini görəcəksiniz.

Müqayisə

Təhlükəli PST Problemlərini həll edin

İstifadəçilər MS Excel-də gözlənilməz bağlanma və ya yenidən başlama ilə ciddi problemlərə qədər hər cür narahatedici problemlərlə qarşılaşa bilərlər. xlsx korrupsiyasıŞübhəsiz ki, ən çətin problem zədələnmiş Excel faylıdır, çünki onu asanlıqla həll etmək mümkün deyil. Bu, sizdən xarici Excel düzəliş alətindən istifadə etməyinizi tələb edir, məsələn DataNumen Excel Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc satqın SQL Server və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com