Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

նետ կապույտ աջ պղպջակ Ստուգեք յուրաքանչյուր աշխատանքային թերթի չափը 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 է: Տեսեք,

փաստաթուղթ-ստուգաթերթ-չափ 1


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

Եթե ​​դուք ունեք Excel- ի համար նախատեսված գործիքներԻր Պառակտում աշխատանքային գրքույկ օգտակար, դուք կարող եք ամբողջ աշխատանքային գիրքը բաժանել առանձին ֆայլերի, այնուհետև մտնել հատուկ թղթապանակ ՝ յուրաքանչյուր ֆայլի չափը ստուգելու համար:

Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Get it Now.

Excel- ի համար Kutools- ը տեղադրելուց հետո կատարեք հետևյալ քայլերը.

1, Բացեք աշխատանքային գրքույկը, որը ցանկանում եք ստուգել դրա յուրաքանչյուր աշխատանքային թերթի չափը և կտտացրեք ձեռնարկություն > Աշխատանքային տետրերի գործիքներ > Պառակտում աշխատանքային գրքույկ, տես նկարի նկարը.

փաստաթուղթ-ստուգաթերթ-չափ 1

2, Մեջ Պառակտում աշխատանքային գրքույկ երկխոսություն, ստուգեք բոլոր աշխատանքային թերթերը և կտտացրեք պառակտում կոճակը, ապա նշեք պանակ ՝ աշխատանքային գրքի նոր ֆայլերը տեղադրելու համար: Տեսեք սքրինշոթերը.

փաստաթուղթ-ստուգաթերթ-չափ 3
-1
փաստաթուղթ-ստուգաթերթ-չափ 4

3, Եվ ապա ձեր ընթացիկ աշխատանքային գրքի յուրաքանչյուր աշխատանքային թերթը կպահպանվի որպես առանձնացված Excel ֆայլ, դուք կարող եք գնալ ձեր հատուկ թղթապանակ ՝ յուրաքանչյուր աշխատանքային գրքի չափը ստուգելու համար:

փաստաթուղթ-ստուգաթերթ-չափ 1

