Excel жұмыс кітабындағы әрбір жұмыс парағының мәліметтер өлшемін алудың 2 жылдам әдісі

Егер сіз Excel жұмыс кітабындағы әрбір жұмыс парағының деректер өлшемін жылдам алғыңыз келсе, сіз осы мақалаға сілтеме жасай аласыз. Мұнда біз сіздерге 2 ыңғайлы әдіспен бөлісетін боламыз.

Кейде көптеген жұмыс парақтарынан тұратын Excel жұмыс кітабымен жұмыс істегенде, сіз әр парақтың деректер өлшемін алғыңыз келуі мүмкін. Алайда, бұл талаптың өзіндік ерекшелігі жоқ. Сонымен, сізге келесі уақытша шешімдерді қолдану керек, мысалы, келесі 1-әдіс. Немесе барлық жұмыс парақтарының деректер өлшемдерін жаппай алу үшін сіз 2-ші әдісті қолдана аласыз.

1-әдіс: Жұмыс парағының деректерін қолмен бір-бірлеп алыңыз

1. Алдымен нақты Excel жұмыс кітабын ашыңыз.
2. Содан кейін, Excel жұмыс парағының мазмұнын көшіріңіз.
3. Әрі қарай, жаңа жұмыс кітабын жасаңыз және көшірілген жұмыс парағын 1-параққа салыңыз.
4. Кейінірек жаңа жұмыс кітабын Windows қалтасына сақтаңыз.
5. Ақыр соңында, сіз келесі скриншотта көрсетілгендей, Windows Explorer-де жұмыс парағының деректер өлшеміне тең жаңа жұмыс кітабының деректерін тексере аласыз.
6. Енді сіз осы жолмен басқа жұмыс парақтарының деректер өлшемдерін бір-бірлеп алуға болады.

2-әдіс: VBA арқылы барлық жұмыс парақтарының деректер өлшемдерін пакеттік түрде алу

1. Бастау үшін Excel VBA редакторын «сәйкес ашыңыз.Excel бағдарламасында VBA кодын қалай іске қосуға болады«.
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