Hogyan lehet visszaszámlálót beszúrni egy Excel munkalapba

Egy új, nyitott munkalapon lépjen az A1 cellába. Ez lesz a példa időzítő helye.

Kattintson jobb gombbal a cellára A1 és válassza ki Cellák formázása.

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.

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.

Í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.

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.

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.

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