Ինչպե՞ս ստուգել աշխատանքային գրքի յուրաքանչյուր աշխատանքային թերթի չափը:
Ենթադրելով, որ ունեք մեծ աշխատանքային գրքույկ, որը պարունակում է բազմաթիվ աշխատանքային թերթեր, և այժմ դուք ցանկանում եք պարզել յուրաքանչյուր թերթի չափը `որոշելու համար, թե որ թերթը պետք է կրճատվի: Կա՞ն արագ մեթոդներ այս խնդրի լուծման համար:
Ստուգեք յուրաքանչյուր աշխատանքային թերթի չափը VBA կոդով
Ստուգեք յուրաքանչյուր աշխատաթերթի չափը Excel- ի համար Kutools- ով
Ստուգեք յուրաքանչյուր աշխատանքային թերթի չափը VBA կոդով
Հետևյալ VBA կոդով դուք կարող եք արագորեն ստանալ յուրաքանչյուր աշխատանքային թերթի չափը ձեր աշխատանքային գրքում: Խնդրում եմ, արեք այսպես.
1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.
VBA կոդ. Ստուգեք աշխատանքային գրքում յուրաքանչյուր աշխատանքային թերթի չափը </ p>
Sub WorksheetSizes()
'Update 20140526
Dim xWs As Worksheet
Dim Rng As Range
Dim xOutWs As Worksheet
Dim xOutFile As String
Dim xOutName As String
xOutName = "KutoolsforExcel"
xOutFile = ThisWorkbook.Path & "\TempWb.xls"
On Error Resume Next
Application.DisplayAlerts = False
Err = 0
Set xOutWs = Application.Worksheets(xOutName)
If Err = 0 Then
xOutWs.Delete
Err = 0
End If
With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
.Name = xOutName
.Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size")
End With
Set xOutWs = Application.Worksheets(xOutName)
Application.ScreenUpdating = False
xIndex = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xOutName Then
xWs.Copy
Application.ActiveWorkbook.SaveAs xOutFile
Application.ActiveWorkbook.Close SaveChanges:=False
Set Rng = xOutWs.Range("A1").Offset(xIndex, 0)
Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile))
Kill xOutFile
xIndex = xIndex + 1
End If
Next
Application.ScreenUpdating = True
Application.Application.DisplayAlerts = True
End Sub
3. Այնուհետեւ սեղմեք F5 այս կոդը կատարելու բանալին և անունով նոր աշխատանքային թերթ KutoolsforExcel կտեղադրվի ընթացիկ աշխատանքային գրքում, որը պարունակում է յուրաքանչյուր աշխատաթերթի անուն և ֆայլի չափ, իսկ միավորը Bit է: Տեսեք,
Ստուգեք յուրաքանչյուր աշխատաթերթի չափը Excel- ի համար Kutools- ով
Եթե դուք ունեք Excel- ի համար նախատեսված գործիքներԻր Պառակտում աշխատանքային գրքույկ օգտակար, դուք կարող եք ամբողջ աշխատանքային գիրքը բաժանել առանձին ֆայլերի, այնուհետև մտնել հատուկ թղթապանակ ՝ յուրաքանչյուր ֆայլի չափը ստուգելու համար:
Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Get it Now.
Excel- ի համար Kutools- ը տեղադրելուց հետո կատարեք հետևյալ քայլերը.
1, Բացեք աշխատանքային գրքույկը, որը ցանկանում եք ստուգել դրա յուրաքանչյուր աշխատանքային թերթի չափը և կտտացրեք ձեռնարկություն > Աշխատանքային տետրերի գործիքներ > Պառակտում աշխատանքային գրքույկ, տես նկարի նկարը.
2, Մեջ Պառակտում աշխատանքային գրքույկ երկխոսություն, ստուգեք բոլոր աշխատանքային թերթերը և կտտացրեք պառակտում կոճակը, ապա նշեք պանակ ՝ աշխատանքային գրքի նոր ֆայլերը տեղադրելու համար: Տեսեք սքրինշոթերը.
3, Եվ ապա ձեր ընթացիկ աշխատանքային գրքի յուրաքանչյուր աշխատանքային թերթը կպահպանվի որպես առանձնացված Excel ֆայլ, դուք կարող եք գնալ ձեր հատուկ թղթապանակ ՝ յուրաքանչյուր աշխատանքային գրքի չափը ստուգելու համար:
Իմանալ ավելին Split Workbook- ի այս հատկության մասին:
Առնչվող հոդվածներ քանակը:
Ինչպե՞ս բաժանել աշխատանքային գիրքը ՝ Excel- ում Excel ֆայլերն առանձնացնելու համար:
Ինչպե՞ս արտահանել և պահպանել թերթերն ու աշխատանքային թերթերը որպես նոր աշխատանքային տետր Excel- ում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: