Hoe controleert u de grootte van elk werkblad in een werkmap?
Stel dat u een grote werkmap hebt met meerdere werkbladen en u de grootte van elk werkblad wilt bepalen om te zien welk blad u kunt verkleinen. Zijn er snelle methoden om dit te doen?
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 bepaalt u in een handomdraai de grootte van elk werkblad in uw werkmap. Volg deze stappen:
1. Druk op "ALT" + "F11" om het venster 'Microsoft Visual Basic for Applications' te openen.
2. Klik op 'Invoegen' > 'Module' en plak de volgende code in het modulevenster.
VBA-code: Controleer de grootte van elk werkblad in een werkmap
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. Er wordt dan een nieuw werkblad met de naam „KutoolsforExcel" toegevoegd aan het huidige werkboek, met daarin elke werkbladnaam en bestandsgrootte; de eenheid is bit. Zie onderstaande afbeelding:
Controleer de grootte van elk werkblad met Kutools voor Excel
Met Kutools voor Excel kunt u de functie ‘Werkboek splitsen’ gebruiken om de volledige werkmap te splitsen in afzonderlijke bestanden en vervolgens direct naar de betreffende map gaan om de grootte van elk bestand te controleren.
„Kutools voor Excel" biedt meer dan 300 handige Excel-hulpmiddelen. Probeer het gratis en zonder beperkingen gedurende 30 dagen.Download het nu.
Volg na installatie van Kutools voor Excel de onderstaande stappen:
1. Open de werkmap waarvan u de grootte van elk werkblad wilt controleren en klik op **Kutools Plus** > **Werkmap** > **Werkboek splitsen**.
2. Selecteer in het dialoogvenster 'Werkboek splitsen' alle werkbladen en klik op de knop 'Splitsen'. Geef daarna een map op waarin de nieuwe werkbladbestanden moeten worden opgeslagen. Zie onderstaande afbeeldingen:
 |
 |
 |
3. Vervolgens wordt elk werkblad uit uw huidige werkboek opgeslagen als een afzonderlijk Excel-bestand, zodat u direct naar de betreffende map kunt gaan om de grootte van elke werkmap te controleren.
Meer informatie over de functie ‘Werkboek splitsen’.
Gerelateerde artikelen:
Hoe splitst u een werkmap op in afzonderlijke Excel-bestanden?
Hoe exporteert en slaat u werkbladen op als nieuw werkblad in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins