Kako vstaviti odštevalnik v Excelov delovni list

Na novem odprtem delovnem listu se pomaknite do celice A1. To bo lokacija primernega časovnika.

Z desno tipko miške kliknite celico A1 in izberite Oblikujte celice.

Izberite Čas v polju Kategorija in izberite enega od formatov ure: minute: sekunde. Kliknite v redu da nastavite obliko celice.

Do okna za urejanje Visual Basica odprite tako, da pritisnete ALT-F11. Kliknite Vstavi iz menijske vrstice in kliknite Modul.

V okno Module1 vnesite naslednje besedilo:

Dim gCount As Date
Subtimer()
gCount = Zdaj + TimeValue ("00:00:01")
Aplikacija. OnTime gCount, "EndMessage"
Končni sub
Sub EndMessage()
Dim xRng As Range
Nastavite xRng = Aplikacija. ActiveSheet. Obseg ("A1")
xRng. Vrednost = xRng. Vrednost – TimeSerial (0, 0, 1)
Če xRng. Vrednost <= 0 Potem
MsgBox "Odštevanje je končano."
Izhod Sub
Konec Če
Časovnik klicev
Končni sub

Ti lahko Kopiraj in prilepi besedilo kode zgoraj, ali pa ga lahko vnesete vrstico za vrstico v okno Module1. Urejevalnik VBA po potrebi uporabi oblikovanje.

Pomanjšajte okno VBA s klikom na - simbol v zgornjem desnem kotu. Kliknite mapa na traku in Shrani kot. Izberite lokacijo za shranjevanje datoteke. V oknu Shrani kot poimenujte delovni zvezek in izberite Delovni zvezek z omogočenimi makri Excel (*.xlsm) Iz Shrani kot vrsto spustni seznam. Kliknite Shrani in se vrnite v delovni zvezek.

Kliknite na celico A1 in vstopi 0:3:0, nato pritisnite Vnesite. To nastavi čas za 0 ur, 3 minute in 0 sekund.

Kliknite na Ogled jeziček na traku in kliknite Makri. Izberite Časovnik s seznama makrov in kliknite teci. Vaša časovna celica bo začela odštevati do nič, ko bo a Odštevanje je končano odpre se pogovorno okno. Kliknite v redu da se vrnete k svojemu delu.

Nasvet