En av de mer irriterende tingene i Excel er å lukke mange arbeidsbøker samtidig. For hver arbeidsbok du har åpnet, må du aktivere arbeidet, lukke det og bekrefte lagring av endringer. Excel har ingen enkel måte å lukke dem alle på en gang. Denne lille makroen tar seg av den irritasjonen.
Hvordan makroen fungerer
I denne makroen går Workbooks-samlingen gjennom alle åpnede arbeidsbøker. Når makroen går gjennom hver arbeidsbok, lagrer og lukker den dem:
Sub Makro1()
'Trinn 1: Deklarer variablene dine
Dim wb som arbeidsbok
'Trinn 2: Gå gjennom arbeidsbøker, lagre og lukk
For hver wb i arbeidsbøker
wb.Close SaveChanges:=True
Neste wb
End Sub
Trinn 1 erklærer en objektvariabel som representerer et arbeidsbokobjekt. Dette lar deg telle gjennom alle de åpne arbeidsbøkene, og fange navnene deres mens du går.
Trinn 2 går ganske enkelt gjennom de åpne arbeidsbøkene, lagrer og lukker dem. Hvis du ikke vil lagre dem, endrer du SaveChanges-argumentet fra True til False.
Hvordan bruke makroen
Det beste stedet å lagre denne makroen er i din personlige makroarbeidsbok. På denne måten er makroen alltid tilgjengelig for deg. Den personlige makroarbeidsboken lastes hver gang du starter Excel. I VBE-prosjektvinduet heter det personal.xlsb.
Aktiver Visual Basic Editor ved å trykke Alt+F11.
Høyreklikk personal.xlb i prosjektvinduet.
Velg Sett inn → Modul.
Skriv eller lim inn koden i den nyopprettede modulen.
Hvis du ikke ser personal.xlb i prosjektvinduet ditt, eksisterer det ikke ennå. Du må registrere en makro ved å bruke personlig makroarbeidsbok som destinasjon.
For å registrere makroen i den personlige makroarbeidsboken din, åpne dialogboksen Spill inn makro. I rullegardinlisten Lagre makro i velger du Personal Macro Workbook. Deretter er det bare å ta opp noen få celleklikk og stoppe opptaket. Du kan forkaste den innspilte makroen og erstatte den med denne.