Az itt bemutatott makró kiváló módja annak, hogy megvédje a felhasználókat attól, hogy a mentés előtt véletlenül bezárják a fájlt. Ez a makró megvalósítása esetén biztosítja, hogy az Excel automatikusan elmentse a munkafüzetet a bezárás előtt.
Az Excel általában figyelmezteti azokat a felhasználókat, akik nem mentett munkafüzetet próbálnak bezárni, és lehetőséget adnak a mentésre a bezárás előtt. Sok felhasználó azonban túlszárnyalhatja a figyelmeztetést, és véletlenül a Nem gombra kattint, és felszólítja az Excelt, hogy mentés nélkül zárja be. Ezzel a makróval úgy védekezhet ez ellen, hogy bezárás előtt automatikusan menti.
A kódot a munkafüzet BeforeClose eseménye váltja ki. Amikor megpróbálja bezárni a munkafüzetet, ez az esemény aktiválódik, és lefut a benne lévő kód. A kód lényege egyszerű – megkérdezi a felhasználókat, hogy be akarják-e zárni a munkafüzetet. A makró ezután kiértékeli, hogy a felhasználó az OK-ra vagy a Mégse gombra kattintott-e.
A munkafüzet bezárásakor megjelenő üzenet.
Az értékelés Select Case utasítással történik. A Select Case utasítás az If-Then-Else utasítás alternatívája, amely lehetővé teszi a makrók állapotellenőrzését. A Select Case utasítás alapvető felépítése egyszerű:
Válassza a Case lehetőséget
Az eset =
Case Is=
Case Is=
Vége kiválasztása
A Select Case utasítással számos feltételes ellenőrzést végezhet. Ebben az esetben egyszerűen csak az OK vagy a Mégse lehetőséget kell bejelölnie. Vessen egy pillantást a kódra:
Privát almunkafüzet_BeforeClose (Mégse logikai értékként)
'1. lépés: Aktiválja az üzenetmezőt, és indítsa el az ellenőrzést
Select Case MsgBox ("Mentés és bezárás?", vbOKCancel)
'2. lépés: Megnyomta a Mégse gombot, tehát törölje a zárást
Case Is = vbCancel
Mégse = Igaz
'3. lépés: Az OK gomb megnyomva, mentse el a munkafüzetet, és zárja be
Case Is = vbOK
ActiveWorkbook.Save
'4. lépés: Zárja be a Select Case nyilatkozatot
Vége kiválasztása
Vége Sub
Az 1. lépésben aktiválja az üzenetmezőt a Select Case utasítás feltétel-ellenőrzőjeként. A vbOKCancel argumentum használatával biztosíthatja, hogy az OK és a Mégse gombok választásként jelenjenek meg.
A 2. lépésben, ha a felhasználó a Mégse gombra kattintott az üzenetmezőben, a makró azt mondja az Excelnek, hogy törölje a Workbook_Close eseményt a True átadásával a Mégse logikai értéknek.
Ha a felhasználó az OK gombra kattintott az üzenetmezőben, a 3. lépés lép életbe. Itt meg kell mondani az Excelnek, hogy mentse a munkafüzetet. És mivel a Boolean törlése nem igazra állította, az Excel a bezárással folytatja.
A 4. lépésben egyszerűen be kell zárnia a Select Case utasítást. Valahányszor példányosít egy Select Case-t, le kell zárnia egy megfelelő End Select-szel.
A makró megvalósításához másolja és illessze be a Workbook_BeforeClose eseménykód ablakba. Ha oda helyezi a makrót, akkor minden alkalommal lefut, amikor megpróbálja bezárni a munkafüzetet:
Aktiválja a Visual Basic Editort az Alt+F11 megnyomásával.
A projekt ablakban keresse meg a projekt/munkafüzet nevét, és kattintson a mellette lévő pluszjelre az összes lap megtekintéséhez.
Kattintson erre a munkafüzetre.
Az Esemény legördülő listában válassza ki a BeforeClose eseményt.
Írja be vagy illessze be a kódot az újonnan létrehozott modulba.
Írja be a kódot a Workbook BeforeClose eseménybe.
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.
