< návrat zpět

MS Excel

Téma: Odpočet dnů rss

Zaslal/a JOHAN 14.10.2020 12:32

Zdravím vás všechny a prosím o radu. Kolega odchází do důchodu (za necelý rok) a já mu chtěl na jeho PC dát odpočítavání doby odchodu. Použil jsem excel a vzoreček =DAYS("30.06.2021";DNES()), jenže tato funkce není dynamická a pokud kolega PC mezi směnama nevypne, nebo sám nezaktualizuje excel, "visí" na monitoru stejné číslo. Potřeboval bych vytvořit něco podobného, ale aby se o půlnoci číslo vždy zaktualizovalo.
ps. je to takové "digitální stříhaní metru". (pro ty co to zažili na vojně.
Díky za rády a návody. Johan

Zaslat odpověď >
robert13(14.10.2020 13:00)#048409
avatar
Do všeobecného modulu vlož kód:
Sub auto_open()
Application.OnTime TimeValue("00:00:01"), "Prepocet"
End Sub
Sub Prepocet()
Calculate
End Sub
a súbor ulož ako xlsm.
Keď sa súbor spúšťa, zobrazí aktuálny stav. Ak sa Excel nechá bežať, sekundu po polnoci sa prepočítacitovat
robert13(14.10.2020 13:02)#048410
avatar
Aby sme sa rozumeli... Automaticky sa prepočíta Tvoj vzorec, aby ukazoval zmenenú hodnotucitovat
Lugr(14.10.2020 13:32)#048411
Lugr
Robert13 nebylo by lepší?

Private Sub Workbook_Open()citovat
robert13(14.10.2020 13:41)#048412
avatar
Malo by to byť to isté.
Alebo sa mýlim?citovat
robert13(14.10.2020 13:43)#048413
avatar
Lugr To Tvoje by malo byť v module zošita, moje vo všeobecnom modulecitovat
Lugr(14.10.2020 13:53)#048414
Lugr
Aha 4 , tak děkuji. 1citovat
robert13(14.10.2020 13:54)#048415
avatar
Lugr máš pravdu, mnou uvedený spôsob spúšťania by sa mal používať v prípade, že je potrebné ošetrovať kód kvôli spätnej kompaktibilite. Neznamená to však, že nefunguje...citovat
robert13(14.10.2020 13:57)#048416
avatar
https://bettersolutions.com/vba/events/auto-open.htmcitovat

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