WWW pro školy
Jak na Office - tutoriály, video návody











Vytvoř si párové triko

Poradna - fixovanie dátumu

Vložení příspěvku
Předmět:
Vaše jméno: (povinný údaj) Váš e-mail:
Text:(Zbývá: 1000 znaků - povinný údaj)
Připojit ukázkový soubor:
(Maximální velikost souboru jsou 2MB.)
 Opište následující text (kvůli zneužití):  ZHvRv   

hlavní kategorie | zpět | + odpovědět na toto téma
fixovanie dátumu - diskuze na toto téma
Ahojte, chcel y som Vás poprosiť o radu pri fixovaní aktuálneho dátumu v bunke, tzn. cez funkciu (DNES), ktorá vloží aktuálny dátum do bunky. Problém vzniká, keď sa zmení deň, tzn. zajtra by sa mi podľa správnosti tento dátum v bunke prepísal na aktuálny deň (systémový dátum), ale to nechcem. Chcem mať fixovaný dátum z dňa kedy som ho do bunky zadal, je možné ošetriť tento problém v rámci kombinácie vzorcov, alebo to ošetrí jedine makro? Ďakujem pekne za radu.

elninoslov | 12.8.2015 22:52  
 
 
Do bunky sa nedá zároveň zapisovať aj tam mať vzorec. Jediné riešenie bez makra ma napadá takéto. Meníte dátum na Vami požadovaný v zelenej bunke. Dátum ktorý požadujete bude v červenej bunke a to podľa zaškrtnutia políčka "Aktuálny dátum". Ale myslím, že to je logické. Dalo by sa ešte cez zapnutie "Súbor - Možnosti - Vzorce - Povoliť iteračný výpočet", ale t by ste tiež nemohli vkladať udáj do bunky kde je vzorec.
Odpověď
dKup | 13.8.2015 19:31  
 
 
ďakujem za reakciu :) možno som úplne presne nepopísal tú požiadavku, lebo nemal som v pláne v jednej bunke zároveň uvádzať vzorec aj písať, skôr by som toto chcel uplatniť pri zadaní napr. v stĺpci A ak si užívateľ vyberie meno a do ďalšieho stĺpca sa doplní automaticky aktuálny dátum, aby si dotyčná osoba nemusela tento dátum manuálne vpisovať. Bez makra to asi nepôjde :)
Odpověď
Lobo | 13.8.2015 21:30  
 
 
Ne bez makra to opravdu nepůjde. Další možností je zásah uživatele s využitím klávesové zkratky CTRL+;
Odpověď
dKup | 14.8.2015 17:51  
 
 
a vie niekto pomôcť s tým makrom ?:)
Odpověď
elninoslov | 15.8.2015 12:07  
 
 
Vymente Vnútro tej procedúry, čo som Vám poslal minule a vyskúšajte. Píšem to len z hlavy na tablete, nemám ako otestovať. Dim Zmena as Range Set Zmena=Intersect(Target, Columns(1)) If Not Zmena Is Nothing Then If Zmena.Cells(1,1)<>"" Then Cells(Zmena.Cells(1,1).Row,2)=Date()
Odpověď
elninoslov | 15.8.2015 18:39  
 
 
Upravil som Vám to tak, že Môžete zmeniť aj viac buniek naraz, aktuálny dátum sa nastaví pre všetky, zároveň som Vám pridal aj mazanie dátumu po vymazaní mena. Mená sa načítavajú dynamicky z listu Mená.
Odpověď
dKup | 15.8.2015 18:45  
 
 
klobúk dole a ďakujem :)
Odpověď