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

Hogyan ellenőrizhető a munkafüzet egyes munkalapjainak mérete?

Tegyük fel, hogy van egy nagy munkafüzete, amely több munkalapot tartalmaz, és most meg szeretné tudni az egyes munkalapok méretét, hogy meghatározza, melyik lapot kell csökkenteni. Vannak-e gyors módszerek ennek a feladatnak a kezelésére?

Ellenőrizze az egyes munkalapok méretét VBA kóddal

Ellenőrizze az egyes munkalapok méretét a Kutools for Excel alkalmazással

Az Office fül lehetővé teszi a füles szerkesztést és böngészést az Office-ban, és sokkal könnyebbé teszi a munkáját ...
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
  • Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
  • Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
  • Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
  • Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
  • Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
  • Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
  • Több mint 300 hatékony funkció; Működik az Office 2007-2021 és 365 verziókkal; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy szervezetben.

nyíl kék jobb buborék Ellenőrizze az egyes munkalapok méretét VBA kóddal

A következő VBA-kóddal gyorsan megszerezheti az egyes munkalapok méretét a munkafüzetében. Kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: Ellenőrizze az egyes munkalapok méretét egy munkafüzetben </ 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. Ezután nyomja meg a gombot F5 gombot a kód végrehajtásához, és egy új munkalapot KutoolsforExcel beillesztésre kerül az aktuális munkafüzetbe, amely tartalmazza az egyes munkalapok nevét és fájlméretét, és az egység Bit. Lásd a képernyőképet:

doc-check-sheet-size1


nyíl kék jobb buborék Ellenőrizze az egyes munkalapok méretét a Kutools for Excel alkalmazással

Ha van Kutools az Excel számára, Annak Felosztott munkafüzet segédprogram segítségével az egész munkafüzetet külön fájlokra oszthatja, majd az adott mappába lépve ellenőrizheti az egyes fájlok méretét.

Kutools az Excel számára több mint 300 praktikus Excel eszközt tartalmaz. 30 nap alatt szabadon kipróbálható korlátozás nélkül. Szerezd meg most.

A Kutools for Excel telepítése után tegye a következőket:

1. Nyissa meg a munkafüzetet, amelyen ellenőrizni szeretné az egyes munkalapok méretét, majd kattintson a gombra Vállalkozás > Munkafüzet-eszközök > Felosztott munkafüzet, lásd a képernyőképet:

doc-check-sheet-size1

2. Az Felosztott munkafüzet párbeszédpanelen ellenőrizze az összes munkalapot, és kattintson a gombra Hasított gombra, majd adjon meg egy mappát az új munkafüzet fájlok elhelyezéséhez. Képernyőképek megtekintése:

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

3. Ezután az aktuális munkafüzet minden munkalapját külön Excel fájlként menti a rendszer. Léphet a saját mappájába, hogy ellenőrizze az egyes munkafüzetek méretét.

doc-check-sheet-size1

Ha többet szeretne megtudni erről a Split Workbook szolgáltatásról.


Kapcsolódó cikkek:

Hogyan lehet felosztani egy munkafüzetet az Excel fájlok szétválasztására az Excelben?

