En av de mer irriterande sakerna i Excel är att stänga många arbetsböcker på en gång. För varje arbetsbok du har öppnat måste du aktivera arbetet, stänga det och bekräfta att ändringarna har sparats. Excel har inget enkelt sätt att stänga dem alla på en gång. Det här lilla makrot tar hand om det irriterandet.
Hur makrot fungerar
I det här makrot går samlingen Arbetsböcker genom alla öppnade arbetsböcker. När makrot går igenom varje arbetsbok sparas och stänger det ner dem:
Sub Macro1()
'Steg 1: Deklarera dina variabler
Dim wb som arbetsbok
'Steg 2: Gå igenom arbetsböcker, spara och stäng
För varje wb i arbetsböcker
wb.Close SaveChanges:=True
Nästa wb
Avsluta Sub
Steg 1 deklarerar en objektvariabel som representerar ett arbetsboksobjekt. Detta gör att du kan räkna upp alla öppna arbetsböcker och fånga deras namn allt eftersom.
Steg 2 går helt enkelt igenom de öppna arbetsböckerna, sparar och stänger dem. Om du inte vill spara dem, ändra argumentet SaveChanges från True till False.
Hur man använder makrot
Det bästa stället att lagra detta makro är i din personliga makroarbetsbok. På så sätt är makrot alltid tillgängligt för dig. Den personliga makroarbetsboken laddas när du startar Excel. I VBE-projektfönstret heter det personal.xlsb.
Aktivera Visual Basic Editor genom att trycka på Alt+F11.
Högerklicka på personal.xlb i projektfönstret.
Välj Infoga → Modul.
Skriv eller klistra in koden i den nyskapade modulen.
Om du inte ser personal.xlb i ditt projektfönster finns det inte ännu. Du kommer att spela in ett makro med den personliga makroarbetsboken som destination.
För att spela in makrot i din personliga makroarbetsbok, öppna dialogrutan Spela in makro. I listrutan Lagra makro i, välj Personal Macro Workbook. Spela sedan in några cellklick och sluta spela in. Du kan kassera det inspelade makrot och ersätta det med det här.