Kako v Excelov delovni list vstaviti odštevalnik časa

Excel sam po sebi nima funkcije za vključitev odštevalnika časa. Vendar pa je s programskim jezikom, imenovanim Visual Basic for Applications, mogoče napisati preprost makro za izvajanje funkcije odštevanja. Ta članek prikazuje, kako ustvariti makro, ki omogoča časovniku odštevanje do 12 ur, primeren za upravljanje časa na delovnem listu.

Formatirajte celico časovnika

1. korak

V novem odprtem delovnem listu se pomaknite do celice A1. To bo lokacija primera časovnika.

2. korak

Z desno miškino tipko kliknite celico A1 in izberite Oblikuj celice .

3. korak

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

Ustvarite makro

1. korak

Odprite okno za urejanje Visual Basic s pritiskom ALT-F11 . Kliknite Vstavi v menijski vrstici in kliknite Modul .

2. korak

Vnesite naslednje besedilo v okno Module1:

Dim gCount As Date
Podčasovnik()
gCount =Now + TimeValue("00:00:01")
Application.OnTime gCount, "EndMessage"
End Sub
Sub EndMessage()
Dim xRng As Range
Nastavite xRng =Application.ActiveSheet.Range("A1")
xRng.Value =xRng.Value - TimeSerial(0, 0, 1)
Če je xRng.Value <=0 Potem
MsgBox "Odštevanje je končano."
Izhod Sub
Konec Če
Časovnik klica
Končaj pod

Zgornje besedilo kode lahko kopirate in prilepite ali pa ga vnesete vrstico za vrstico v okno Module1. Urejevalnik VBA po potrebi uporabi oblikovanje.

3. korak

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

Uporaba časovnika

1. korak

Kliknite celico A1 in vnesite 0:3:0 , nato pritisnite Enter . To nastavi čas na 0 ur, 3 minute in 0 sekund.

2. korak

Kliknite Pogled na traku in kliknite Makri . Izberite Časovnik s seznama makrov in kliknite Zaženi . Vaša časovna celica bo začela odštevati do nič, ko se prikaže Odštevanje je končano odpre se pogovorno okno. Kliknite V redu da se vrnete k svojemu delu.

Nasvet

Ni vam treba uporabiti celice A1. Postavite svoj časovnik kamor koli in spremenite sklic na celico v 8. vrstici kode časovnika iz A1 v celico, ki jo uporabljate.