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

Sut i wirio maint pob taflen waith o lyfr gwaith?

Gan dybio bod gennych lyfr gwaith mawr sy'n cynnwys nifer o daflenni gwaith, ac yn awr, rydych chi am ddarganfod maint pob taflen waith i benderfynu pa ddalen sydd angen ei lleihau. A oes unrhyw ddulliau cyflym i ddelio â'r dasg hon?

Gwiriwch faint pob taflen waith gyda chod VBA

Gwiriwch faint pob taflen waith gyda Kutools ar gyfer Excel

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saeth Gwiriwch faint pob taflen waith gyda chod VBA


Gyda'r cod VBA canlynol, gallwch chi gael maint pob taflen waith yn eich llyfr gwaith yn gyflym. Gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Gwiriwch faint pob taflen waith mewn llyfr gwaith </ 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. Yna, pwyswch F5 allwedd i weithredu'r cod hwn, a thaflen waith newydd o'r enw KutoolsforExcel yn cael ei fewnosod yn y llyfr gwaith cyfredol sy'n cynnwys enw pob taflen waith a maint y ffeil, ac mae'r uned yn Bit. Gweler y screenshot:

doc-gwirio-taflen-maint1


swigen dde glas saeth Gwiriwch faint pob taflen waith gyda Kutools ar gyfer Excel

Os oes gennych Kutools ar gyfer Excel, Gyda'i Llyfr Gwaith Hollti cyfleustodau, gallwch rannu'r llyfr gwaith cyfan yn ffeiliau ar wahân, ac yna mynd i'r ffolder benodol i wirio maint pob ffeil.

Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch y camau canlynol:

1. Agorwch y llyfr gwaith rydych chi am wirio maint ei bob taflen waith, a chlicio Menter > Offer Llyfr Gwaith > Llyfr Gwaith Hollti, gweler y screenshot:

doc-gwirio-taflen-maint1

2. Yn y Llyfr Gwaith Hollti deialog, gwiriwch yr holl daflenni gwaith a chlicio Hollti botwm, ac yna nodwch ffolder i roi'r ffeiliau llyfr gwaith newydd. Gweler sgrinluniau:

doc-gwirio-taflen-maint3
-1
doc-gwirio-taflen-maint4

3. Ac yna bydd pob taflen waith o'ch llyfr gwaith cyfredol yn cael ei chadw fel ffeil Excel sydd wedi'i gwahanu, gallwch fynd i'ch ffolder benodol i wirio maint pob llyfr gwaith.

doc-gwirio-taflen-maint1

I wybod mwy am y nodwedd Llyfr Gwaith Hollti hwn.


Erthyglau cysylltiedig:

Sut i rannu llyfr gwaith i wahanu ffeiliau Excel yn Excel?

