< návrat zpět

MS Excel

Téma: stopky ve VBA rss

Zaslal/a ji026441 13.6.2012 14:03

Dobrý den,
potřeboval bych vyřešit problém se stopkami. V přiloženém formuláři bych chtěl tl.start spustit stopky a pak u jednotlivých labelů tlačítky zapsat změřený čas.

Příloha: zip8804_stopky.zip (12kB, staženo 68x)
stop Uzamčeno - nelze přidávat nové příspěvky.
stanher(13.6.2012 16:38)#008805
avatar
Zkus to
Příloha: zip8805_sluzebni.zip (14kB, staženo 96x)
citovat
stanher(13.6.2012 22:35)#008807
avatar
Dalši pokus
Příloha: zip8807_stopky.zip (13kB, staženo 167x)
citovat
ji026441(14.6.2012 16:25)#008809
avatar
Toto je lepší, ale nešlo by, aby změřený čas ukazoval pouze v sekundách, tak jako timer a ne ve formátu hh:mm:ss?citovat
stanher(14.6.2012 17:42)#008810
avatar
Tak teda jenom sekundy.
Příloha: zip8810_8807_stopky.zip (16kB, staženo 140x)
citovat
ji026441(14.6.2012 18:24)#008811
avatar
To jsem zvládnul i já, ale potřebuji počítat sekundy i po 59 pořád dál 60, 61, 62,... 1000, ... 5000. Byl by to problém?citovat
marjankaj(14.6.2012 20:58)#008812
avatar
Sub AktualizaceCasu()
UserForm1.Label5.Caption = Format(tCas * 24 * 3600, "#")
NextTick = Now + TimeValue("00:00:01")
tCas = tCas + TimeValue("00:00:01")
Application.OnTime NextTick, "AktualizaceCasu"
End Subcitovat
ji026441(15.6.2012 20:06)#008813
avatar
Děkuji oběma.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje