Önmagában az Excel nem rendelkezik visszaszámláló funkcióval. nevű programozási nyelvvel azonban Visual Basic alkalmazásokhoz, 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 egy munkalapon belüli időkezelésre.
Formázza meg az időzítő cellát
1. lépés
Egy új, nyitott munkalapon lépjen az A1 cellába. Ez lesz a példa időzítő helye.
A nap videója
2. lépés
![A cellaformátum elérése](/f/a341e8bf80b085cdb67ada1c887e3153.png)
Kép jóváírása: A kép a Microsoft jóvoltából
Kattintson jobb gombbal a cellára A1 és válassza ki Cellák formázása.
3. lépés
![Óra percmásodperc formátum kiválasztása.](/f/3c70031f308a701ab17c713a0d8b1514.png)
Kép jóváírása: A kép a Microsoft jóvoltából
Válassza ki Idő a Kategória mezőből, és válasszon egyet az óra: perc: másodperc formátumok közül. Kattintson rendben a cellaformátum beállításához.
Hozd létre a makrót
1. lépés
![VBA modul megnyitása.](/f/58a40c1987a08c2a32df3edf5c485972.png)
Kép jóváírása: A kép a Microsoft jóvoltából
Nyissa meg a Visual Basic szerkesztőablakát a gomb megnyomásával ALT-F11. Kattintson Beszúrás a menüsorból, és kattintson Modul.
2. lépés
![VBA kód beírása](/f/9de6aa51a24a40f6a93e8d1b57a737b8.png)
Kép jóváírása: A kép a Microsoft jóvoltából
Í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")
Alkalmazás. OnTime gCount, "EndMessage"
Vége Sub
Sub EndMessage()
Dim xRng As Range
Állítsa be az xRng = Alkalmazást. ActiveSheet. Tartomány ("A1")
xRng. Érték = xRng. Érték – TimeSerial (0, 0, 1)
Ha xRng. Érték <= 0 Akkor
MsgBox "A visszaszámlálás befejeződött."
Exit Sub
Vége Ha
Call Timer
Vége Sub
tudsz másolás és beillesztés a fenti kódszöveget, vagy beírhatja soronként a Modul1 ablakba. A VBA-szerkesztő szükség szerint alkalmazza a formázást.
3. lépés
![Mentés makróképes munkafüzetként](/f/b81c143345125e3ef781f7f186c9ddb8.png)
Kép jóváírása: A kép a Microsoft jóvoltából
Minimalizálja a VBA ablakot a gombra kattintva - szimbólum a jobb felső sarokban. Kattintson Fájl a szalagon és Mentés másként. 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 ki Excel-makró-kompatibilis munkafüzet (*.xlsm) tól Mentés típusként legördülő lista. Kattintson Megment és térjen vissza a munkafüzethez.
Az időzítő használata
1. lépés
Kattintson a cellára A1 és lépj be 0:3:0, majd nyomja meg Belép. Ezzel 0 óra, 3 perc és 0 másodpercre állítja be az időt.
2. lépés
Kattints a Kilátás fület a szalagon, és kattintson Makrók. Válassza ki Időzítő a Makró listából, és kattintson a gombra Fuss. Az időzítő cellája elkezdi a visszaszámlálást nulláig, amikor a Visszaszámlálás kész párbeszédablak nyílik meg. Kattintson rendben 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 az időzítő kód 8. sorában a cellahivatkozást A1-ről a használt cellára.