Hogyan lehet visszaszámlálót beszúrni egy Excel-munkalapba
Önmagában az Excel nem rendelkezik visszaszámláló funkcióval. A Visual Basic for Applications nevű programozási nyelvvel azonban lehetséges egy egyszerű makró írása a visszaszámlálási funkció végrehajtásához. Ez a cikk bemutatja, hogyan hozhat létre olyan makrót, amely lehetővé teszi, hogy az időzítő akár 12 órát is visszaszámláljon, és ez alkalmas a munkalapon belüli időkezelésre.
Az időzítő cella formázása
1. lépés
Egy új, nyitott munkalapon lépjen az A1 cellába. Ez lesz a példa időzítő helye.
2. lépés
Kattintson jobb gombbal az A1 cellára és válassza a Cellák formázása lehetőséget .
3. lépés
Válassza az Idő lehetőséget a Kategória mezőből, és válasszon egyet az óra:perc:másodperc formátumok közül. Kattintson az OK gombra a cellaformátum beállításához.
Makró létrehozása
1. lépés
A Visual Basic szerkesztőablakát az ALT-F11 megnyomásával érheti el . Kattintson a Beszúrás lehetőségre a menüsorban, és kattintson a Modul lehetőségre .
2. lépés
Írja be a következő szöveget a Modul1 ablakba:
Dim gCount As Date
Alidőzítő()
gCount =Most + Időérték("00:00:01")
Application.OnTime gCount, "EndMessage"
Vége Sub
Sub EndMessage()
Dim xRng As Range
Set xRng =Application.ActiveSheet.Range("A1")
xRng.Value =xRng.Value - TimeSerial(0, 0, 1)
Ha xRng.Value <=0 Akkor
MsgBox "A visszaszámlálás befejeződött."
Exit Sub
Vége Ha
Call Timer
Vége Sub
A fenti kódszöveget másolhatja és beillesztheti, vagy soronként beírhatja a Modul1 ablakba. A VBA-szerkesztő szükség szerint alkalmazza a formázást.
3. lépés
Minimalizálja a VBA ablakot a - gombra kattintva szimbólum a jobb felső sarokban. Kattintson a Fájl lehetőségre a szalagon, majd a Mentés másként lehetőséget . Válasszon egy helyet a fájl mentéséhez. A Mentés másként ablakban adjon nevet a munkafüzetnek, és válassza az Excel Makró-engedélyezett munkafüzet (*.xlsm) lehetőséget. a Mentés másként menüből legördülő lista. Kattintson a Mentés gombra és térjen vissza a munkafüzetbe.
Az időzítő használata
1. lépés
Kattintson az A1 cellára és írja be a következőt:0:3:0 , majd nyomja meg az Enter billentyűt . Ezzel 0 óra, 3 perc és 0 másodpercre állítja be az időt.
2. lépés
Kattintson a Nézet lehetőségre fület a szalagon, és kattintson a Makrók lehetőségre . Válassza az Időzítő lehetőséget a Makró listából, és kattintson a Futtatás lehetőségre . Az időzítő cellája elkezdi a visszaszámlálást nulláig, amikor a Visszaszámlálás befejeződött párbeszédablak nyílik meg. Kattintson az OK gombra hogy visszatérjen a munkájához.
Tipp
Nem kell az A1 cellát használni. Helyezze el az időzítőt bárhol, és módosítsa a cellahivatkozást az időzítő kód 8. sorában A1-ről a használt cellára.