Hogyan exportálhat és menthet új munkalapokat a munkalapokhoz és munkalapokhoz az Excelben?


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (9)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon hasznos. Köszönöm!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönjük, hogy nyilvánosságra hozta a kódrészletet. Ez az egyik legjobb rutin, amit találtam. Íme néhány finomítás: 1) Adja hozzá a „Dim xIndex as Long” szót a tetejére, ha az Explicit opciót használja. 2) Adja hozzá ezt a For cikluson belül a rejtett lapok kezeléséhez (ellenkező esetben összeomlik): xWs.Visible = xlSheetVisible 3) Ha teljes oldalas "diagram" lapjai vannak, ki kell másolnia a ciklus kódját, és ismételnie kell az alkalmazáson. ActiveWorkbook.Charts gyűjtemény. Ha ezt teszi, módosítsa az xWs deklarációját "Lap"-ról "Object"-re. 4 xWs.Name
A weboldal moderátora ezt a megjegyzést minimalizálta
Hé, Ben! Újra be tudnád illeszteni a teljes szövegsort az e-mailed 2. és 4. elemével? Az ÉN VBA ismereteim meglehetősen korlátozottak, és nem tudom pontosan, hogy hova vegyem fel őket a For ciklushoz. A munkafüzetemben számos rejtett munkalap található, és a makró végrehajtása közben folyamatosan összeomlik. Köszönöm, Bob
A weboldal moderátora ezt a megjegyzést minimalizálta
Íme a rutin másolata néhány általam hozzáadott fejlesztéssel. Több posztra kellett bontanom az oldal korlátai miatt. Nyilvános almunkalapméretek() 'Frissítés 20140526' https://www.extendoffice.com/documents/excel/1682-excel-check-size-of-each-sheet.html<br />' ' BS 4/4/2016: Módosítva, hogy legyen állapotsor és formázza a kimenetet. Javítva a rejtett lapok esetében, amelyek miatt összeomlott. ' Támogatás hozzáadva a diagramlapokhoz Dim xWs As Object ' Munkalap vagy Chart Dim rng As Range Dim xOutWs As Worksheet Dim xOutFile As String Dim xOutName As String Dim xIndex As Long On Error xTo ErrorHandler Application. ThisWorkbook.Path & "\TempWb.xls" hiba esetén Folytatás a következő alkalmazással.DisplayAlerts = False Err = 0 Set xOutWs = Application.Worksheets(xOutName) If Err = 0 Akkor xOutWs.Delete Err = 0 Vége, ha Application.Worksheets.ActiveWorks .Add(Before:=Application.Worksheets(1)) .Name = xOutName .Range("A1").Resize(1, 2).Value = Array("Munkalap neve", "Méret") Vége: xOutWs = set Application.Worksheets(xOutName) Application.ScreenUpdating = Hamis xIndex = 1 Debug.Print ThisWorkbook.Path Minden xW-hez az Application.ActiveWorkbook.Worksheets If xWs.Name xOutName Then Application.StatusBar = "Munkalap "xIndex méretének kiszámítása, &Index of " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name Debug.Print "Calculating W Az orksheet méretek, a " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name DoEvents ' " & xIndex & " lapja tartalmazza ezt, így a CTRL+Break észlelhető. '--- beillesztési szünet ---
A weboldal moderátora ezt a megjegyzést minimalizálta
' 2/3. rész '--- beillesztési szünet --- xWs.Visible = xlSheetVisible ' xOutFile = ThisWorkbook.Path & "\" & xWs.Name & ".xls" xWs.CopyQ Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWor .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 ' Ismételje meg a fentieket a diagramlapoknál. Minden xW-hez Application.ActiveWorkbook.Charts If xWs.Name xOutName Then Application.StatusBar = "Munkalapméretek kiszámítása, " & ActiveWorkbook.Worksheets.count" lap " & xIndex & " - 1 & " - " & xWs.Name hibakeresés. Nyomtassa ki a "Munkalapméretek kiszámítása, lap " & xIndex & " of " & ActiveWorkbook.Worksheets.count - 1 & " - " & xWs.Name DoEvents ' része ezt, így a CTRL+Break észlelhető. xWs.Visible = xlSheetVisible xOutFile = ThisWorkbook.Path & "\" & xWs.Name & ".xls" xWs.Alkalmazás másolása.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook.Close SaveChanges:=FalseO SetW"r.1. ").Offset(xIndex, 0) rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile)) 'Kill xOutFile xIndex = xIndex + 1 End If Next '--- beillesztési szünet ---
A weboldal moderátora ezt a megjegyzést minimalizálta
' Part 3 of 3 '--- paste break --- ' Formázza meg a kimeneti lapot Application.Sheets(xOutName).Activate Columns("B:B").Select Selection.NumberFormat = "#,##0_);( #,##0)" Columns("A:B").Select Columns("A:B").EntireColumn.AutoFit Range("A1").Válassza a ' Még jobb, ha táblázatként formázza. ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B" & xIndex), , xlYes).Name = "WorksheetSizes" Application.ScreenUpdating = True Application.Application.DisplayAlerts = True Application.StatusBar = "" Application.Cursor = xlDefault Exit Sub ErrorHandler: MsgBox "Error #" & Err.Number & " - " & Err.Description & vbCrLf & "in process WorksheetSizes" End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon Nagyon NagyonNagyon Nagyon hasznos.
Köszönöm!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm, nagyon segítőkész
Egy csomó felesleges képlet volt egy lapon, és csak töröltem, hogy a fájl most jól működik.
Mindez csak azért történik, mert megtaláltam az egyes lapok méretét,
Köszi mégegyszer.

Anson
A weboldal moderátora ezt a megjegyzést minimalizálta
Valószínűleg hozzá kell adni ezt a 9. és 10. sor közé, ha néhány lap el van rejtve, hogy elkerülje a kód összeomlását
Minden xWs In Sheets esetén: xWs.Visible = True: Next
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi