Vannak esetek, amikor nem szeretné, hogy a felhasználó egy adott adat megadása nélkül zárja be az Excel-munkafüzetet. Ilyen helyzetekben hasznos lenne megtagadni a felhasználótól a munkafüzet bezárását mindaddig, amíg a célcella ki nem töltődik (az itt látható módon). Itt jön be ez a remek makró.
Megakadályozza a bezárást, amíg egy adott cellát fel nem töltenek.
Ezt 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. Ez a makró ellenőrzi, hogy a célcella (ebben az esetben a C7 cella) üres-e. Ha üres, a bezárási folyamat megszakad. Ha a C7 nem üres, a munkafüzet mentésre kerül és bezárásra kerül:
Privát almunkafüzet_BeforeClose (Mégse logikai értékként)
1. lépés: Ellenőrizze, hogy a C7 cella üres-e
If Sheets("Lap1").Tartomány("C7").Érték = " Akkor
'2. lépés: Ha a cella üres, törölje a bezárást, és értesítse a felhasználót
Mégse = Igaz
MsgBox "C7 cella nem lehet üres"
'3. lépés: Ha a cella nem üres, mentse el és zárja be
Más
ActiveWorkbook.Close SaveChanges:=Igaz
Vége Ha
Vége Sub
Az 1. lépés ellenőrzi, hogy a C7 üres-e.
Ha a C7 üres, a 2. lépés lép életbe, és megszakítja a bezárási folyamatot a True átadásával a Mégse logikai értéknek. A 2. lépés egy üzenetdobozt is aktivál, amely értesíti a felhasználót a hülyeségéről (hát ez nem annyira durva, tényleg).
A 3. lépésben, ha a C7 cella nem üres, a munkafüzet mentésre kerül és bezárásra kerül.
A makró megvalósításához másolja és illessze be a Workbook_BeforeClose eseménykód ablakba. Ha ide 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.
