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

Jak zkontrolovat velikost každého listu sešitu?

Předpokládejme, že máte velký sešit, který obsahuje více listů, a nyní chcete zjistit velikost každého listu a určit, který list je třeba zmenšit. Existují nějaké rychlé metody řešení tohoto úkolu?

Zkontrolujte velikost každého listu pomocí kódu VBA

Zkontrolujte velikost každého listu pomocí Kutools pro Excel

Karta Office Povolte úpravy a procházení na kartách v Office a vaše práce bude mnohem jednodušší ...
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
  • Znovu použít cokoli: Přidejte do svých oblíbených nejpoužívanější nebo nejsložitější vzorce, grafy a cokoli jiného a rychle je v budoucnu znovu použijte.
  • Více než 20 textových funkcí: Extrahovat číslo z textového řetězce; Extrahovat nebo odebrat část textů; Převádějte čísla a měny na anglická slova.
  • Sloučit nástroje: Více sešitů a listů do jednoho; Sloučit více buněk / řádků / sloupců bez ztráty dat; Sloučit duplicitní řádky a součet.
  • Rozdělené nástroje: Rozdělit data do více listů na základě hodnoty; Jeden sešit pro více souborů Excel, PDF nebo CSV; Jeden sloupec na více sloupců.
  • Vložit přeskakování Skryté / filtrované řádky; Count And Sum podle barvy pozadí; Posílejte hromadně osobní e-maily více příjemcům.
  • Super filtr: Vytvořte pokročilá schémata filtrů a použijte je na jakékoli listy; Typ podle týdne, dne, frekvence a dalších; Filtr tučně, vzorce, komentovat ...
  • Více než 300 výkonných funkcí; Funguje s Office 2007-2019 a 365; Podporuje všechny jazyky; Snadné nasazení ve vašem podniku nebo organizaci.

šipka modrá pravá bublina Zkontrolujte velikost každého listu pomocí kódu VBA


S následujícím kódem VBA můžete rychle získat velikost každého listu v sešitu. Udělejte prosím toto:

1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Zkontrolujte velikost každého listu v sešitu </ 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. Pak stiskněte tlačítko F5 klíč k provedení tohoto kódu a nový list s názvem Kutools pro Excel bude vložen do aktuálního sešitu, který obsahuje každý název listu a velikost souboru, a jednotka je bitová. Viz screenshot:

doc-check-sheet-size1


šipka modrá pravá bublina Zkontrolujte velikost každého listu pomocí Kutools pro Excel

Pokud máte Kutools pro Excel, S jeho Rozdělit sešit můžete rozdělit celý sešit na samostatné soubory a poté přejít do konkrétní složky a zkontrolovat velikost každého souboru.

Kutools pro Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získat nyní.

Po instalaci Kutools pro Excel proveďte následující kroky:

1. Otevřete sešit, který chcete zkontrolovat velikost jednotlivých listů, a klikněte Enterprise > Nástroje sešitu > Rozdělit sešit, viz screenshot:

doc-check-sheet-size1

2. V Rozdělit sešit v dialogovém okně zkontrolujte všechny listy a klikněte na Rozdělit tlačítko a poté určete složku, do které se mají vložit nové soubory sešitu. Zobrazit snímky obrazovky:

doc-check-sheet-size3
-1
doc-check-sheet-size4

3. A pak se každý list vašeho aktuálního sešitu uloží jako samostatný soubor Excel, můžete přejít do konkrétní složky a zkontrolovat velikost každého sešitu.

doc-check-sheet-size1

Další informace o této funkci Split Workbook.


Související články:

Jak rozdělit sešit na samostatné soubory aplikace Excel v aplikaci Excel?

