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

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

Cluaisín Oifige Cumasaigh Eagarthóireacht agus Brabhsáil Tabbed in Oifig, agus Déan Do Obair i bhfad Níos Éasca ...
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
  • Athúsáid Rud ar bith: Cuir na foirmlí, na cairteacha agus aon rud eile is úsáidí nó is casta le do rogha Favorites, agus athúsáid go tapa iad sa todhchaí.
  • Níos mó ná 20 gné téacs: Uimhir Sliocht as Teaghrán Téacs; Sliocht nó Bain Cuid de Théacsanna; Tiontaigh Uimhreacha agus Airgeadraí go Focail Bhéarla.
  • Cumaisc Uirlisí: Illeabhair Oibre agus Bileoga ina hAon; Cumaisc Ilchealla / Sraitheanna / Colúin Gan Sonraí a Chailleadh; Cumaisc Sraithe Dúblacha agus Suim.
  • Uirlisí Scoilt: Roinn Sonraí i Ilbhileoga Bunaithe ar Luach; Leabhar Oibre amháin le Ilchomhaid Excel, PDF nó CSV; Colún amháin go Colúin Iolracha.
  • Greamaigh gan bacadh Sraitheanna Hidden / Scagtha; Líon agus Suim de réir Dath Cúlra; Seol Ríomhphoist Phearsantaithe chuig Il-Faighteoirí i mBulc.
  • Scagaire Sármhaith: Ardscéimeanna scagaire a chruthú agus a chur i bhfeidhm ar aon bhileoga; Sórtáil de réir seachtaine, lae, minicíochta agus níos mó; scagairí le cló trom, foirmlí, trácht ...
  • Níos mó ná 300 gné chumhachtach; Oibríonn sé le hOifig 2007-2021 agus 365; Tacaíonn sé le gach teanga; Imscaradh éasca i d'fhiontar nó d'eagraíocht.

mboilgeog cheart gorm saighead 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:

doc-seic-bhileog-mhéid1


mboilgeog cheart gorm saighead 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:

doc-seic-bhileog-mhéid1

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:

doc-seic-bhileog-mhéid3
-1
doc-seic-bhileog-mhéid4

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.