Իմանալ ավելին 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-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (9)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ օգտակար: Շնորհակալություն!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն կոդի հատվածը հանրությանը տրամադրելու համար: Դա իմ գտած ավելի լավ առօրյաներից մեկն է: Ահա դրա մի քանի ուղղումներ. 1) Վերևում ավելացրեք «Dim xIndex as Long», եթե օգտագործում եք Option Explicit: 2) Ավելացրեք սա For loop-ի ներսում՝ թաքնված թերթերը մշակելու համար (հակառակ դեպքում այն ​​խափանում է). ActiveWorkbook.Charts հավաքածու: Եթե ​​դուք դա անեք, փոխեք xWs-ի հայտարարագիրը «Թերթից» «Օբյեկտ»-ի: 3) Էժան կարգավիճակի ցուցիչի համար (կամ վրիպազերծման խնդիրների համար) ավելացրեք այս տողը For հանգույցի ներսում. Debug.Print «Calculating Worksheet Sizes, Sheet» & xIndex & « of « & ActiveWorkbook.Worksheets.count - 4 & " - " & xWs.Name
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հեյ Բեն, կարո՞ղ եք վերագրել տեքստի ամբողջ շարանը թիվ 2 և 4 կետերով ձեր էլփոստից ավելացված: ԻՄ VBA գիտելիքները բավականին սահմանափակ են, և ես վստահ չեմ, թե կոնկրետ որտեղ դրանք ավելացնել For հանգույցում: Իմ աշխատանքային գրքույկը ունի մի շարք թաքնված թերթեր և շարունակում է խափանվել մակրո կատարման ընթացքում: Շնորհակալություն, Բոբ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ահա ռեժիմի պատճենը մի քանի բարելավումներով, որոնք ես ավելացրել եմ: Կայքի սահմանափակումների պատճառով ես ստիպված էի այն բաժանել բազմաթիվ գրառումների: Public Sub WorksheetSizes() «Թարմացնել 20140526» https://www.extendoffice.com/documents/excel/1682-excel-check-size-of-each-sheet.html<br />' ' BS 4/4/2016. Փոփոխվել է կարգավիճակի տող ունենալու և ելքը ձևաչափելու համար: Ուղղված է թաքնված թերթերի համար, որոնք առաջացրել են դրա խափանումը: Ավելացված է աջակցություն գծապատկերների թերթիկների համար Dim xWs As Object ' Worksheet կամ Chart Dim rng As Range Dim xOutWs as Worksheet Dim xOutFile as String Dim xOutName As String Dim xIndex As Long On Error GoTo ErrorHandler Application.Cursor = xlWaoooExfor xlWautWait" ThisWorkbook.Path & "\TempWb.xls" Սխալի դեպքում Resume Next Application.DisplayAlerts = False Err = 0 Սահմանել xOutWs = Application.Worksheets(xOutName) Եթե Սխալ = 0 Ապա xOutWs.Delete Err = 0 Ավարտել IfcWorksheets Application. .Ավելացնել(Before:=Application.Worksheets(1)) .Name = xOutName .Range("A1").Չափափոխել(1, 2).Value = Array("Worksheet Name", "Size") End With Set xOutWs = Application.Worksheets(xOutName) Application.ScreenUpdating = False xIndex = 1 Debug.Print This Workbook.Path For Every xWs In Application.ActiveWorkbook.Worksheets If xWs.Name xOutName then "Secure "&xetta" of " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name Debug.Print "Ccalculating W orksheet Sizes, Sheet " & xIndex & " of " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name DoEvents ' ներառում են սա, որպեսզի CTRL+Break-ը հնարավոր լինի հայտնաբերել: '--- կպցնել ընդմիջում ---
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
' 2-րդ մաս 3 '--- տեղադրեք ընդմիջում --- xWs.Visible = xlSheetVisible ' xOutFile = ThisWorkbook.Path & "\" & xWs.Name & ".xls" xWs.CopyQ Application.ActiveWorkbook.SaveAs xOutFileWorkApplication. .Փակել 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 ' Կրկնել վերը նշվածը գծապատկերների թերթիկների համար: Յուրաքանչյուր xW-ի համար Application.ActiveWorkbook.Charts If xWs.Name xOutName Այնուհետեւ Application.StatusBar = «Աշխատանքային թերթիկի չափսերի, թերթիկի հաշվարկում» & «ActiveWorkbook.Workbook.Worksheets.count»-ի «xIndex &» - 1 & « - « & xWs. Տպել «Աշխատանքային թերթիկի չափսերի հաշվարկը, թերթիկը» & xIndex & « of» & ActiveWorkbook.Worksheets.count - 1 & « - » & xWs.Name DoEvents ' ներառում են սա, որպեսզի CTRL+Break-ը հնարավոր լինի հայտնաբերել: xWs.Visible = xlSheetVisible xOutFile = ThisWorkbook.Path & "\" & xWs.Name & ".xls" xWs.Copy Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook.Փակել SaveWorkbook.Փակել SaveChanges: ").Offset(xIndex, 1) rng.Resize(0, 1).Value = Array(xWs.Name, VBA.FileLen(xOutFile)) 'Kill xOutFile xIndex = xIndex + 2 End If Next '--- paste break ---
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
' Part 3 of 3 '--- paste break --- ' Ձևաչափեք ելքային թերթիկը Application.Sheets(xOutName).Activate Columns("B:B").Select Selection.NumberFormat = "#,##0_);( #,##0)" Columns("A:B"). Ընտրեք Columns("A:B").EntireColumn.AutoFit Range("A1"): Ընտրեք 'Ավելի լավ, ձևաչափեք այն որպես աղյուսակ: ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B" & xIndex), , xlYes).Name = "WorksheetSizes" Application.ScreenUpdating = True Application.Application.DisplayAlerts = TruetusBarpplication.ur" xlDefault Exit Sub Error Handler. MsgBox "Error #" & Err.Number & " - " & Err.Description & vbCrLf & "in procedure WorksheetSizes" End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ Շատ Շատ Շատ Շատ օգտակար:
Շնորհակալություն!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, շատ օգտակար,
Ես ունեի մի փունջ անհարկի բանաձևեր թերթիկի մեջ և ես պարզապես ջնջեցի, որ ֆայլն այժմ լավ է աշխատում:
Այս ամենը տեղի է ունենում միայն այն պատճառով, որ ես կարողացա գտնել յուրաքանչյուր թերթիկի չափը,
Նորից շնորհակալություն.

Անսոն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հավանաբար պետք է սա ավելացնել 9-րդ և 10-րդ տողերի միջև, եթե որոշ թերթեր թաքցվեն՝ կոդի խափանումից խուսափելու համար
Թերթերում յուրաքանչյուր xWs-ի համար՝ xWs.Visible = True: Հաջորդը
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից