Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako vstaviti odštevalnik časa v Excelu?

Če želite v določenem časovnem obdobju obdelati nekatere podatke, lahko v vašem delovnem listu podatkov vstavite odštevalni časovnik in po zaključku odštevanja časa pride do popačenega pogovornega okna, ki vas opomni. Tukaj vam bom povedal kodo VBA, da v Excel vstavite odštevalni časovnik.

Vključite odštevalnik časa v Excelu


puščica modra desno mehurček Vključite odštevalnik časa v Excelu


V Excelu ne morete odštevati časa, vendar lahko kopirate sledilno kodo VBA, da boste lahko računali na čas.

1. Izberite celico in jo formatirajte kot časovno oblikovanje z desnim klikom na celico in izbiro Oblikuj celice, nato pa v pogovornem oknu kliknete čas in izbiro 13: 30: 55 v tip seznam, nazadnje s klikom OK za izhod iz tega pogovornega okna. Prikaz slike:

doc-odštevanje-časovnik-1
doc-arrow
doc-odštevanje-časovnik-2

2. Vnesite čas, ki ga želite odšteti v celico oblikovanja. Prikaz slike:

doc-odštevanje-časovnik-5

3. Pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

4. klik Vstavi > Moduli in nato kopirajte po VBA v novo okno.

VBA: Odštevalnik časa.

Dim gCount As Date
'Updateby20140925
Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
    MsgBox "Countdown complete."
    Exit Sub
End If
Call Timer
End Sub

Nasvet: E1 v zgornji kodi označuje časovno celico, ki jo vnesete v korak 2.

5. klik Run gumb ali pritisnite F5 da zaženete odštevalnik časa. Zdaj se šteje čas.

doc-odštevanje-časovnik-3

6. Ko je odštevanje končano, vas opomni popoldansko pogovorno okno.

doc-odštevanje-časovnik-4

Nasvet: Ne morete ustaviti odštevanja, ko se izvaja, razen zapiranja delovnega zvezka.


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Monika · 7 months ago
    No entiendo cómo tengo que solucionar para que el cronómetro mno se pare cuando introduzco un valor. Si se para al trabajar en el excel, para que quiero un cronómetro y paraquesirve el boton parar? Gracias
  • To post as a guest, your comment is unpublished.
    thea · 1 years ago
    hi the timer is running now. the problem is it stops automatically when using other workbooks. how can i keep it running?
  • To post as a guest, your comment is unpublished.
    viraj · 1 years ago
    i want to get about 100 down time readings to my excel sheet.please help me. impossible to write the codes for i2c circuit. i don't want led display. plz help me
  • To post as a guest, your comment is unpublished.
    melvin · 1 years ago
    GOOD DAY GUYS
    Please a i need to create a timer on my Excel sheet in form that it will be a count down to a particular for example 45 days every 5 days it give a reminder on the sheet with a specific color for each countdown. i need it asap.

  • To post as a guest, your comment is unpublished.
    Martin S · 1 years ago
    To stop the timer when you enter values into certain cells, you would use "Worksheet_Change", just include the range you want to listen to, you'll also need to create a global boolean so when you change anything within a cell range, it would set this boolean to false, so the next time it jumps into the "Time" sub procedure, it would instead check to see if the boolean is false, if you add "If TimerActive = False Then Exit Sub", at the beginning of the "Timer" sub, it will exit if that boolean returns false.




    Then inside "Worksheet_Change" you will want to add "TimerActive = True" at the beginning of the code, and something like the following code anywhere.

    If Not Intersect(Target, Range("B2:C57")) Is Nothing Then
    TimerActive = False
    End If