Excel Workbook တွင် Worksheet တစ်ခုစီ၏ Data Size ကို ရယူရန် အမြန်နည်းလမ်း 2 ခု

Excel workbook တွင် worksheet တစ်ခုစီ၏ data size ကို လျင်မြန်စွာ ရယူလိုပါက ဤဆောင်းပါးကို ကိုးကားနိုင်ပါသည်။ ဤတွင် ကျွန်ုပ်တို့သည် သင့်အား အသုံးဝင်သော နည်းလမ်း 2 ခုကို မျှဝေပါမည်။

တစ်ခါတလေ၊ များပြားလှသော worksheets များပါ၀င်သော Excel workbook နှင့် ဆက်ဆံရာတွင်၊ worksheet တစ်ခုစီ၏ data size ကို ရယူလိုပေမည်။ သို့သော် ဤလိုအပ်ချက်အတွက် မူလအင်္ဂါရပ်မရှိပါ။ ထို့ကြောင့် အောက်ပါ Method 1 ကဲ့သို့သော ဖြေရှင်းနည်းအချို့ကို သင်အသုံးပြုရန်လိုအပ်သည်။ သို့မဟုတ် အလုပ်စာရွက်များ၏ ဒေတာအရွယ်အစားအားလုံးကို အစုလိုက်ရရှိရန် ပိုမိုထက်မြက်သော Method 2 ကို အသုံးပြုနိုင်သည်။

Method 1- Worksheet Data Size ကို Manually တစ်ခုပြီးတစ်ခု ရယူပါ။

1. ပထမဦးစွာ သတ်မှတ်ထားသော Excel workbook ကိုဖွင့်ပါ။
2. ထို့နောက် Excel worksheet ၏ အကြောင်းအရာများကို ကူးယူပါ။
3. ထို့နောက်၊ အလုပ်စာအုပ်အသစ်ဖန်တီးပြီး ကူးယူထားသော အလုပ်စာရွက်ကို Sheet 1 တွင် ကူးထည့်ပါ။
4. နောက်ပိုင်းတွင် အလုပ်စာအုပ်အသစ်ကို Windows ဖိုင်တွဲတွင် သိမ်းဆည်းပါ။
5. နောက်ဆုံးအနေဖြင့်၊ အောက်ပါ screenshot တွင်ပြထားသည့်အတိုင်း Windows Explorer တွင် worksheet ၏ data size နှင့်ညီသော workbook အသစ်၏ data size ကိုစစ်ဆေးနိုင်ပါသည်။
6. ယခု၊ သင်သည် အခြားအလုပ်စာရွက်များ၏ ဒေတာအရွယ်အစားများကို တစ်ခုပြီးတစ်ခု ရယူရန် ဤနည်းလမ်းကို အသုံးပြုနိုင်သည်။

နည်းလမ်း 2- VBA မှတဆင့် Worksheets အားလုံး၏ Data Sizes ကို Batch ရယူပါ။

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. ၎င်းနောက်၊ ဤ macro ကိုချက်ချင်းလုပ်ဆောင်ရန် "F5" ကိုနှိပ်ပါ။
4. နောက်ဆုံးတွင်၊ macro ပြီးပါက၊ workbook သို့ ပြန်သွားပါ။
5. အောက်ဖော်ပြပါပုံကဲ့သို့ အလုပ်စာရွက်တစ်ခုစီ၏ အရွယ်အစားပါရှိသော အလုပ်စာရွက်အသစ်ကို အစတွင် သင်တွေ့ရပါမည်။

နှိုင်းယှဉ်မှု

ဒေါသထွက်နေသော PST ပြဿနာများကို ဖြေရှင်းပါ။

အသုံးပြုသူများသည် MS Excel တွင် မမျှော်လင့်ဘဲ ပိတ်သွားခြင်း သို့မဟုတ် ပြန်လည်စတင်ခြင်းမှသည် ပြင်းထန်သော ပြဿနာများအထိ စိတ်အနှောင့်အယှက်ဖြစ်စေသော ပြဿနာအမျိုးမျိုးနှင့် ကြုံတွေ့ရနိုင်သည်။ xlsx အကျင့်ပျက်ခြစားမှုသံသယဖြစ်စရာမလိုဘဲ၊ အရှုပ်ထွေးဆုံးပြဿနာကတော့ ပျက်စီးနေတဲ့ Excel ဖိုင်ဖြစ်ပြီး အလွယ်တကူဖြေရှင်းလို့မရပါဘူး။ ဒါက ပြင်ပ Excel ပြင်ဆင်ရေးကိရိယာတစ်ခုကို အသုံးပြုဖို့ လိုအပ်ပါတယ်။ ဥပမာ DataNumen Excel Repair.

စာရေးသူနိဒါန်း:

Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ အကျင့်ပျက်ခြစားမှု SQL Server နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com