Excel-makró az aktív munkalap kivételével az összes törléséhez

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.

Hogyan működik a makró

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.

Excel-makró az aktív munkalap kivételével az összes törléséhez

A figyelmeztető üzenetek megtekintéséhez hagyja ki a DisplayAlerts utasítást.

Hogyan kell használni a makrót

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.

Leave a Comment

Lábjegyzetek és végjegyzetek létrehozása a Word 2013-ban

Lábjegyzetek és végjegyzetek létrehozása a Word 2013-ban

Lábjegyzetek és végjegyzetek létrehozása a Word 2013-ban. Részletes útmutató, hogyan készíthet különféle stílusú jegyzeteket bibliográfiai információkhoz vagy magyarázó megjegyzésekhez.

Hogyan lehet kiemelni a statisztikailag kiugró értékeket az Excelben

Hogyan lehet kiemelni a statisztikailag kiugró értékeket az Excelben

Tudjon meg mindent arról, hogyan lehet az Excelben kiemelni a statisztikailag kiugró értékeket, mégpedig egyszerű eszközökkel és módszerekkel. Kiemelt figyelmet fordítunk a kiugró értékek azonosítására és kezelésére.

Hogyan lehet mintát venni az adatokból Excelben

Hogyan lehet mintát venni az adatokból Excelben

Az Excel Mintavételi eszközével véletlenszerűen kiválaszthat elemeket egy adatkészletből vagy választhat minden n-edik elemet. Ismerje meg, hogyan használhatja ezt a hasznos funkciót az adatelemzéshez!

10 klassz trükk a Microsoft Word 2019 programmal

10 klassz trükk a Microsoft Word 2019 programmal

Fedezze fel a Microsoft Word 2019 legjobb trükkjeit, amelyek segítenek a hatékonyabb munkavégzésben. Tudd meg, hogyan használhatod ki a program funkcióit!

Bekezdések igazítása és behúzása a Word 2019-ben

Bekezdések igazítása és behúzása a Word 2019-ben

A Word 2019-ben a bekezdések igazítása és behúzása kulcsfontosságú a dokumentumok megfelelő megjelenítéséhez. Ismerje meg a formázási lehetőségeket és tippeket a hatékonyabb munkához.

Az Excel 2019 Solver használata

Az Excel 2019 Solver használata

Fedezze fel, hogyan használhatja az Excel 2019 Solver bővítményt a komplex problémák megoldására. A célcella, változócellák és kényszerek beállítása lépésről lépésre.

Dinamikus elemek hozzáadásához használja a Word 2019 mezőit

Dinamikus elemek hozzáadásához használja a Word 2019 mezőit

A Word lehetővé teszi dinamikus elemek hozzáadását a dokumentumhoz. Fedezze fel, hogyan lehet különböző mezőket használni a Word programban a dinamikus tartalom létrehozásához.

Oszloptípusok a SharePoint 2010-ben

Oszloptípusok a SharePoint 2010-ben

A SharePoint 2010 oszlopai az adatok tárolására szolgálnak. Fedezze fel a különböző oszlop típusokat és azok alkalmazását a SharePoint rendszeren belül.

A nem kívánt szöveg eltávolítása a Word 2013-ban

A nem kívánt szöveg eltávolítása a Word 2013-ban

A Word 2013 szövegtörlésének képessége kulcsfontosságú, legyen szó szövegalkotásról vagy törlésről. Ismerje meg a hatékony szövegtörlési módszereket!

Hogyan készítsünk fotóalbumot a PowerPoint 2016-ban

Hogyan készítsünk fotóalbumot a PowerPoint 2016-ban

A fotóalbum funkció a PowerPoint 2016-ban lehetővé teszi, hogy egyszerre több fényképet illesszen be egy prezentációba, megkönnyítve ezzel a többszörös képek kezelését.