Jak exportovat a ukládat listy a listy jako nový sešit v aplikaci Excel?


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (9)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Velmi nápomocný. Děkuji!!
Tento komentář byl moderátorem webu minimalizován
Děkujeme za poskytnutí úryvku kódu veřejnosti. Je to jedna z nejlepších rutin, které jsem našel. Zde je několik vylepšení: 1) Pokud používáte Option Explicit, přidejte „Dim xIndex as Long“ nahoru. 2) Přidejte toto do smyčky For, abyste mohli pracovat se skrytými listy (jinak dojde k chybě): xWs.Visible = xlSheetVisible 3) Pokud máte celostránkové "grafy", musíte zkopírovat kód pro smyčku a iterovat aplikaci. Kolekce ActiveWorkbook.Charts. Pokud to uděláte, změňte deklaraci xWs z "List" na "Objekt". 4) Pro levný indikátor stavu (nebo pro problémy s laděním) přidejte tento řádek do cyklu For: Debug.Print "Výpočet velikostí listu, list " & xIndex & " z " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Jméno
Tento komentář byl moderátorem webu minimalizován
Hej Bene, mohl bys znovu vložit celý řetězec textu s položkami #2 a #4 z vašeho e-mailu, které byly přidány? Moje znalosti VBA jsou dost omezené a nejsem si jistý, kam přesně je přidat do smyčky For. Můj sešit má řadu skrytých listů a během provádění makra neustále padá. Díky, Bobe
Tento komentář byl moderátorem webu minimalizován
Zde je kopie rutiny s několika vylepšeními, které jsem přidal. Musel jsem to rozdělit na více příspěvků kvůli omezením webu. Public Sub WorksheetSizes() 'Aktualizace 20140526' https://www.extendoffice.com/documents/excel/1682-excel-check-size-of-each-sheet.html<br />' ' BS 4. 4. 2016: Upraveno tak, aby měl stavový řádek a formátoval výstup. ' Opraveno pro skryté listy, které způsobovaly zhroucení. ' Přidána podpora pro listy s grafem Dim xWs As Object ' Pracovní list nebo Graf Dim rng As Range Dim xOutWs As Worksheet Dim xOutFile As String Dim xOutName As String Dim xIndex As Long On Error Přejít na ErrorHandler Application.Cursor = xlmeutToolFile = xlMeutToolFile = ThisWorkbook.Path & "\TempWb.xls" při chybě Obnovit další Application.DisplayAlerts = False Err = 0 Nastavit 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 Debug.Print ThisWorkbook.Path pro každý xWs v Application.ActiveWorkbook.Worksheets If xWs.Name xOutName Then Application.StatusBar = "Výpočet velikostí listu, list " & xIndex & " of " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name Debug.Print "Výpočet W Velikosti orksheets, Sheet " & xIndex & " of " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name DoEvents ' zahrnují toto, aby bylo možné detekovat CTRL+Break. '--- vložit přestávku ---
Tento komentář byl moderátorem webu minimalizován
' Část 2 ze 3 '--- vložit konec --- xWs.Visible = xlSheetVisible ' xOutFile = ThisWorkbook.Path & "\" & xWs.Name & ".xls" xWs.CopyQ 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)) Zabít xOutFile xIndex = xIndex + 1 End If Next ' Opakujte výše uvedené pro listy grafu. Pro každý xWs v Application.ActiveWorkbook.Charts If xWs.Name xOutName Then Application.StatusBar = "Výpočet velikostí listu, list " & xIndex & " z " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name Ladění. Print "Calculating Worksheet Sizes, Sheet " & xIndex & " of " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name DoEvents ' zahrnují toto, aby bylo možné detekovat CTRL+Break. xWs.Visible = xlSheetVisible xOutFile = ThisWorkbook.Path & "\" & xWs.Name & ".xls" xWs.Copy Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook.Close SaveChanges:=False Set rng = xOutWs. ").Offset(xIndex, 1) rng.Resize(0, 1).Value = Array(xWs.Name, VBA.FileLen(xOutFile)) 'Kill xOutFile xIndex = xIndex + 2 End If Next '--- paste break ---
Tento komentář byl moderátorem webu minimalizován
' Část 3 ze 3 '--- paste break --- ' Formátování výstupního listu Application.Sheets(xOutName).Activate Columns("B:B").Select Selection.NumberFormat = "#,##0_);( #,##0)" Columns("A:B").Vyberte Columns("A:B").EntireColumn.AutoFit Range("A1").Vyberte ' Ještě lépe, naformátujte ji jako tabulku. ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B" & xIndex), , xlYes).Name = "Velikost pracovního listu" Application.ScreenUpdating = True Application.Application.DisplayAlerts = True Application.StatusBar = "" Application.Cursor = xlDefault Exit Sub ErrorHandler: MsgBox "Chyba #" & Err.Number & " - " & Err.Description & vbCrLf & "in procedure WorksheetSizes" End Sub
Tento komentář byl moderátorem webu minimalizován
Velmi velmiVeryVeryVelmi užitečné.
Děkuji!!
Tento komentář byl moderátorem webu minimalizován
Děkuji, velmi užitečné,
V listu jsem měl spoustu nepotřebných vzorců a právě jsem smazal, že soubor nyní funguje dobře.
To vše se děje jen proto, že jsem mohl najít velikost každého listu,
Děkuji znovu.

Anson
Tento komentář byl moderátorem webu minimalizován
Pravděpodobně byste to měli přidat mezi řádky 9 a 10 v případě, že jsou některé listy skryté, aby se zabránilo zhroucení kódu
Pro každý xWs v listech: xWs.Visible = True: Další
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění