Conas méid gach bileog oibre de leabhar oibre a sheiceáil?
Má cheaptar go bhfuil leabhar mór oibre agat ina bhfuil iliomad bileoga oibre, agus anois, ba mhaith leat méid gach bileog oibre a fháil amach chun a fháil amach cén bhileog is gá a laghdú. An bhfuil aon mhodhanna gasta ann chun déileáil leis an tasc seo?
Seiceáil méid gach bileog oibre le cód VBA
Seiceáil méid gach bileog oibre le Kutools le haghaidh Excel
Seiceáil méid gach bileog oibre le cód VBA
Leis an gcód VBA seo a leanas, is féidir leat méid gach bileog oibre a fháil go tapa i do leabhar oibre. Déan mar seo le do thoil:
1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Seiceáil méid gach bileog oibre i leabhar oibre </ 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. Ansin brúigh F5 eochair chun an cód seo a fhorghníomhú, agus bileog oibre nua darb ainm Kutools le haghaidh Excel cuirfear isteach sa leabhar oibre reatha é ina bhfuil ainm gach bileog oibre agus méid comhaid, agus is é an t-aonad Giotán. Féach an pictiúr:
Seiceáil méid gach bileog oibre le Kutools le haghaidh Excel
Má tá tú Kutools le haghaidh Excel, Lena Leabhar Oibre Scoilt fóntais, is féidir leat an leabhar oibre iomlán a roinnt i gcomhaid ar leithligh, agus ansin dul chuig an bhfillteán sonrach chun méid gach comhaid a sheiceáil.
Kutools le haghaidh Excel Cuimsíonn sé níos mó ná 300 uirlis áisiúil Excel. Saor chun triail a dhéanamh gan aon teorannú i 30 lá. Faigh é anois.
Tar éis Kutools a shuiteáil le haghaidh Excel, déan na céimeanna seo a leanas:
1. Oscail an leabhar oibre is mian leat chun méid gach bileog oibre a sheiceáil, agus cliceáil Fiontar > Uirlisí Leabhar Oibre > Leabhar Oibre Scoilt, féach ar an scáileán:
2. Sa an Leabhar Oibre Scoilt dialóg, seiceáil na bileoga oibre go léir agus cliceáil Scoilt cnaipe, agus ansin fillteán a shonrú chun na comhaid nua leabhar oibre a chur. Féach screenshots:
3. Agus ansin sábhálfar gach bileog oibre de do leabhar oibre reatha mar chomhad Excel scartha, is féidir leat dul chuig d’fhillteán ar leith chun méid gach leabhair oibre a sheiceáil.
Chun níos mó eolais a fháil faoin ngné Leabhar Oibre Scoilt seo.
Earraí gaolmhara:
Conas leabhar oibre a roinnt chun comhaid Excel a scaradh in Excel?
Conas bileoga agus bileoga oibre a easpórtáil agus a shábháil mar leabhar oibre nua in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!