Érdemes lehet elrejteni az inaktív munkalapokat ezzel a makróval. Az Excel nem teszi lehetővé az összes munkalap elrejtését a munkafüzetben; legalább egyet meg kell jeleníteni. Az aktív lap kivételével azonban az összeset elrejtheti.
A makró itt végigfut a munkalapokon, és az egyes munkalapneveket az aktív lap nevéhez igazítja. Minden alkalommal, amikor a makró ciklusokat hajt végre, elrejti a páratlan munkalapot.
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: Rejtsd el a lapot
ws.Visible = xlSheetHidden
Vége Ha
'5. lépés: Ugrás a következő munkalapra
Következő ws
Vége Sub
Az 1. lépés deklarál egy ws nevű objektumot. Ez a lépés létrehoz egy memóriatárolót minden munkalaphoz, amelyen a makró áthalad.
A 2. lépés megkezdi a hurkot, és felszólítja az Excelt, hogy értékelje ki a munkafüzetben található összes munkalapot. Vegye figyelembe a ThisWorkbook és az ActiveWorkbook közötti különbséget. 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 lapokat más munkafüzetekben rejtsen el, 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.
Ha a lapnevek eltérőek, a makró elrejti a lapot a 4. lépésben.
Az 5. lépésben vissza kell lépnie a következő laphoz. Az összes lap kiértékelése után a makró véget ér.
Vegye figyelembe, hogy az xlsheetHidden-t használja a makróban. Ez a tulajdonság azt az alapértelmezett elrejtési állapotot alkalmazza, amelyet akkor kap, ha jobb gombbal kattint egy lapra, és kiválasztja az Elrejtés parancsot. Ebben az alapértelmezett elrejtési állapotban a felhasználó jobb gombbal rákattinthat bármelyik lapra, és kiválaszthatja az Elrejtés parancsot, amely megjeleníti az összes rejtett lapot. De egy másik rejtési állapot titkosabb, mint az alapértelmezett. Ha az xlSheetVeryHidden funkciót használja a lapok elrejtésére, a felhasználók egyáltalán nem láthatják azokat – még akkor sem, ha jobb gombbal kattintanak egy lapra, és a Felfedés parancsot választják. Az ilyen módon elrejtett munkalap felfedésének egyetlen módja a VBA használata.
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.
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.
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.
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!
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!
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.
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.
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.
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 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!
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.
