Excel ish kitobidagi har bir varaqning ma'lumotlar hajmini olishning 2 ta tezkor usuli

Excel ish kitobidagi har bir ish varag'ining ma'lumotlar hajmini tezda olishni istasangiz, ushbu maqolaga murojaat qilishingiz mumkin. Bu erda biz siz bilan 2 ta qulay usulni baham ko'ramiz.

Ba'zida juda ko'p ish varaqlaridan iborat Excel ish kitobi bilan ishlashda siz har bir varaqning ma'lumotlar hajmini olishni xohlashingiz mumkin. Biroq, bu talab uchun mahalliy xususiyat mavjud emas. Shunday qilib, siz quyidagi 1-usul kabi ba'zi vaqtinchalik echimlardan foydalanishingiz kerak. Yoki barcha ish varaqlarining ma'lumotlar o'lchamlarini ommaviy ravishda olish uchun ancha oqilona 2-usuldan foydalanishingiz mumkin.

1-usul: Ishchi varaqning ma'lumotlar hajmini birma-bir qo'lda oling

1. Avval maxsus Excel ish kitobini oching.
2. Keyin, Excel ish varag'i tarkibini nusxalash.
3. Keyin yangi ish kitobini yarating va ko'chirilgan ish varag'ini 1-varaqga joylashtiring.
4. Keyinchalik, yangi ish kitobini Windows jildiga saqlang.
5. Va nihoyat, quyidagi skrinshotda ko'rsatilganidek, Windows Explorer-da yangi ishchi kitobning ma'lumotlar hajmini, ishchi varaqning ma'lumotlar hajmiga tengligini tekshirishingiz mumkin.
6. Endi siz boshqa ish varaqlarining ma'lumotlar o'lchamlarini birma-bir olish uchun ushbu usuldan foydalanishingiz mumkin.

2-usul: VBA orqali barcha ish varaqlarining ma'lumotlar o'lchamlarini ommaviy oling

1. Boshlash uchun "Excel VBA muharriri" ga muvofiq oching.Excel-da VBA kodini qanday ishlatish kerak".
2. Keyin quyidagi kodni loyiha yoki modulga qo'ying.

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. Shundan so'ng, ushbu makrosni darhol ishga tushirish uchun "F5" tugmasini bosing.
4. Nihoyat, so'l tugatgandan so'ng, ish kitobiga qayting.
5. Siz eng boshida yangi ish varag'ini ko'rasiz, u quyidagi rasmdagi kabi har bir ish varag'ining o'lchamini o'z ichiga oladi.

qiyoslash

G'azablantiradigan PST muammolarini tuzating

Foydalanuvchilar MS Excel dasturida kutilmagan o'chirish yoki qayta ishga tushirishdan tortib jiddiy muammolargacha bo'lgan har qanday bezovta qiluvchi muammolarga duch kelishlari mumkin. xlsx buzilishiShubhasiz, eng dolzarb muammo shikastlangan Excel faylidir, chunki uni osongina hal qilib bo'lmaydi. Bu sizdan tashqi Excel tuzatish vositasini qo'llashni talab qiladi, masalan. DataNumen Excel Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan SQL Server va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com