Időnként előfordulhat, hogy az összes aktív munkalapot törölni szeretné egy Excel-munkafüzetben. Ilyen helyzetekben használhatja a következő makrót.
A makró itt végigfut a munkalapokon, és minden munkalap nevét az aktív lap nevéhez illeszti. Minden alkalommal, amikor a makró ciklusokat hajt végre, törli a páratlan munkalapot. Vegye figyelembe a DisplayAlerts tulajdonság használatát a 4. lépésben. Ez hatékonyan kikapcsolja az Excel figyelmeztetéseit, így nem kell minden egyes törlést megerősítenie.
Almakró1()
'1. lépés: Deklarálja a változókat
Dim ws munkalapként
'2. lépés: Kezdje el végigfutni az összes munkalapot
For Every Ws In ThisWorkbook.Worksheets
'3. lépés: Ellenőrizze az egyes munkalapok nevét
Ha ws.Name <> ThisWorkbook.ActiveSheet.Name Akkor
'4. lépés: Kapcsolja ki a figyelmeztetéseket, és törölje
Application.DisplayAlerts = Hamis
ws.Delete
Application.DisplayAlerts = Igaz
Vége Ha
'5. lépés: Ugrás a következő munkalapra
Következő ws
Vége Sub
A makró először egy ws nevű objektumot deklarál. Ez a lépés egy memóriatárolót hoz létre minden egyes munkalaphoz, amelyen áthalad.
A 2. lépésben a makró ciklusba kezd, és közli az Excellel, hogy kiértékeli a munkafüzetben található összes munkalapot. Különbség van a ThisWorkbook és az ActiveWorkbook között. A ThisWorkBook objektum a kódot tartalmazó munkafüzetre hivatkozik. Az ActiveWorkBook objektum az éppen aktív munkafüzetre hivatkozik. Gyakran ugyanazt az objektumot adják vissza, de ha a kódot futtató munkafüzet nem az aktív munkafüzet, akkor különböző objektumokat adnak vissza. Ebben az esetben nem akarja megkockáztatni, hogy más munkafüzetekben lapokat töröljön, ezért használja a ThisWorkBook-ot.
A 3. lépésben a makró egyszerűen összehasonlítja az aktív lap nevét az éppen hurkolt lappal.
A 4. lépésben, ha a lapnevek eltérnek, a makró törli a lapot. Amint már említettük, a DisplayAlerts segítségével letilthatja az Excelből származó megerősítési ellenőrzéseket. Ha figyelmeztetést szeretne kapni a lapok törlése előtt, akkor kihagyhatja az Alkalmazást. DisplayAlerts = False. A DisplayAlerts utasítás elhagyása biztosítja, hogy megkapja az üzenetet, ami lehetővé teszi, hogy kilépjen a munkalapok törlésére vonatkozó döntésből.
Az 5. lépésben a makró visszatér a következő laphoz. Az összes lap kiértékelése után a makró véget ér.
A figyelmeztető üzenetek megtekintéséhez hagyja ki a DisplayAlerts utasítást.
A makró megvalósításához másolja és illessze be egy szabványos modulba:
Aktiválja a Visual Basic Editort az Alt+F11 megnyomásával.
Kattintson a jobb gombbal a projekt/munkafüzet nevére 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 a ThisWorkbookot használja az ActiveWorkbook helyett egy makróban, akkor a makrót nem tudja futtatni a személyes makró-munkafüzetből. Miért? Mivel a ThisWorkbook a személyes makró-munkafüzetre vonatkozik, nem arra a munkafüzetre, amelyre a makrót alkalmazni kell.
Hogyan lehet megakadályozni, hogy a Microsoft Word csak olvasható módban nyissa meg a fájlokat Windowson A Microsoft Word csak olvasható módban nyitja meg a fájlokat, így lehetetlenné teszi a szerkesztést? Ne aggódjon, a módszerek az alábbiakban találhatók
A nem megfelelő Microsoft Word dokumentumok nyomtatásának hibáinak kijavítása Meglehetősen gyakoriak a megváltozott betűtípusú, rendetlen bekezdésekkel, hiányzó szöveggel vagy elveszett tartalommal rendelkező Word dokumentumok nyomtatásának hibái. Azonban ne
Ha prezentáció közben a tollat vagy a kiemelőt használta a PowerPoint diákra való rajzoláshoz, mentheti a rajzokat a következő bemutatóhoz, vagy törölheti őket, így a következő bemutatáskor tiszta PowerPoint diákkal kezdheti. Kövesse az alábbi utasításokat a toll- és kiemelőrajzok törléséhez: A vonalak törlése egyenként […]
A Stíluskönyvtár CSS-fájlokat, XSL-fájlokat, valamint előre meghatározott mesteroldalak, oldalelrendezések és vezérlők által használt képeket tartalmaz a SharePoint 2010-ben. A CSS-fájlok megkereséséhez a közzétételi webhely stíluskönyvtárában: Válassza a Webhelyműveletek→Nézet lehetőséget. A webhely összes tartalma. Megjelenik az oldal tartalma. A Style könyvtár a […]
Ne árassza el közönségét óriási számokkal. A Microsoft Excelben javíthatja irányítópultjai és jelentései olvashatóságát, ha a számokat több ezerben vagy millióban formázza.
Ismerje meg, hogyan használhatja a SharePoints közösségi hálózati eszközöket, amelyek lehetővé teszik az egyének és csoportok közötti kommunikációt, együttműködést, megosztást és kapcsolódást.
A Julian-dátumokat gyártási környezetekben gyakran használják időbélyegként és gyors hivatkozásként a tételszámhoz. Az ilyen típusú dátumkódolás lehetővé teszi a kiskereskedők, fogyasztók és szervizek számára, hogy azonosítsák a termék elkészítésének időpontját, és ezáltal a termék korát. A Julian-dátumot a programozásban, a katonaságban és a csillagászatban is használják. Különböző […]
Létrehozhat webalkalmazást az Access 2016-ban. Tehát mi az a webalkalmazás? Nos, a web azt jelenti, hogy online van, az alkalmazás pedig az „alkalmazás” rövidítése. Az egyéni webalkalmazás egy online adatbázis-alkalmazás, amely a felhőből, böngészővel érhető el. Ön elkészíti és karbantartja a webalkalmazást az asztali verzióban […]
A SharePoint 2010 legtöbb oldala a navigációs hivatkozások listáját jeleníti meg az oldal bal oldalán található Gyorsindító sávon. A Gyorsindító sáv hivatkozásokat jelenít meg a kiemelt webhelytartalomra, például listákra, könyvtárakra, webhelyekre és közzétételi oldalakra. A Gyorsindító sáv két nagyon fontos hivatkozást tartalmaz: Az összes webhelytartalom linkje: A […]
Egyszerű problémák esetén az Excelben található Megoldó rendszerint gyorsan megtalálja a célfüggvény optimális Megoldóváltozó-értékeit. Bizonyos esetekben azonban a Solver nehezen találja meg a Solver változó értékeit, amelyek optimalizálják a célfüggvényt. Ezekben az esetekben a Solver általában egy üzenetet vagy hibaüzenetet jelenít meg, amely leírja vagy megvitatja a […]
