Az egyik bosszantóbb dolog az Excelben, hogy egyszerre több munkafüzetet bezár. Minden megnyitott munkafüzetnél aktiválnia kell a munkát, be kell zárnia, és meg kell erősítenie a változtatások mentését. Az Excel nem tudja egyszerűen bezárni őket egyszerre. Ez a kis makró gondoskodik erről a bosszúságról.
Hogyan működik a makró
Ebben a makróban a Munkafüzetek gyűjtemény végigfut az összes megnyitott munkafüzeten. Ahogy a makró végigfut az egyes munkafüzeteken, elmenti és bezárja azokat:
Almakró1()
'1. lépés: Deklarálja a változókat
Dim wb munkafüzetként
'2. lépés: Lapozzon át a munkafüzetekben, mentse és zárja be
Minden wb-hez munkafüzetekben
wb.Close SaveChanges:=Igaz
Következő wb
Vége Sub
Az 1. lépés deklarál egy objektumváltozót, amely egy munkafüzet objektumot képvisel. Ez lehetővé teszi, hogy felsorolja az összes megnyitott munkafüzetet, és menet közben rögzítse a nevüket.
A 2. lépés egyszerűen végigfut a megnyitott munkafüzeteken, elmenti és bezárja azokat. Ha nem szeretné menteni őket, módosítsa a SaveChanges argumentumot True értékről False értékre.
Hogyan kell használni a makrót
A makró tárolására a legjobb hely a személyes makró-munkafüzet. Így a makró mindig elérhető az Ön számára. A személyes makró munkafüzet minden alkalommal betöltődik, amikor elindítja az Excelt. A VBE projekt ablakában a személyes.xlsb neve.
Aktiválja a Visual Basic Editort az Alt+F11 megnyomásával.
Kattintson a jobb gombbal a personal.xlb fájlra a projekt ablakában.
Válassza a Beszúrás → Modul menüpontot.
Írja be vagy illessze be a kódot az újonnan létrehozott modulba.
Ha nem látja a personal.xlb fájlt a projekt ablakában, az még nem létezik. Rögzíthet egy makrót, célhelyként személyes makró-munkafüzetet használva.
A makró személyes makró-munkafüzetébe való rögzítéséhez nyissa meg a Makró rögzítése párbeszédpanelt. A Store Macro In legördülő listában válassza a Személyes makró munkafüzet lehetőséget. Ezután egyszerűen rögzítsen néhány cellakattintást, és állítsa le a felvételt. A rögzített makrót eldobhatja, és ezzel helyettesítheti.