Hoe controleer je de grootte van elk werkblad in een werkboek?

Stel dat je een groot werkboek hebt dat meerdere werkbladen bevat, en nu wil je de grootte van elk werkblad weten om te bepalen welk blad verkleind moet worden. Zijn er snelle methoden om deze taak uit te voeren?

Controleer de grootte van elk werkblad met VBA-code

Controleer de grootte van elk werkblad met Kutools voor Excel

Controleer de grootte van elk werkblad met VBA-code

Met de volgende VBA-code kun je snel de grootte van elk werkblad in je werkboek achterhalen. Doe het volgende:

1. Houd de toetsen "ALT" + "F11" ingedrukt, en het venster "Microsoft Visual Basic for Applications" wordt geopend.

2. Klik op "Invoegen" > "Module", en plak de volgende code in het "Modulevenster".

VBA-code: Controleer de grootte van elk werkblad in een werkboek

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. Druk vervolgens op de toets "F5" om deze code uit te voeren, en er wordt een nieuw werkblad met de naam "KutoolsforExcel" ingevoegd in het huidige werkboek, dat de naam van elk werkblad en de bestandsgrootte bevat, waarbij de eenheid Bit is. Zie screenshot:

Controleer de grootte van elk werkblad met Kutools voor Excel

Als je "Kutools voor Excel" hebt, kun je met het hulpprogramma "Werkboek splitsen" het hele werkboek in afzonderlijke bestanden splitsen, en vervolgens naar de specifieke map gaan om de grootte van elk bestand te controleren.

"Kutools voor Excel" bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking gedurende 30 dagen. Download het nu.

Nadat je Kutools voor Excel hebt geïnstalleerd, volg je de volgende stappen:

1. Open het werkboek waarvan je de grootte van elk werkblad wilt controleren, en klik op "Kutools Plus" > "Werkboek" > "Werkboek splitsen."

2. Selecteer in het dialoogvenster "Werkboek splitsen" alle werkbladen en klik op de knop "Splitsen", en specificeer vervolgens een map om de nieuwe werkboekbestanden in op te slaan. Zie screenshots:

3. Elk werkblad van je huidige werkboek wordt opgeslagen als een apart Excel-bestand. Je kunt naar je specifieke map gaan om de grootte van elk werkboek te controleren.

Om meer te weten te komen over deze functie Werkboek splitsen.

Gerelateerde artikelen:

Hoe splits je een werkboek in afzonderlijke Excel-bestanden in Excel?

Hoe exporteer en bewaar je tabbladen en werkbladen als een nieuw werkboek in Excel?