Skrive ut merkede regneark

October 27  by Eliza

Hvis du har mye av arbeidsbøker som har akkumulert gjennom årene, kan du ha behov for å skrive ut noen av regnearkene ut av hver av dem. For eksempel kan du ha en mappe som inneholder en arbeidsbok for hver av selskapets divisjoner for foregående tiåret. Hvis bedriften har åtte divisjoner, betyr at du har 80 arbeidsbøker i mappen. Nå, hvis du trenger å skrive ut de andre kvartal og tredje kvartal tall (fra andre og tredje regneark ut av hver arbeidsbok), begynner du å se problemet. Legge hver arbeidsbok og deretter utskrift valgt ark kunne ta en enorm mengde tid.

En raskere måte er å lage en makro som vil gjøre utskrift for deg. Følgende makro starter ved å spørre deg for en katalogbane. Forutsatt at du oppgir en bane, deretter starter makroen å laste hver XLS (Excel-fil) i katalogen, og deretter skrive ut den andre og tredje regneark fra hver enkelt. Når det er skrevet, er regnearket stengt.

Public Sub PrintWorkbooks ()
Dim sCurFile As String
Dim Späth As String

'Få banen
Späth = InputBox ("Starte banen?", "PrintWorkbooks")
Hvis Späth <> "" Then
On Error Resume Next
Application.ScreenUpdating = False
Hvis Høyre (Späth, 1) <> "\" Da
Späth = Späth & "\"
End If
sCurFile = Dir (Späth & "* .xls", vbNormal)
Gjør Mens Len (sCurFile) <> 0
Workbooks.Open Späth & sCurFile, True
Med arbeidsbøker (sCurFile)
.Worksheets (2) .PrintOut
.Worksheets (3) .PrintOut
.close Savechanges: = False
Avslutt med
sCurFile = Dir
DoEvents
Loop
Application.ScreenUpdating = True
On Error GoTo 0
End If
End Sub

Selvfølgelig, hvis du har ganske mange arbeidsbøker i katalogen, kan utskriften ta ganske lang tid. Det kan være lurt å finne litt tid når du ikke har noe annet å gjøre, og så bare la den makro start kjører.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (2215) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Utskrift Valgt regneark.