2 სწრაფი გზა Excel-ის სამუშაო წიგნში თითოეული სამუშაო ფურცლის მონაცემთა ზომის მისაღებად

თუ გსურთ სწრაფად მიიღოთ თითოეული სამუშაო ფურცლის მონაცემთა ზომა Excel-ის სამუშაო წიგნში, შეგიძლიათ მიმართოთ ამ სტატიას. აქ ჩვენ გაგიზიარებთ 2 მოსახერხებელ მეთოდს.

ზოგჯერ, როდესაც საქმე გვაქვს Excel სამუშაო წიგნთან, რომელიც შედგება სამუშაო ფურცლების დიდი რაოდენობით, შეიძლება დაგჭირდეთ თითოეული სამუშაო ფურცლის მონაცემების ზომის მიღება. თუმცა, ამ მოთხოვნისთვის მშობლიური ფუნქცია არ არსებობს. ასე რომ, თქვენ უნდა გამოიყენოთ რამდენიმე გამოსავალი, როგორიცაა შემდეგი მეთოდი 1. ან შეგიძლიათ გამოიყენოთ ბევრად უფრო ჭკვიანი მეთოდი 2, რათა მიიღოთ ყველა სამუშაო ფურცლის მონაცემთა ზომის ნაყარი.

მეთოდი 1: მიიღეთ სამუშაო ფურცლის მონაცემთა ზომა სათითაოდ ხელით

1. თავდაპირველად გახსენით კონკრეტული Excel სამუშაო წიგნი.
2. შემდეგ დააკოპირეთ Excel-ის სამუშაო ფურცლის შინაარსი.
3. შემდეგი, შექმენით ახალი სამუშაო წიგნი და ჩასვით კოპირებული სამუშაო ფურცელი Sheet 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. თავიდანვე დაინახავთ ახალ სამუშაო ფურცელს, რომელიც შეიცავს თითოეული სამუშაო ფურცლის ზომას, როგორიცაა შემდეგი სურათი.

შედარება

შეასწორეთ პსტ-ის ამაღელვებელი საკითხები

მომხმარებლებს MS Excel-ში შეიძლება შეექმნათ ყველანაირი შემაშფოთებელი პრობლემა, დაწყებული მოულოდნელი გამორთვიდან ან გადატვირთვიდან სერიოზულამდე. xlsx კორუფციაუდავოა, რომ ყველაზე რთული პრობლემა დაზიანებული Excel ფაილია, რომლის მოგვარებაც მარტივად არ შეიძლება. ის მოითხოვს გარე Excel-ის გამოსწორების ინსტრუმენტის გამოყენებას, მაგალითად DataNumen Excel Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის კორუმპირებული SQL Server და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად