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 for Excel
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 Kutoolsorexcel 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:
Gwiriwch faint pob taflen waith gyda Kutools for Excel
Os oes gennych Kutools for 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 for 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 for Excel, gwnewch gyda'r 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:
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:
 |
 |
 |
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.
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?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