Sut i allforio ac arbed taflenni a thaflenni gwaith fel llyfr gwaith newydd yn Excel?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (9)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cymwynasgar iawn. Diolch!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am ddarparu'r pyt cod i'r cyhoedd. Mae'n un o'r arferion gorau a ddarganfyddais. Dyma ychydig o newidiadau iddo: 1) Ychwanegu "Dim xIndex as Long" i'r brig os ydych chi'n defnyddio Option Explicit. 2) Ychwanegwch hwn y tu mewn i'r ddolen Ar gyfer trin dalennau cudd (fel arall mae'n chwalu): xWs.Visible = xlSheetVisible 3) Os oes gennych chi daflenni "siart" tudalen lawn, mae angen i chi gopïo cod y ddolen ac ailadrodd trwy'r Cais. LlyfrGwaithActif.Casgliad siartiau. Os gwnewch hyn, newidiwch y datganiad xWs o "Daflen" i "Gwrthrych". 4) Ar gyfer dangosydd statws rhad (neu ar gyfer materion dadfygio) ychwanegwch y llinell hon y tu mewn i'r ddolen Ar gyfer: Debug.Print "Cyfrifo Maint Taflenni Gwaith, Taflen" & xIndex & " o " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Enw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei Ben, A allech chi ail-bastio'r llinyn cyfan o destun gan ychwanegu eitemau #2 a #4 o'ch e-bost? Mae fy ngwybodaeth VBA yn eithaf cyfyngedig ac nid wyf yn siŵr ble yn union i'w hychwanegu at y ddolen For. Mae gan fy llyfr gwaith nifer o daflenni cudd ac mae'n dal i chwalu yn ystod y gweithrediad macro. Diolch, Bob
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma gopi o'r drefn gydag ychydig o ychwanegiadau a ychwanegais. Roedd yn rhaid i mi ei rannu'n bostiadau lluosog oherwydd cyfyngiadau'r safle. Meintiau Is-Daflenni Gwaith Cyhoeddus() 'Diweddariad 20140526' https://www.extendoffice.com/documents/excel/1682-excel-check-size-of-each-sheet.html<br />'' BS 4/4/2016: Wedi'i addasu i gael bar statws a fformatio'r allbwn. ' Wedi'i osod ar gyfer dalennau cudd a achosodd iddo ddamwain. ' Cefnogaeth ychwanegol i daflenni Siart Dim xWs Fel Gwrthrych ' Taflen Waith neu Siart Dim rng Fel Ystod Dim xOutWs Fel Taflen Waith Dim xOutFile Fel Llinyn Dim xOutName Fel Llinyn Dim xIndex Cyn Hir Ymlaen Gwall GoTo ErrorHandler Application.Cursor = xlWait xOutName = " KutoolsforFexcel " ThisWorkbook.Path & " \ TempWb.xls " Ar Gwall Ail-ddechrau Cais Nesaf.DisplayAlerts = Gwall Ffug = 0 Gosod xOutWs = Application.Worksheets(xOutName) Os Gwall = 0 Yna xOutWs.Delete Err = 0 Diwedd Os Gyda Application.ActiveWorkbook.Worksheets .Add(Cyn:=Cais.Taflenni Gwaith(1)).Name = xOutName .Range("A1").Newid maint(1, 2).Value = Array("Enw Taflen Waith", "Maint") Diwedd Gyda Set xOutWs = Application.Worksheets(xOutName) Application.ScreenUpdating = Ffug xIndex = 1 Debug.Print ThisWorkbook.Path For Every xWs In Application.ActiveWorkbook.Worksheets If xWs.Name xOutName Then Application.StatusBar = "Cyfrifo Maint y Daflen Waith, Taflen" &xIndex&" o " & ActiveWorkbook.Worksheets.count - 1 & " - " &xWs.Name Debug.Print " Cyfrifo W orksheet Sizes, Dalen " & xIndex & " o " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name DoEvents ' yn cynnwys hwn fel bod modd canfod CTRL+Break. '--- toriad past ---
Lleihawyd y sylw hwn gan y safonwr ar y wefan
' Rhan 2 o 3 ' --- toriad past --- xWs.Visible = xlSheetVisible ' xOutFile = ThisWorkbook.Path & " \" &xWs.Name & " .xls " xWs.CopyQ Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook .Close SaveChanges:=Gosod Anghywir rng = xOutWs.Range("A1").Offset(xIndex, 0) rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile)) Lladd xOutFile xIndex = xIndex + 1 Diwedd Os Nesaf ' Ailadroddwch yr uchod ar gyfer taflenni siart. Ar gyfer Pob xWs Mewn Application.ActiveWorkbook.Charts If xWs.Name xOutName Then Application.StatusBar = " Cyfrifo Maint y Daflen Waith, Taflen " & xIndex & " o " &ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name Debug. Argraffu " Cyfrifo Meintiau Taflenni Gwaith, Taflen " & xIndex & " o " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name DoEvents ' yn cynnwys hwn fel bod modd canfod CTRL+Break. xWs.Visible = xlSheetVisible xOutFile = ThisWorkbook.Path & " \" &xWs.Name & " .xls " xWs.Copy Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook.Close SaveChanges:=Gosodiad Ffug rng=xOutWs.1Range(" "). Offset(xIndex, 0) rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile)) 'Lladd xOutFile xIndex = xIndex + 1 Diwedd Os Nesaf '--- past break ---
Lleihawyd y sylw hwn gan y safonwr ar y wefan
' Rhan 3 o 3 ' --- toriad past --- ' Fformatio'r ddalen allbwn Application.Sheets(xOutName).Activate Columns("B:B").Select Selection.NumberFormat = " #,##0_);( #,##0)" Colofnau("A:B").Dewiswch Colofnau("A:B").EntireColumn.AutoFit Range("A1").Dewiswch ' Gwell fyth, fformatiwch fel tabl. ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B" & xIndex), , xlYes).Name = "Maint y Daflen" Application.ScreenUpdating = Gwir Application.Application.DisplayAlerts = Gwir Application.StatusBar = " Application.Cursor = " xlDefault Exit Sub ErrorHandler: MsgBox "Gwall #" &Err.Number&" - " &Err.Description &vbCrLf&" in procedure WorksheetSizes"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cymwynasgar iawn Iawn Iawn.
Diolch!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, cymwynasgar iawn,
Roedd gen i griw o fformiwlâu diangen mewn taflen a dwi newydd ddileu bod y ffeil bellach yn gweithio'n iawn.
Mae'r rhain i gyd yn digwydd dim ond oherwydd gallwn ddod o hyd i faint pob dalen,
Diolch eto.

Anson
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n debyg y dylid ychwanegu hwn rhwng llinellau 9 a 10 rhag ofn bod rhai dalennau'n cael eu cuddio er mwyn atal y cod rhag chwalu
Ar gyfer Pob xWs Mewn Taflenni: xWs.Visible = Gwir: Nesaf
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir