Hvordan kontrolleres størrelsen på hvert regneark i projektmappen?
Antag at du har en stor projektmappe, der indeholder flere regneark, og nu vil du finde ud af størrelsen på hvert regneark for at bestemme, hvilket ark der skal reduceres. Er der nogen hurtige metoder til at håndtere denne opgave?
Kontroller størrelsen på hvert regneark med VBA-kode
Tjek størrelsen på hvert regneark med Kutools til Excel
Kontroller størrelsen på hvert regneark med VBA-kode
Med den følgende VBA-kode kan du hurtigt få størrelsen på hvert regneark i din projektmappe. Gør som dette:
1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Kontroller størrelsen på hvert regneark i en projektmappe </ 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. Tryk derefter på F5 nøgle til at udføre denne kode og et nyt regneark med navnet KutoolsforExcel indsættes i den aktuelle projektmappe, der indeholder hvert regnearksnavn og filstørrelse, og enheden er Bit. Se skærmbillede:
Tjek størrelsen på hvert regneark med Kutools til Excel
Hvis du har Kutools til Excel, Med Opdelt arbejdsbog værktøj, kan du opdele hele projektmappen i separate filer og derefter gå til den specifikke mappe for at kontrollere størrelsen på hver fil.
Kutools til Excel indeholder mere end 300 praktiske Excel-værktøjer. Gratis at prøve uden begrænsning på 30 dage. Få det nu.
Efter installation af Kutools til Excel skal du gøre med følgende trin:
1. Åbn den projektmappe, du vil kontrollere størrelsen på hvert regneark, og klik på Enterprise > Værktøjer til projektmapper > Opdelt arbejdsbog, se skærmbillede:
2. I Opdelt arbejdsbog dialog, skal du kontrollere alle regnearkene og klikke Dele knappen, og angiv derefter en mappe, der skal placere de nye projektmappefiler. Se skærmbilleder:
3. Og så gemmes hvert regneark i din nuværende projektmappe som en separat Excel-fil, du kan gå til din specifikke mappe for at kontrollere størrelsen på hver projektmappe.
For at vide mere om denne Split Workbook-funktion.
Relaterede artikler:
Hvordan opdeles en projektmappe for at adskille Excel-filer i Excel?
Hvordan eksporteres og gemmes ark og regneark som en ny projektmappe i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!