doc-seic-bhileog-mhéid1

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?


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (9)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An-chabhrach. Go raibh maith agat!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as an mblúire cód a sholáthar don phobal. Tá sé ar cheann de na gnáthaimh is fearr a fuair mé amach. Seo cúpla tweaks air: 1) Cuir "Dim xIndex as Long" ar an mbarr má tá Rogha Explicit in úsáid agat. 2) Cuir é seo taobh istigh den Chun lúb Chun bileoga i bhfolach a láimhseáil (ar shlí eile tuairteanna sé): xWs.Visible = xlSheetVisible 3) Má tá leathanaigh iomlána "cairt" agat, ní mór duit an cód don lúb a chóipeáil agus a atriall tríd an bhFeidhmchlár. ActiveWorkbook.Charts bailiúchán. Má dhéanann tú é seo, athraigh an dearbhú xWs ó "Bileog" go "Réad". 4) Le haghaidh táscaire stádais saor (nó le haghaidh saincheisteanna dífhabhtaithe) cuir an líne seo taobh istigh den Le haghaidh lúb: Debug.Print "Méideanna Bileog Oibre a Ríomh, Bileog" & xIndex & " de " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Ainm
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hey Ben, An bhféadfá an teaghrán iomlán téacs a athghreamú agus míreanna #2 agus #4 ó do ríomhphost curtha leis? Tá mo chuid eolais VBA teoranta go leor agus níl mé cinnte go díreach cén áit ar féidir iad a chur isteach sa lúb For. Tá roinnt bileoga i bhfolach ag mo leabhar oibre agus coinníonn sé tuairteála le linn an macra a fhorghníomhú. Go raibh maith agat, Bob
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Seo cóip den ghnáthamh le cúpla feabhsúchán a chuir mé leis. Bhí orm é a bhriseadh ina phoist iolracha mar gheall ar na teorainneacha suímh. Méideanna Fo-Bileog Oibre Poiblí() 'Nuashonraigh 20140526' https://www.extendoffice.com/documents/excel/1682-excel-check-size-of-each-sheet.html<br />'' BS 4/4/2016: Athraithe chun barra stádais a bheith ann agus an t-aschur a fhormáidiú. ' Seasta do leatháin i bhfolach ba chúis leis tuairteála. ' Tacaíocht bhreise le haghaidh bileoga Cairte Dim xWs As Object ' Bileog Oibre nó Cairt Dim rng Mar Raon Dim xOutWs Mar Bhileog Oibre Dim xOutFile Mar Teaghrán Dim xOutName As Teaghrán Dim xIndex Chomh fada Ar Aghaidh Earráid GoTo ErrorHandler Application.Cursor = xlWait xOutName = "KutoolsforFexcel" ThisWorkbook.Path & " \ TempWb.xls " Ar Earráid Athshocraigh An Chéad Iarratas Eile.DisplayAlerts = Earráid Bréagach = 0 Socraigh xOutWs = Application.Worksheets(xOutName) Má Earráid = 0 Ansin xOutWs.Delete Err = 0 Críochnaigh Más Le Application.ActiveWorkbook.Worksheets .Add(Roimh:=Iarratais.Bileoga Oibre(1)).Name = xOutName .Range("A1").Athraigh(1, 2).Value = Eagra("Ainm na mBileog Oibre", "Méid") Críoch Le Socraigh xOutWs = Application.Worksheets(xOutName) Application.ScreenUpdating = Bréagach xIndex = 1 Debug.Print ThisWorkbook.Path For Every xWs In Application.ActiveWorkbook.Worksheets If xWs.Name xOutName Then Application.StatusBar = "Méideanna na mBileog Oibre á Ríomh, Bileog" &xIndex &" de " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name Debug.Print " Ríomh W Méideanna bileoga oibre, Bileog " & xIndex & " de " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name DoEvents ' é seo san áireamh ionas gur féidir CTRL+Break a bhrath. '--- sos greamaigh ---
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
' Cuid 2 de 3 ' --- briseadh greamaigh --- xWs.Visible = xlSheetVisible ' xOutFile = ThisWorkbook.Path & "\" & xWs.Name & ".xls" xWs.CopyQ Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook .Close SaveChanges:=Socraigh Bréagach rng = xOutWs.Range("A1").Offset(xIndex, 0) rng.Resize(1, 2).Value = Eagarth(xWs.Name, VBA.FileLen(xOutFile)) Maraigh xOutFile xIndex = xIndex + 1 Deireadh Más Ar Aghaidh ' Déan an méid thuas le haghaidh leathán cairte. Do Gach xWs In Application.ActiveWorkbook.Charts If xWs.Name xOutName Then Application.StatusBar = "Méideanna Bileog Oibre á Ríomh, Bileog" & xIndex & " de " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name Debug. Priontáil "Méideanna na mBileog Oibre a Ríomh, Bileoga" & xIndex & " de " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name Áiríonn DoEvents ' é seo ionas gur féidir CTRL+Break a bhrath. xWs.Visible = xlSheetVisible xOutFile = ThisWorkbook.Path & "\" &xWs.Name & ".xls" xWs.Copy Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook.Close SaveChanges:=Socraigh Bréagach rng = xOutWs.Range(" ").Fritháireamh(xIndex, 1) rng.Resize(0, 1).Value = Array(xWs.Name, VBA.FileLen(xOutFile)) 'Maraigh xOutFile xIndex = xIndex + 2 Deireadh Má Ar Aghaidh '--- sos greamaigh ---
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
' Cuid 3 de 3 ' --- sos greamaigh --- ' Formáid an leathán aschuir Application.Sheets(xOutName). Gníomhachtaigh Colúin("B:B").Select Selection.NumberFormat = "#,##0_);( #,##0)" Colúin("A:B").Roghnaigh Colúin("A:B").EntireColumn.AutoFit Range("A1").Roghnaigh 'Níos fearr fós, formáid mar thábla é. ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B" & xIndex), , xlYes).Name = "Méideanna na mBileog Oibre" Application.ScreenUpdating = Fíor Iarratas.Application.DisplayAlerts = Fíor-Fheidhmchlár.StatusBar = " Application.Cursor = " xlDefault Exit Fo EarráidHandler: MsgBox "Earráid #" &Err.Number & " - " &Err.Description & vbCrLf &" in procedure WorksheetSizes" Críoch Fo
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An-An-An-Úsáideach.
Go raibh maith agat!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat, an-chabhrach,
Bhí dornán foirmlí neamhriachtanacha agam i mbileog agus scrios mé go n-oibríonn an comhad go breá anois.
Tarlaíonn siad seo go léir toisc go raibh mé in ann méid gach bileoige a fháil,
Go raibh maith agat arís.

a mhalairt
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba chóir é seo a chur dócha idir línte 9 agus 10 i gcás roinnt bileoga i bhfolach a sheachaint ar an cód crashing
Do Gach xW i mBileoga: xWs.Visible = Fíor: Ar Aghaidh
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL