MS Excel

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

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

Aby sme sa rozumeli... Automaticky sa prepočíta Tvoj vzorec, aby ukazoval zmenenú hodnotucitovat

Lugr(14.10.2020 13:32)#048411

Robert13 nebylo by lepší?

Private Sub Workbook_Open()citovat

robert13(14.10.2020 13:41)#048412

Malo by to byť to isté.
Alebo sa mýlim?citovat

robert13(14.10.2020 13:43)#048413

Lugr To Tvoje by malo byť v module zošita, moje vo všeobecnom modulecitovat

Lugr(14.10.2020 13:53)#048414

Aha

, tak děkuji.

citovat

robert13(14.10.2020 13:54)#048415

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

https://bettersolutions.com/vba/events/auto-open.htm citovat

Téma: Odpočet dnů

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje