zde je link, kde se to jiz resilo a vyresilo:
http://www.pc-help.cz/viewtopic.php?f=35&t=4852citovat
http://www.pc-help.cz/viewtopic.php?f=35&t=4852citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Stále jdoucí hodiny
MS Excel
Téma: Stále jdoucí hodiny 
Zaslal/a Nick512 24.9.2009 10:32
Dobrý den,
potřeboval bych zobrazit hodiny i s datumem jako stále jdoucí.Ve formátu den,měsíc rok,hodina,minuta,sekunda.Asi jsem už starší ale prostě mi to nejde nastavit.Ideální by byla možnost hodiny zastavit a zase spustit.Asi jako stopky.
Děkuji za radu nebo návod kudy.
Nick512
(24.9.2009 11:20)#000745
(24.9.2009 11:21)#000746
ted jsem si to poradne precetl :) datum tam neni.. ale snad to pomuze i tak..citovat
(24.9.2009 11:38)#000747
a ted jsem to zkusil a je to plne funkcni a je tam dokonce i datum.. :)
staci toto:
Sub VlozCas()
Cells(1, 1) = Time()
Application.OnTime EarliestTime:=Now + TimeValue(\\\\\\\"00:00:01\\\\\\\"), Procedure:=\\\\\\\"VlozCas\\\\\\\"
Cells(1, 2) = Now + TimeValue(\\\\\\\"00:00:01\\\\\\\")
End Sub
Sub Konec()
Application.OnTime EarliestTime:=Cells(1, 2), Procedure:=\\\\\\\"VlozCas\\\\\\\", Schedule:=False
End Subcitovat
staci toto:
Sub VlozCas()
Cells(1, 1) = Time()
Application.OnTime EarliestTime:=Now + TimeValue(\\\\\\\"00:00:01\\\\\\\"), Procedure:=\\\\\\\"VlozCas\\\\\\\"
Cells(1, 2) = Now + TimeValue(\\\\\\\"00:00:01\\\\\\\")
End Sub
Sub Konec()
Application.OnTime EarliestTime:=Cells(1, 2), Procedure:=\\\\\\\"VlozCas\\\\\\\", Schedule:=False
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články