Ինչպե՞ս ստուգել աշխատանքային գրքի յուրաքանչյուր աշխատանքային թերթի չափը:

Ենթադրելով, որ ունեք մեծ աշխատանքային գրքույկ, որը պարունակում է բազմաթիվ աշխատանքային թերթեր, և այժմ դուք ցանկանում եք պարզել յուրաքանչյուր թերթի չափը `որոշելու համար, թե որ թերթը պետք է կրճատվի: Կա՞ն արագ մեթոդներ այս խնդրի լուծման համար:

Ստուգեք յուրաքանչյուր աշխատանքային թերթի չափը VBA կոդով

Ստուգեք յուրաքանչյուր աշխատաթերթի չափը Excel- ի համար Kutools- ով

Ստուգեք յուրաքանչյուր աշխատանքային թերթի չափը VBA կոդով

Amazարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel- ում, ինչպիսիք են Chrome- ը, Firefox- ը և Safari- ն:

Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

---

Հետևյալ 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-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...