countdown klok in excel

[mtb]

hai,

ik weet uberhaupt niet of het mogelijk is of kan maar,

Ik ben op zoek naar een countdown klok om die in mijn excel bestand in te passen, het liefst hetzelfde principe als een digitale klok dus: uren, min,sec
En zelf in te kunnen stellen naar de tijd waar naar toe die moet aftellen

heb Google al geraadpleegd maar kwam daar niet echt verder

misschien dat een van jullie mij de juiste kant op kan sturen, of beter nog er eentje heeft

 

[richard1970]

Hoi Michel,

Zelf heb ik ook wel e.e.a. geprobeerd in excel, maar dat is nooit gelukt omdat je nogal in VBA thuis moet zijn. Je hebt ook diverse programma's die het kunnen.
Kijk eens op http://freeware.pagina.nl/ en scroll dan naar beneden naar het item "Datum & Tijd". Daar staan kleine progjes die een teller maken in windows. Ze zijn niet allemaal even gestyleerd, maar sommigen hebben genoeg opties om de kleuren en lettertypes aan te passen aan je eigen bureaublad.

Succes,

Richard

 

[jpvs]

Het is wel een invoegtoepassing ?

zie hier een site waar je het kunt downloaden :
http://www.tushar-mehta.com/in­dex.html?http://www.tushar-meh­ta.com/ex...


klik op : The compressed files
countdown.xla

of


Public NextTime As Date
Public EndTime As Date
Sub StartCount()
EndTime = Now + TimeValue("00:00:15")
NextTime = Now + TimeValue("00:00:01")
ActiveSheet.Range("A1").Number­Format = "hh:mm:ss"
ActiveSheet.Range("A1").Value = EndTime - Now
Application.OnTime NextTime, "Continuecount"
End Sub


Sub Continuecount()
NextTime = Now + TimeValue("00:00:01")
If EndTime - Now < 0 Then Exit Sub
ActiveSheet.Range("A1").Value = EndTime - Now
Application.OnTime NextTime, "Continuecount"
End Sub


Hier kun je de tijd voor af te tellen zelf instellen,
nu staat het op 15 sec in gesteld.


Pierre

 

[mtb]

Pierre,

bedank voor je reactie

De link die je mee stuurde werkt niet (bij mij tenminste, krijg melding ' Kan de pagina niet vinden' )

de code die je mee stuurde heb ik geplakt in VB van excel maar geeft steeds foutmeldng 'syntax fout' en ik weet niet wat ik fout doe, zou jij de code in vb willen plakken en dan de file gezipt hier willen plaatsen.

thanks a lot

 

[richard1970]

Hoi Michel,

De code van Pierre klopt wel, maar als je die rechtstreeks kopieert in VBA, dan verandert de regel:

ActiveSheet.Range("A1").Number­Format = "hh:mm:ss"

bij mij in:

ActiveSheet.Range("A1").Number-­Format = "hh:mm:ss"

Het liggende streepje tissen Number en Format moet je verwijderen, en dan werkt de code prima!

Richard

 

[mtb]

Richard, Pierre

Richard je opmerking klopt helemaal, nu werkt die wel

Beide bedankt alle voor jullie hulp/reactie's

:thumb:

 

[jpvs]

Voor degene die de link niet kunnen vinden hier het xla bestand.

Pierre

 

[jpvs]

En hier het bestand met de listing.

Pierre

 

[mtb]

Pierre

is het ook mogelijk dat je bv. na 5 sec. direct sheet 2 te zien krijgt.

je ziet dus de teller aflopen van 5 naar 0 sec en bij 0 sec dan gaat die direct naar blad 2. dus eigenlijk zie de dan de countdown teller als openingsblad

thnkx

 

[jpvs]

Dit is wel niet zichtbaar?

Zet dit in ThisWorkbook :

Private Sub Workbook_Open()
Application.Wait (Now + TimeValue("0:00:05"))
Sheets("Blad2").Select
End Sub

Pierre

 

[mtb]

pierre,

is het ook mogelijk dat je het aftellen wel zichtbaar kunt maken?

 

[jpvs]

Zoals gevraagd.

Pierre

 

[mtb]

pierre

dat is wat ik bedoel,

bedankt voor de hulp

:thumb: :thumb: :thumb:

 

[Writtler]

Als eerste bedankt voor het voorwerk, ik heb alleen nog een vraag, is het ook mogelijk om er een repeat in te bouwen, zodat hij bijvoorbeeld 90 keer achter elkaar tot bijvoorbeeld 5 telt?

Bvd.

 

[crash]

@Writtler,

Welkom op Helpmij.

Maak even een eigen vraag(topic) aan. Inbreken in iemand zijn/haar topic is niet echt netjes. Daarbij is deze topic van 2005, dus te oud om in verder te gaan.

Deze sluit ik.