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?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen